如何從Excel中的LOOKUP函數填充單詞模板

Question

如果有可能將LOOKUP函數插入.TypeText節？

現在，我創建了另一個單元格，它基本上是在A1單元格上創建的查找函數。這是100％的工作。

我想刪除整列查找，並將其直接合併到代碼中。

想法：從單元格A1，在另一張表中查找並拉出一些值，並通過書籤將該值導入到單詞中。

現在：

.GoTo What:=wdGoToBookmark, Name:=BOOKMARK8 
     .TypeText personList(i, 8)` 

我的想法：

.GoTo What:=wdGoToBookmark, Name:=BOOKMARK8 
     .TypeText Text:= LOOKUP((i, 1),Sheet2!A:A,Sheet2!B:B)` 

感謝。

p.s只是告訴我，如果我清楚，否則我會附上.xls或完整的代碼！

Answer 1

您正在尋找WorkSheetFunction.LOOKUP

你可以在一個工作表公式欄使用任何功能可在VBA可以使用以下WorkSheetFunction

Here is MSDN on the WorkSheetFunction object

Answer 2

感謝您的快速回復。但是我決定插入INDEX & MATCH而不是LOOKUP。

我在網上發現了一些代碼，並且正在進行一些小的調整。

Sub Test() 
Dim x As String 


Dim ws1, ws2 As Worksheet 
Dim i As Long 
Dim limit As Range 
Set ws1 = ActiveWorkbook.Sheets("Sheet1") 
Set ws2 = ActiveWorkbook.Sheets("Sheet2") 

With ws1 




On Error Resume Next 
x = Application.WorksheetFunction.Index(Range("Sheet2!$B$1:$B$5"), Application.WorksheetFunction.Match(Range("Sheet1!$A$1"), Range("Sheet2!$A$1:$A$5"), 0)) 

'=INDEX(Sheet2!$B$1:$B$5;MATCH(Sheet1!A1;Sheet2!$A$1:$A$5;0))' 

If Err = 0 Then 
    ws1.Range("B1") = x 
Else 
    MsgBox "Not found" 
    Err.Clear 
End If 
On Error GoTo 0 

End With 

End Sub 

但沒有運氣。 我把它放在評論中的公式是完美的，現在我正在試圖將它納入vba形狀。

謝謝。

Answer 3

以下是代碼的一部分。

For i = 2 To total  'for each person: open the template file and update details 


    Set wDoc = wApp.Documents.Open(FILE_PATH & FILE_NAME & FILE_EXT, ReadOnly:=True) 
    With wApp.Selection 
    datPremFormat = Cells(i, 11).Value 
    mesDanaKamFormat = Cells(i, 12).Value 



      x = Application.WorksheetFunction.Index(Sheets("Sheet3").Range("$C$2:$C$1000"), Application.WorksheetFunction.Match(Sheets("Sheet1").Range("B" & i), Sheets("Sheet3").Range("$A$2:$A$1000"), 0), 1) 




     .GoTo What:=wdGoToBookmark, Name:=BOOKMARK 'go to Bookmark "FirstName" 
     .TypeText personList(i, 1)     'type the value from column 2 




End With 
    With wDoc 'sava and close the new Word file 
     .SaveAs2 FILE_PATH & " person " & personList(i, 1) & FILE_EXT 
     .Close 
    End With 
Next 
wApp.Quit 
Set wDoc = Nothing 
Set wApp = Nothing 
MsgBox "Created " & total & " files in " & FILE_PATH 

所以，整點：X線正在完善，我只是檢查它通過MSGBOX。實際上，由於這個循環，我不能說得對。

運行時錯誤：1004 無法獲取WorksheetFunction類的匹配性能