Question

我是教练机构的IT人员。我很久以前就在单词上设计了一个表单，通过它我们可以输入要获得录取的详细信息。之后，当一批学生的数量超过我们可以轻松跟踪它们的限制时，我设计了一个excel数据库。现在唯一的问题是设计一种方法，我可以通过它复制表单字段的内容并将其链接到数据库。希望我得到一些东西，一个更简单的VBA也可以。

Answer 1

你可以使用这种代码用vba执行此操作（从Excel数据库使用它来加载Word文档）：

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

链接单词形式excel

1 个答案: