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新手时它没有帮助！）< / p>

我要做的是能够通过使用打开/选择文件对话框将一堆Word文档/表单字段导入MS Access ...我有什么工作，但我想要使其更容易使用！

谢谢大家杰克

#####我一直在使用的代码

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

＃

我试图弄乱我。表和我！表格和.add等等 - 显然我在这里是一个完整的新手!!!

我想要的是能够将Word Doc中的表单字段中的数据导入到MS Access表中（我已经设法使用上面原始帖子中的第一个URL）;通过从“打开/选择”对话框中选择Word文档，而不是手动输入每个Word文档的名称。

如果听起来很明显或简单，我表示道歉 - 无论如何，访问不是我的强项！

Answer 1

在开始之前，我不明白你为什么在你的代码示例中有这么多未注释的行（行beginnig mit'）。我假设大多数这些行通常不会被取消注释并成为工作代码的一部分。或者是否存在Stack Overflow Editor的工件？

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

1）使用时

With fDialog

你让这个'打开'直到代码结束（甚至在其间使用第二个With）。我建议您在不再需要之后立即设置相应的“结束方式”。记住（或注意）：

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

实际上只是

的简写

fDialog.Title

（即“裸”意味着它必须与With中的对象相关联）所以你可以完全取消“With”。在你的例子中，我会在

之前设置“结束”

If .Show = True Then

然后使用

If fDialog.Show = True Then

2）我会设置

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

外面你的For Each循环（不要忘记在循环之外设置app appWord = Nothing）。请记住，使用GetObject，您需要一个runnig 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中看到错误消息或其他问题。

HTH用于后续步骤（如果您再遇到此问题）安德烈亚斯

将MS Word表单字段导入MS Access

1 个答案: