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

我已经四处搜寻，无济于事。 即时通讯在VB和VBS新，似乎不能得到这个工作。 我正在寻找A中的下一个空单元格，并通过objexcelinput一个值。 这全部包含在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"