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文件，然后向文件中插入数据，防止覆盖数据或者错行。