VBS中怎么返回表格中的最后一行，谢谢了。

djh053 · 发表于 2014-4-1 16:20:37

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:15

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

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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