将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