vbscript - 如何使用 VBScript 将数据添加到现有 Excel 文件中的特定列

Question

我目前正在进行自动化测试，需要将动态值写入特定列中的现有 excel 文档，这是我目前所拥有的。原谅我是新手

Sub WriteTRNtoExcelDoc
  Dim fileName, sheetName
  fname = "<Path_To_The_File>"
  sheetName = "Sheet1"

  Set app = Sys.OleObject("Excel.Application")
  Set book = app.Workbooks.Open(fname)
  Set sheet = book.Sheets(sheetName)

  ' What do I do next to add a value to a specific column or cell in this
  ' spreadsheet?

End Sub

提前致谢！

Answer 1

在 VBScript 中创建一个 Excel 实例

CreateObject("Excel.Application")

一个已经在运行的 Excel 实例可以被抓取

GetObject(, "Excel.Application")

在工作表中，您可以使用以下Cells属性访问单元格：

Set app = CreateObject("Excel.Application")
app.Visible = True
Set book = app.Workbooks.Open(fname)
Set sheet = book.Sheets(sheetName)

sheet.Cells(2,3).Value = "foo"

编辑：如果您需要在给定列中找到第一个空单元格，您可以使用以下内容：

row = 1
Do Until IsEmpty(sheets.Cells(row, 3).Value)
  row = row + 1
Loop

sheet.Cells(row, 3).Value = RemPropValue