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

Question

我四处寻找无济于事。我是 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>

Answer 1

我想你已经掌握了大部分。 lastRowIndex应该告诉您包含 A 列中数据的最后一行编号。因此您需要在下一行 ( lastRowIndex + 1 ) 中添加一个值。

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

然后你可以从你的代码中去掉这一行:

objExcel.Selection.Value = "X"