标题: [问题求助] VBS中怎么返回表格中的最后一行，谢谢了。 [打印本页]

---

作者: djh053    时间: 2014-4-1 16:20     标题: VBS中怎么返回表格中的最后一行，谢谢了。

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    时间: 2014-4-1 18:16

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

---

欢迎光临 批处理之家 (http://bathome.net./)

Powered by Discuz! 7.2