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

【问题标题】：VBScript in HTA - Find next open cell in Excel ColumnHTA 中的 VBScript - 在 Excel 列中查找下一个打开的单元格
【发布时间】：2015-08-07 11:55:47
【问题描述】：

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

【问题讨论】：

标签： excel vbscript

【解决方案1】：

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

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

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

objExcel.Selection.Value = "X"

【讨论】：