[问题求助] VBS中怎么返回表格中的最后一行，谢谢了。

djh053

Dim fso1,f1,app,wb,ws
   Set fso1= CreateObject("Scripting.FileSystemObject")
   Set f1=fso1.OpenTextFile("D:\"& mydate &"_" & myhour & "_.log",1,true)
   Set app = CreateObject("Excel.Application")
   Set wb = app.Workbooks.Open("D:\online_user2.xls")
   Set ws = wb.Worksheets(1)
     
   Dim line1, params1,row,temp
   row = ？           ————————————————————————————这个地方想赋于，excel表格中已经使用到的最后一行，比如“online_user2.xls”表格中有值的有5行，这里返回就是6.要怎么写。。

跪求帮忙，谢谢高手了！！！

apang

请不要给我发短信，我也不是“高手”。或许可以这样？
row = app.ActiveSheet.UsedRange.Rows.Count + 1