1 Тема от Klopus

  • Klopus
  • рядовой
  • Неактивен
  • Зарегистрирован: 08.05.2014
  • Сообщений: 2

Тема: эксель в ворд

Есть файлик эселя с несколькими таблица, есть вордовский шаблон в который нужно перегнать эти таблицы. Но используемый мной макрос:

Sub exltowrd()
    Dim WrdApp As Word.Application
    Set WrdApp = New Word.Application
    Set WrdDoc = WrdApp.Documents.Open("C:\ïðîáà.dotx")
    WrdApp.Visible = True
    WrdDoc.Activate
    For i = 2 To 3
        For j = 2 To 3
            WrdDoc.Application.Selection.Tables(1).Cell(i, j).Select
            txt = Sheets(1).Cells(i, j).Value
            WrdDoc.Application.Selection.TypeText Text:=CStr(txt)
        Next j
    Next i
End Sub

выдает ошибку на строке

WrdDoc.Application.Selection.Tables(1).Cell(i, j).Select

я так понимаю что программа не может найти таблицу в шаблоне. или нет?

Прошу совета, может такие вещи совсем по другому делаются? smile

2 Ответ от aap77

  • aap77
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 12.09.2011
  • Сообщений: 925
  • Поблагодарили: 243
  • За сообщение: 1

Re: эксель в ворд

В принципе Вы правильно понимаете, т.к. Selection.Tables(1) есть выделенная таблица, а курсор при открытии файла Word стоит вне любой таблицы.
Если у Вас каждая таблица Word-шаблона соответствует отдельному листу Excel, то вместо

WrdDoc.Application.Selection.Tables(1).Cell(i, j).Select
txt = Sheets(1).Cells(i, j).Value
WrdDoc.Application.Selection.TypeText Text:=CStr(txt)

надо сделать так

WrdDoc.Tables(1).Cell(i, j).Range.Text = CStr(Sheets(1).Cells(i, j).Value)

3 Ответ от Klopus

  • Klopus
  • рядовой
  • Неактивен
  • Зарегистрирован: 08.05.2014
  • Сообщений: 2

Re: эксель в ворд

То что нужно! спасибо!