Импорт данных из Excel в таблицу колонтитула Word - VBA
Формулировка задачи:
Добрый день уважаемые ГУРУ!
Нужна Ваша помощь:
Которую неделю пытаюсь добиться полноценного формирования спецификации (.doc) из базы excel.
Двигаюсь по пути Find .Text [Х]-->.Replacement.Text [Y]
Но никак не получается корректно войти в сам колонтитул Word (нижний для первой страницы) и в "штамп" который представляет из себя таблицу.
Очень рассчитываю на Вашу помощь!
Вариант со "слиянием" пробовал,- не совсем то, что мне нужно....
Решение задачи: «Импорт данных из Excel в таблицу колонтитула Word»
textual
Листинг программы
Public Sub Excel_Экспорт_Word_C()
'Запуск Word
ПутьШаблона = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайлаШаблона)
Dim WD As Object
Dim Doc As Object
On Error Resume Next
Set WD = GetObject(, "Word.Application")
If WD Is Nothing Then Set WD = CreateObject("Word.Application")
Set Doc = WD.Documents.Open(ПутьШаблона)
Dim имя_файла1 As String
имя_файла1 = ActiveWorkbook.Name
Dim Путь_Файла1 As String
Путь_Файла1 = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, имя_файла1)
Dim Книга As Workbook
Set Книга = Application.ActiveWorkbook
'Определение (заполненного) количества строк и столбцов Книги
Stroka = 2
Книга.Worksheets("Отчет_С").Activate '.Select
Do Until Cells(Stroka, 1).Value = "" 'Перебор строк - пока не встретиться "пустая"
Stroka = Stroka + 1
Loop
Количество_Строк = Stroka
Doc.SaveAs2 Filename:=ThisWorkbook.Path & "\Новый файл.docx", _
FileFormat:=12 'здесь определись с именем Word файла
Set Doc = WD.ActiveDocument
Dim Таблица As Object
Set Таблица = Doc.Tables(1)
For Строка = 1 To Количество_Строк - Таблица.Rows.Count
Таблица.Rows.Add 'Добавление недостающих строк таблицы
Next
For Строка = 2 To Таблица.Rows.Count
For Столбец = 1 To Таблица.Columns.Count
'Заполнение ячеек таблицы
Таблица.Cell(Строка, Столбец).Range.Text = Format(Книга.Worksheets("Отчет_С").Cells(Строка, Столбец))
Next Столбец
Next Строка
Doc.Save
Set Doc = Nothing
WD.Quit
Set WD = Nothing
End Sub