Откройте файл Word в активном каталоге Workbook - PullRequest
0 голосов
/ 24 апреля 2020

Я пытаюсь указать путь к файлу моей книги, который я хочу открыть из той же директории, где находится моя текущая книга. Я видел какое-то решение здесь:

Открыть файл без вызова Filepath

, и мой код в настоящее время выглядит так:

 Sub RamsOpen3()
 Dim appWD As Word.Application
 Set appWD = New Word.Application
 Dim docWD As Word.Document
 Set docWD = appWD.Documents.Open ActiveWorkbook.Path & "RAMS.docx.docm")         
  appWD.Visible = True
 '
 ' Data is selected and copied into "Design"
 '
 'Copy all data from Design
 Sheets("Frontsheet").Select
 Range("D18").Copy
' Tell Word to create a new document

 appWD.Selection.Paste
' Save the new document with a sequential file name
Sheets("Sheet1").Select
appWD.ActiveDocument.SaveAs filename:=ThisWorkbook.path & "/" & "TEST" & Range("C8").Text
' Close this new word document
appWD.ActiveDocument.Close
' Close the Word application
appWD.Quit
End Sub

Строка кода выделено красным, и отладчик говорит: Ожидаемый конец оператора .

enter image description here

Он также исключает параметр с именем Dim filename как Строка, предложенная в связанном запросе выше.

Кто-нибудь знает, как с ней связываться?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...