1

私は現在自動化テストを行っており、特定の列の既存の 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

前もって感謝します！

4

1 に答える 1

2

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
于 2012-10-05T23:11:30.870 に答える