我有一个启动用户窗体的Word宏。
我正在尝试添加一项功能来更新外部Excel文档中的某些字段。不幸的是，Word宏不能识别许多Excel VBA命令。
这是想法：
这是我的位置：
Private Sub updateForm_Click()
'Start by parsing the Test Tracking spreadsheet
Set appExcel = CreateObject("Excel.Application")
Dim testTrack_File As Variant
Dim Rng As Range
Dim RowCrnt As Long
testTrack_File = "FileName.exe"
appExcel.Workbooks.Open testTrack_File
'Search Test Tracking spreadsheet for the Vendor
With appExcel.Sheets("Testing_Queue")
'Code Needed here
docField =
End With
appExcel.ActiveWorkbook.Close
appExcel.Quit
Set appExcel = Nothing
End Sub
确保可以在代码中使用Excel VBA函数-您可以.Find在with块内部使用，如下所示：
With appExcel.Sheets("Testing_Queue")
Dim xlCell As Object
Set xlCell = .Cells.Find("asdf")
'Get the row where the value was found
Dim xlRow As Integer
xlRow = xlCell.Row
'change the target column to whichever you want
Dim xlCol As Integer
xlCol = 6
Dim targetCellValue
targetCellValue = .Cells(xlRow, xlCol).Value
MsgBox (targetCellValue)
End With
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句