如何用VBScript查找Excel列的最后数据行？解决xlDown未定义问题

你遇到的问题很典型——VBScript不像VBA那样内置了Excel的常量（比如xlDown），直接调用就会触发未定义报错。下面给你几个可行的解决方案，同时完全满足你不修改原表格的需求：

方法1：手动定义Excel常量值 #

xlDown对应的底层数值是-4121，你可以在脚本开头先定义这个常量，之后就能像VBA里一样正常使用：

Set fso = CreateObject("Scripting.FileSystemObject")
set xlapp = CreateObject("Excel.Application")
' 手动定义xlDown常量
Const xlDown = -4121
Set wkbk = xlapp.Workbooks.Open(path)
xlapp.Visible = False
Set sht = wkbk.Sheets(sheetname)
Set myfile = fso.OpenTextFile(txtfile, 2, True)

' 现在可以正常调用End(xlDown)了
lrow = sht.Cells(row, col).End(xlDown).Row

方法2：直接使用常量对应的数值 #

如果不想额外定义常量，直接把xlDown替换成它的数值-4121也能实现相同效果：

' 替换原来的lrow赋值行
lrow = sht.Cells(row, col).End(-4121).Row

更可靠的列末尾查找方案 #

要注意：如果目标列中间有空行，或者起始行是该列唯一的有数据行，End(xlDown)可能会返回不符合预期的结果（比如跳到Excel的最后一行）。更稳妥的做法是从该列的最后一行往上查找，这样不管数据分布如何，都能精准定位到最后一个有内容的行：

' xlUp对应的数值是-4162，同样可以先定义Const xlUp = -4162再使用
lrow = sht.Cells(sht.Rows.Count, col).End(-4162).Row

关键收尾：清理资源避免进程残留 #

为了防止Excel后台进程挂起，处理完数据后记得执行以下清理操作（Close False确保不修改原表格）：

myfile.Close
wkbk.Close False ' False表示不保存任何修改
xlapp.Quit
' 释放所有对象引用
Set sht = Nothing
Set wkbk = Nothing
Set xlapp = Nothing
Set myfile = Nothing
Set fso = Nothing

内容的提问来源于stack exchange，提问作者tg94