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

我目前正在进行自动化测试，需要在特定列中为现有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

Sub-writetRunToExcelDoc
Dim文件名，sheetName
fname=“”
sheetName=“Sheet1”
Set app=Sys.OleObject（“Excel.Application”）
Set book=app.workbook.Open（fname）
设置图纸=书本.图纸（图纸名称）
'我下一步该怎么做才能将值添加到此列表中的特定列或单元格中
“电子表格？
端接头

---

提前谢谢

在VBScript中使用创建Excel实例

CreateObject("Excel.Application")

可以使用抓取已运行的Excel实例

GetObject(, "Excel.Application")

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

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

---

谢谢，这很有效。但是，每次脚本运行并拉入一个动态值时，它都需要将该值添加到下一行，这样它就不会覆盖上一个值。因此，如果脚本运行100次并提取100个不同的WireRequestNumber，我需要它将C列中的100个不同值的列表添加到Excel文档的第100行。这有意义吗？我创建了这样的东西：Dim fname，sheetName fname=“c:\test\Book1.xls”sheetName=“Sheet1”Set app=CreateObject（“Excel.Application”）app.Visible=True Set book=app.Workbooks.Open（fname）Set sheet=book.Sheets（sheetName）Row=Row+1 sheet.Cells（Row，3）.Value=RemPropValue End sub我认为这不起作用，因为您的脚本需要“记住”前一行的值。请参阅我的更新答案，了解不同的方法。