將word格式鏈接到excel

Question

我是教練機構的IT人員。我很早以前就設計了一個單詞表單，通過這個表單我們可以輸入要獲得錄取資格的詳細信息。之後，當一批學生的學生人數超過了我們可以輕鬆追蹤的限額時，我設計了一個excel數據庫。現在剩下的唯一問題是設計一種方法，我可以通過它複製表單域的內容並將其鏈接到數據庫。 希望我得到的東西，更容易VBA的事情將被罰款以及

Answer 1

你可以用這樣的代碼（使用它從您的Excel數據庫加載Word文檔）VBA做到這一點：

Sub DataFrom() 

'Remember: this code requires a reference to the Word object model 

Dim wdApp As New Word.Application 
Dim wdDoc As Word.Document 
Dim fName As String 
Dim i As Long, Rw As Long 

ChDir ActiveWorkbook.Path 

With Application.FileDialog(msoFileDialogOpen) 
    .AllowMultiSelect = False 
    .Filters.Add "Word", "*.doc", 1 
    .Show 
    On Error GoTo Exits 
    fName = .SelectedItems(1) 
End With 

Set wdDoc = wdApp.Documents.Open(fName) 

Rw = Cells(Rows.Count, 1).End(xlUp).Row + 1 
Cells(Rw, 1) = Cells(Rw - 1, 1) + 1 
i = 1 
For Each f In wdDoc.FormFields 
    i = i + 1 
    On Error Resume Next 
    Cells(Rw, i) = f.Result 
Next 
Exits: 
End Sub