Прежде всего, это мой код.
Sub RunMerge()
' Word constants
Dim wd As Object
Dim wdocSource As Object
Dim strWorkbookName As String
On Error Resume Next
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
Set wd = CreateObject("Word.Application")
End If
On Error GoTo 0
Set wdocSource = wd.Documents.Open(ThisWorkbook.Path & "\AAFCAAC-#4077508-v1-AAFC-FFPB-COPE-SATD-_AgriInnovation_Draft_Survey_Instructions_189318.doc")
strWorkbookName = ThisWorkbook.Path & "\" & "MD.xlsm"
wdocSource.MailMerge.MainDocumentType = wdFormLetters
wdocSource.MailMerge.OpenDataSource _
Name:=strWorkbookName, _
AddToRecentFiles:=False, _
Revert:=False, _
Format:=wdOpenFormatAuto, _
Connection:="Data Source=" & strWorkbookName, _
SQLStatement:="SELECT * FROM 'Mail Merge Data$'"
With wdocSource.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
wd.Visible = True
wdocSource.Close SaveChanges:=False
Set wdocSource = Nothing
Set wd = Nothing
End Sub
Я пытаюсь получить слияние почты, переходящее из excel в word. Моя проблема (я полагаю) связана с SQLStatement: = "SELECT * FROM 'Mail Merge Data $'", потому что, когда я запускаю свой код, Excel переходит в подвешенное состояние, ожидая слова. Когда я захожу в диспетчер задач, я вижу, что слово застряло при выборе таблицы. В меню выбора таблицы нет параметров, а назначенная рабочая книга — это только путь к моей рабочей книге с добавленным в конец .xls. Если я удалю строку SQLStatement, произойдет то же самое, но таблица выбора будет заполнена листами и диапазонами имен в моей книге. Я надеюсь, что это небольшая ошибка или опечатка с моей стороны.