Через Ексель Открыть файл ВОРД и сохранить файл под определенным именем - VBA

Узнай цену своей работы

Формулировка задачи:

Открываю через ексель файлы ворд и выполняю макрос ворд, но не получается сохранить файл под указанным именем ни такое
Листинг программы
  1. objWrdApp.Application.SaveAs ДатаСоздания.Value
ни это
Листинг программы
  1. ActiveDocument.SaveAs Filename:="Данные на " & ДатаСоздания & ".doc", FileFormat:=wdFormatDocument
не работает ОТдельно через ворд
Листинг программы
  1. ActiveDocument.SaveAs Filename:="Данные на " & ДатаСоздания & ".doc", FileFormat:=wdFormatDocument
работает, а с выховом ворда через ексель не работает. Подскажите плз как сохранить файл?
Листинг программы
  1. Sub ОбратоткаВордФайлов ()
  2. Dim coll As Collection, ПутьКПапке$, МаскаПоиска$, ГлубинаПоиска%
  3. ПутьКПапке$ = [c1] ' берём из ячейки c1
  4. МаскаПоиска$ = [c2] ' берём из ячейки c2
  5. ГлубинаПоиска% = Val([c3]) ' берём из ячейки c3
  6. If ГлубинаПоиска% = 0 Then ГлубинаПоиска% = 999 ' без ограничения по глубине
  7. Set coll = FilenamesCollection(ПутьКПапке$, МаскаПоиска$, ГлубинаПоиска%)
  8.  
  9. For i = 1 To coll.Count ' перебираем все элементы коллекции, содержащей пути к файлам
  10. НомерФайла = i
  11. ПутьКФайлу = coll(i)
  12. ИмяФайла = Dir(ПутьКФайлу)
  13. ДатаСоздания = FileDateTime(ПутьКФайлу)
  14. РазмерФайла = FileLen(ПутьКФайлу)
  15. 'While ИмяФайла <> ""
  16. Dim objWrdApp As Object
  17. Dim objWrdDoc As Object
  18. On Error Resume Next
  19. Set objWrdApp = GetObject(, "Word.Application")
  20. If objWrdApp Is Nothing Then
  21. Set objWrdApp = CreateObject("Word.Application")
  22. Set objWrdDoc = objWrdApp.Documents.Open(ПутьКФайлу)
  23. objWrdApp.Visible = True
  24. End If
  25. Set objWrdDoc = objWrdApp.Documents.Open(ПутьКФайлу)
  26. objWrdApp.Visible = True
  27. objWrdApp.Activate
  28. objWrdApp.Application.Run "Normal.NewMacros.F_макросВОРД"
  29.  
  30. objWrdApp.Application.SaveAs ДатаСоздания.Value
  31. ActiveDocument.SaveAs Filename:="Данные на " & ДатаСоздания & ".doc", FileFormat:=wdFormatDocument

Решение задачи: «Через Ексель Открыть файл ВОРД и сохранить файл под определенным именем»

textual
Листинг программы
  1. Dim strFileName$, dtFile As Date, i&
  2. Dim objWrdApp As Object, objWrdDoc As Object
  3. Set objWrdApp = CreateObject("Word.Application")
  4.  
  5. For i = 1 To coll.Count
  6.     ...
  7.     strFileName = coll(i)
  8.     dtFile = DateValue(FileDateTime(strFileName))
  9.    
  10.     Set objWrdDoc = objWrdApp.Documents.Open(strFileName)
  11.     objWrdApp.Run "Normal.NewMacros.F_макросВОРД"
  12.     objWrdDoc.SaveAs "C:\Данные на " & dtFile & ".doc", 0 'wdFormatDocument
  13.    objWrdDoc.Close -1 'wdSaveChanges
  14. Next
  15.  
  16. objWrdApp.Quit

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.462 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы