使用access VBA查找excel中的最后一行/最后一列
在使用Access VBA查找Excel中的最后一行或最后一列时，可以使用以下代码：
- 查找最后一行：
Dim xlApp As Object
Dim xlWorkbook As Object
Dim xlWorksheet As Object
Dim lastRow As Long
Set xlApp = CreateObject("Excel.Application")
Set xlWorkbook = xlApp.Workbooks.Open("路径/文件名.xlsx")
Set xlWorksheet = xlWorkbook.Worksheets("工作表名称")
lastRow = xlWorksheet.Cells(xlWorksheet.Rows.Count, 1).End(-4162).Row
xlWorkbook.Close False
xlApp.Quit
Set xlWorksheet = Nothing
Set xlWorkbook = Nothing
Set xlApp = Nothing
MsgBox "最后一行是：" & lastRow这段代码首先创建了Excel应用程序对象（xlApp），打开了指定的Excel文件（xlWorkbook），并且选择了指定的工作表（xlWorksheet）。然后，使用xlWorksheet.Cells(xlWorksheet.Rows.Count, 1).End(-4162).Row获取到最后一行的行号，并将其存储在变量lastRow中。最后，关闭Excel文件和应用程序，并释放相关对象的引用。弹出消息框显示最后一行的行号。
- 查找最后一列：
Dim xlApp As Object
Dim xlWorkbook As Object
Dim xlWorksheet As Object
Dim lastColumn As Long
Set xlApp = CreateObject("Excel.Application")
Set xlWorkbook = xlApp.Workbooks.Open("路径/文件名.xlsx")
Set xlWorksheet = xlWorkbook.Worksheets("工作表名称")
lastColumn = xlWorksheet.Cells(1, xlWorksheet.Columns.Count).End(-4161).Column
xlWorkbook.Close False
xlApp.Quit
Set xlWorksheet = Nothing
Set xlWorkbook = Nothing
Set xlApp = Nothing
MsgBox "最后一列是：" & lastColumn这段代码与查找最后一行的代码类似，只是改为使用xlWorksheet.Cells(1, xlWorksheet.Columns.Count).End(-4161).Column来获取最后一列的列号，并将其存储在变量lastColumn中。
上述代码中使用了Excel应用程序对象（xlApp），打开了指定的Excel文件（xlWorkbook），并选择了指定的工作表（xlWorksheet）。然后，使用End和常量-4162（xlUp）或-4161（xlToLeft）来查找最后一个非空行或列的位置。最后，关闭Excel文件和应用程序，并释放相关对象的引用。弹出消息框显示最后一行或列的行号或列号。
这是使用Access VBA查找Excel中最后一行和最后一列的一种常用方法。注意，路径/文件名.xlsx、工作表名称需要根据实际情况进行替换。
相关·内容
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
即时通信 IM活动推荐
腾讯云开发者
