技术论坛

 • 产品分类
 • 咱工程师的故事
 • 培训与认证答疑专区
 • 服务合作伙伴专区

 vbs查找excel中使用的最后一行的位置

返回主题列表
作者 主题
zhangli0
版主

经验值:46270
发帖数:16691
精华帖:61
楼主    2024-03-25 14:06:28
主题：vbs查找excel中使用的最后一行的位置 精华帖 

Sub OnClick(ByVal Item)                                     

Dim fso,myfile

Set fso = CreateObject("s cripting.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文件，然后向文件中插入数据，防止覆盖数据或者错行。

活到老，学到老！为了生活学习吧！
您收到0封站内信：
×
×
信息提示
很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。