将MS Word表单字段导入MS Access

Question

我使用MS Word创建了一个应用程序表格和一系列表单字段，我有一个Access数据库可以从这个Word文档中导入所有需要的数据，感谢这个链接：http://msdn.microsoft.com/en-us/library/aa155434%28office.10%29.aspx。现在一切都很好（我甚至设法将其导入到多个表格中！），但上述问题是我必须手动逐个输入每个文件的名称...如果只是导入应用程序表格，那么这样做就没问题...但我有很多文件坐落在一个需要输入到数据库的文件夹中。然后我找到了这个链接：How to show "Open File" Dialog in Access 2007 VBA? 我试图调整和合并这两个链接以使其工作...但是你可以猜到，没有成功...(当我非常不懂Access时也没有帮助！) 我想要做的是通过使用打开/选择文件对话框将一堆Word文档/表单字段导入到MS Access中...我已经有了可行的方案，但我希望它更容易使用！谢谢大家。Jake

Option Compare Database

Option Explicit

Private Sub cmdFileDialog_Click()

' This requires a reference to the Microsoft Office 11.0 Object Library.

Dim fDialog As Office.FileDialog
Dim varFile As Variant

Dim appWord As Word.Application
Dim doc As Word.Document
' Dim cnn As New ADODB.Connection
' Dim rst As New ADODB.Recordset
Dim strDocName As String
Dim blnQuitWord As Boolean

' Clear the list box contents.
' Me.FileList.RowSource = ""

' Set up the File dialog box.
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
' Allow the user to make multiple selections in the dialog box.
.AllowMultiSelect = True

' Set the title of the dialog box.
.Title = "Select One or More Files"

' Clear out the current filters, and then add your own.
.Filters.Clear
.Filters.Add "Microsoft Word", "*.DOC"
.Filters.Add "All Files", "*.*"

' Show the dialog box. If the .Show method returns True, the
' user picked at least one file. If the .Show method returns
' False, the user clicked Cancel.
If .Show = True Then
' Loop through each file that is selected and then add it to the list box.
For Each varFile In .SelectedItems
' Me.FileList.AddItem varFile

Set appWord = GetObject(, "Word.Application")
Set doc = appWord.Documents.Open(varFile)

' cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
'     "Data Source=M:\Medical\GPAppraisal\Contacts & Databases\" & _
'     "AppForm.mdb;"
' rst.Open "tbl_Applicants", cnn, _
'     adOpenKeyset, adLockOptimistic

' With rst
.addnew
!Title = doc.FormFields("wTitle").Result
!FirstName = doc.FormFields("wFirstName").Result
!LastName = doc.FormFields("wLastName").Result
!Address1 = doc.FormFields("wAddress1").Result
!Address2 = doc.FormFields("wAddress2").Result
!Address3 = doc.FormFields("wAddress3").Result
!City = doc.FormFields("wCity").Result
!PostCode = doc.FormFields("wPostCode").Result
!Email = doc.FormFields("wEmail").Result
!Phone1 = doc.FormFields("wPhone1").Result
!Phone2 = doc.FormFields("wPhone2").Result
!LM = doc.FormFields("wLM").Result
!LMAddress1 = doc.FormFields("wLMAddress1").Result
!LMAddress2 = doc.FormFields("wLMAddress2").Result
!LMAddress3 = doc.FormFields("wLMAddress3").Result
!LMCity = doc.FormFields("wLMCity").Result
!LMPostCode = doc.FormFields("wLMPostCode").Result
!LMEmail = doc.FormFields("wLMEmail").Result
!LMPhone = doc.FormFields("wLMPhone").Result
!LMOK = doc.FormFields("wLMOK").Result
!Probity = doc.FormFields("wProbity").Result
!Practising = doc.FormFields("wPractising").Result
!Signature = doc.FormFields("wSignature").Result
!AppDate = doc.FormFields("wAppDate").Result
!e2011012028 = doc.FormFields("w2011012028").Result
!e2011021725 = doc.FormFields("w2011021725").Result
!e2011030311 = doc.FormFields("w2011030311").Result
!e2011031625 = doc.FormFields("w2011031625").Result
!e20110203 = doc.FormFields("w20110203").Result
!e20110211 = doc.FormFields("w20110211").Result
!e20110322 = doc.FormFields("w20110322").Result
!e20110330 = doc.FormFields("w20110330").Result
.Update
.Close
End With
doc.Close
If blnQuitWord Then appWord.Quit
cnn.Close
MsgBox "Application Imported!"

Cleanup:
' Set rst = Nothing
' Set cnn = Nothing
Set doc = Nothing
Set appWord = Nothing

Next
Else
   MsgBox "You clicked Cancel in the file dialog box."
End If
End With
End Sub

我曾试着使用me.tables、me!forms和.add等等，显然我在这里是一个完全的新手!!!

我的目标是从Word文档中的表单字段导入数据到MS Access表中（我已经成功实现了上面原帖中的第一个URL）；通过从打开/选择对话框中选择Word文档的方式，而不是手动输入每个Word文档的名称。

如果听起来很明显或简单，请原谅 - Access并不是我的强项!

- Jake Lee

---

你能给我们详细讲解一下你正在做什么吗？另外，你对VB和VBA的熟悉程度如何？我问这个问题是因为解决方案可能需要适量的它们。 - PowerUser

所以你的问题是关于对话框设置的，对吧？你希望在那里有什么不同的地方？ - Asaf

感谢您的及时回复！ - Jake Lee

哎呀...按下回车键太快了...不管怎样，谢谢您的及时回复，这是我一直在玩耍的代码： - Jake Lee

Answer 1

在我开始之前，我不明白为什么你的代码示例中有这么多未注释的行（以 ' 开头的行）。我假设大多数这些行通常不会被取消注释并成为工作代码的一部分。或者这是 Stack Overflow 编辑器的副产品吗？

我看到了一些问题，可能会引导你找到解决方案。

1）当你使用

With fDialog

你可以让这个“open”一直保持到代码结束（即使在其中使用第二个With）。我建议在不再需要它时立即设置相应的“End With”。记住（或者做个笔记）：

With fDialog
   [... something]
   ' Set the title of the dialog box.
   .Title = "Select One or More Files"

只是一个简写而已

fDialog.Title

（即“裸”的点号表示必须将其附加到With中的对象中），因此您完全可以取消"With"。在您的示例中，我将在

之前设置"End With"。

If .Show = True Then

然后使用

If fDialog.Show = True Then

2) 我会设置

Set appWord = GetObject(, "Word.Application")

在 For Each 循环之外（不要忘记在循环之外也要将 Set appWord = Nothing）。请记住，使用 GetObject 需要一个正在运行的 Word 实例，否则您可能需要使用。

Set appWord = CreateObject("Word.Application")

或者两者都尝试，获取一个Word对象，如果不可用（即Err.Number = 429），则创建一个新的。

On Error Resume Next
Set appWord = GetObject(, "Word.Application")

If Err.Number = 429 Then
    Set appWord = CreateObject("Word.Application")
End If
On Error GoTo 0

3) 在工作或至少是使用自动化开发时，我总是会设置

objword.Visible = True

所以你可以在Word中看到错误消息或其他问题。

希望对接下来的步骤有所帮助（如果你还遇到这个问题） 安德烈亚斯

- Andreas J