HTA中的VBScript-在Excel列中查找下一个打开的单元格

我到处找都没找到。我是VB和VBS的新手，似乎无法实现这一点。我想在A中搜索下一个空单元格，然后通过objexcel在中输入一个值。这些都包含在HTA中

<SCRIPT Language="VBScript">
Sub TallySportsBottle()
Dim oXLApp, wb, ws

'~~> Define xlUp
Const xlUp = -4162


Set objExcel = CreateObject("Excel.Application")
objExcel.Application.Visible = True

Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Gloria Vena\Desktop\new2\Excel\SportsBottleIssuesTally.xlsx")
Set ws = objWorkbook.Worksheets(1)

With ws
   lastRowIndex = .Cells(.Rows.Count, "A").End(xlUp).row
End With

objExcel.Selection.Value = "X"

objExcel.ActiveWorkbook.Save 
objExcel.ActiveWorkbook.Close

objExcel.Application.Quit
End Sub
</SCRIPT>

亚塔利斯波特（）
Dim-oXLApp，wb，ws
“~~>定义xlUp
常数xlUp=-4162
设置objExcel=CreateObject（“Excel.Application”）
objExcel.Application.Visible=True
设置objWorkbook=objExcel.Workbooks.Open（“C:\Users\Gloria Vena\Desktop\new2\Excel\sportsballayissestally.xlsx”）
设置ws=obj工作簿。工作表（1）
与ws
lastRowIndex=.Cells（.Rows.Count，“A”）.End（xlUp）.row
以
objExcel.Selection.Value=“X”
objExcel.ActiveWorkbook.Save
objExcel.ActiveWorkbook.Close
objExcel.Application.Quit
端接头

我想你已经得到了大部分

lastRowIndex

应该告诉您A列中包含数据的最后一行号。因此您需要向下一行添加一个值（

lastRowIndex+1

）

然后您可以从代码中删除这一行：

objExcel.Selection.Value = "X"

objExcel.Selection.Value = "X"