Через Ексель Открыть файл ВОРД и сохранить файл под определенным именем - VBA
Формулировка задачи:
Открываю через ексель файлы ворд и выполняю макрос ворд,
но не получается сохранить файл под указанным именем
ни такое
ни это
не работает
ОТдельно через ворд
работает, а с выховом ворда через ексель не работает.
Подскажите плз как сохранить файл?
Листинг программы
- objWrdApp.Application.SaveAs ДатаСоздания.Value
Листинг программы
- ActiveDocument.SaveAs Filename:="Данные на " & ДатаСоздания & ".doc", FileFormat:=wdFormatDocument
Листинг программы
- ActiveDocument.SaveAs Filename:="Данные на " & ДатаСоздания & ".doc", FileFormat:=wdFormatDocument
Листинг программы
- Sub ОбратоткаВордФайлов ()
- Dim coll As Collection, ПутьКПапке$, МаскаПоиска$, ГлубинаПоиска%
- ПутьКПапке$ = [c1] ' берём из ячейки c1
- МаскаПоиска$ = [c2] ' берём из ячейки c2
- ГлубинаПоиска% = Val([c3]) ' берём из ячейки c3
- If ГлубинаПоиска% = 0 Then ГлубинаПоиска% = 999 ' без ограничения по глубине
- Set coll = FilenamesCollection(ПутьКПапке$, МаскаПоиска$, ГлубинаПоиска%)
- For i = 1 To coll.Count ' перебираем все элементы коллекции, содержащей пути к файлам
- НомерФайла = i
- ПутьКФайлу = coll(i)
- ИмяФайла = Dir(ПутьКФайлу)
- ДатаСоздания = FileDateTime(ПутьКФайлу)
- РазмерФайла = FileLen(ПутьКФайлу)
- 'While ИмяФайла <> ""
- Dim objWrdApp As Object
- Dim objWrdDoc As Object
- On Error Resume Next
- Set objWrdApp = GetObject(, "Word.Application")
- If objWrdApp Is Nothing Then
- Set objWrdApp = CreateObject("Word.Application")
- Set objWrdDoc = objWrdApp.Documents.Open(ПутьКФайлу)
- objWrdApp.Visible = True
- End If
- Set objWrdDoc = objWrdApp.Documents.Open(ПутьКФайлу)
- objWrdApp.Visible = True
- objWrdApp.Activate
- objWrdApp.Application.Run "Normal.NewMacros.F_макросВОРД"
- objWrdApp.Application.SaveAs ДатаСоздания.Value
- ActiveDocument.SaveAs Filename:="Данные на " & ДатаСоздания & ".doc", FileFormat:=wdFormatDocument
Решение задачи: «Через Ексель Открыть файл ВОРД и сохранить файл под определенным именем»
textual
Листинг программы
- Dim strFileName$, dtFile As Date, i&
- Dim objWrdApp As Object, objWrdDoc As Object
- Set objWrdApp = CreateObject("Word.Application")
- For i = 1 To coll.Count
- ...
- strFileName = coll(i)
- dtFile = DateValue(FileDateTime(strFileName))
- Set objWrdDoc = objWrdApp.Documents.Open(strFileName)
- objWrdApp.Run "Normal.NewMacros.F_макросВОРД"
- objWrdDoc.SaveAs "C:\Данные на " & dtFile & ".doc", 0 'wdFormatDocument
- objWrdDoc.Close -1 'wdSaveChanges
- Next
- objWrdApp.Quit
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д