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

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

1 个答案: