Тема: Способы копирования таблиц Excel в Word
Есть куча способов перевести таблицу Excel в Word и обратно. Также связать их. По мимо этого интересна будет тема создания диаграмм.
Отредактировано aap77 (11.09.2012 09:42:41)
Re: Способы копирования таблиц Excel в Word
Способ № 1: Импорт выделенных ячеек из Excel в Word
1. Данный код на прямую создает таблицу Word из выделенных ячеек Excel.
Для работы кода необходимо в редакторе VBA файла Excel подключить объект Word. Открываем меню Tools-->References и ставим галочку на Mictosoft Word.
Вот непосредственно код:
Public Function Table(Rng As Range, booLink As Boolean) As Word.Table
Dim RowsCount As Long, ColCount As Long
Dim wdApp As Word.Application, wdDoc As Word.Document
Dim Cell As Word.Cell
RowsCount = Rng.Rows.Count
ColCount = Rng.Columns.Count
Set wdApp = New Word.Application
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add
If booLink = False Then
Set Table = wdDoc.Tables.Add(wdApp.Selection.Range, RowsCount, ColCount)
For c = 1 To Rng.Columns.Count
For r = 1 To Rng.Rows.Count
With Table
.Cell(r, c).Range.Text = Rng.Cells(r, c).Value
End With
Next r
Next c
Else
Rng.Copy
wdDoc.Application.Selection.Range.PasteExcelTable True, True, True
End If
End Function
Public Sub ConvertToWord()
Dim Tbl As Word.Table
Dim Rng As Word.Range
Set Tbl = Table(Selection, True)
End SubПроцедура Public Sub ConvertToWord в данном коде создает таблицу связанную с файлом Excel:
строка кода Set Tbl = Table(Selection, True)
Если же изменить данную строку на Set Tbl = Table(Selection, False), то в таблицу Word будут просто копироваться данные выделенных ячеек