Страницы: 1
RSS
Скопировать таблицу Excel в Word vba
 
Добрый день, подскажите, пожалуйста, как можно перенести данные из таблицы Excel по щелчку кнопки в Word
видела похожие темы, пыталась преобразовать код под мою задачу - не выходит.
Пока смогла написать только вот это:

Код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim sFileName As String
Dim iLastRow As Long, i As Long
iLastRow = Cells(1, Columns.Count).End(xlToLeft).Column
sFileName = Cells(1, 1)
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Add
WordApp.Documents(1).Tables.Add Range:=WordApp.Selection.Range, NumRows:=2, NumColumns:=iLastRow
WordApp.Selection.Font.Bold = True
WordApp.Visible = True
 
For i = 1 To 2
For j = 1 To iLastRow
 
With WordApp
 
.Documents(1).Tables(1).Cell(i, j).Range.Text = Cells(i, j)
.Documents(1).Tables(1).Cell(i, j).Range.Text = Cells(i, j)
 
End With
 
Set WordApp = Nothing
Set doc = Nothing
Next
Next
 
WordApp.ActiveDocument.SaveAs Filename:=sFileName & ".doc"
End Sub

Макрос вылетает на втором витке цикла. Подскажите, что можно сделать?
 
посмотрите это:
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=51095&MID=424250#message42425...
Страницы: 1
Читают тему
Наверх
Loading...