Я пытался получить сценарий Excel VBA, чтобы открыть существующий документ Word (основной шаблон), а затем автоматически сохранить его в формате .docx в другом месте файла.Переменные для имени файла и расположения файлов сохраняются в документе Excel (xyz), который создается с помощью vlookups.
Когда скрипт открывает и сохраняет документ, он всегда сохраняется в расположении файла по умолчанию (Мои документы)в отличие от указанного местоположения (папка 3).
Насколько я понимаю, для настройки этого необходимы функции ChDrive и ChDir, но я не смог заставить его работать.
Кажется, очень похоже на этот вопрос / ответ Excel VBA Сохранение файла в указанном месте , но я не понимаю, как интегрировать это в этот код или если это на самом деле та же проблема.
Любойочень признателен за помощь.
Sub OpenDocSaveforUpdate()
Dim x As Range
Dim y As Range
Dim z As Range
Dim folder As String
Dim folder2 As String
Set wdApp = CreateObject("word.application")
wdApp.Visible = True
Set x = Sheets("Sheet1").Range("B31")
Set y = Sheets("Sheet1").Range("B32")
Set z = Sheets("Sheet1").Range("B33")
folder = "T:\Archive"
folder2 = x & y & z & ".docx"
folder3 = folder & x & y
Filename = (folder & folder2)
Documents.Open (Filename)
ChDrive "T"
ChDir (folder3)
wdApp.ActiveDocument.SaveAs (z & Format(Now, "yyyymmdd") & ".docx")
Set wdapp = Nothing
End Sub