将word格式链接到excel

我是教练机构的IT人员。 我很早以前就devise了一个表格，通过这个表格我们可以input要进入的细节。 之后，当一个批次的学生人数超过了我们可以很容易的跟踪的时候，我devise了一个excel数据库。 现在唯一的问题是devise一种方式，我可以复制表单域的内容并链接到数据库。 希望我得到的东西，一个更容易的VBA的事情也会好起来的

Answer 1

您可以使用这种types的代码（使用它从您的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