Sub OnClick(ByVal Item)
Dim fso,myfile
Set fso = CreateObject("scripting.FileSystemObject")
Set MyFile = fso.GetFile("c:data.xlsx")
Dim ObjExcelApp,ii,jj
Set objExcelApp = CreateObject("Excel.Application")
'objExcelApp.Visible = True
objExcelApp.Workbooks.Open MyFile
'上面的程序段是为了打开d盘excel文件
Dim aa_data
ii=objExcelApp.worksheets("sheet1").UsedRange.Rows.count'使用的最后一行的位置
jj=objExcelApp.worksheets("sheet1").columns(1).find("").Row'第一列中第一个为空的位置
Msgbox ii
Msgbox jj
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set ObjEXceLapp = Nothing
End Sub
以上脚本用msgbox显示ii,c盘data.xslx文件中使用的最后一行的位置,比如是行14,则msgbox显示14
jj第一列中第一个为空的单元格所在行的位置。
可以通过这两个参数,多次打开excel文件,然后向文件中插入数据,防止覆盖数据或者错行。