Доброго времени суток! Пытаюсь выполнить урок по написанию кода, выполняющего копирование данных с листа Excel в ворд. Застрял на ошибке в строке диапазона. Помогите.
Код
Private Sub CommandButton1_Click()
Dim tblRange As Excel.Range
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim WordTable As Word.Table
Set tblRange = ThisWorkbook.Worksheets("Sheet1").Range("K8:Q23")
On Error Resume Next
Set WordApp = GetObject(class:="Word.Application")
If WordApp Is Nothing Then Set WordApp = CreateObject(class:="Word.Application")
WordApp.Visible = True
WordApp.Activate
Set WordDoc = WordApp.Documents.Add
tblRange.Copy
WordDoc.Paragraphs(1).Range.PasteExcelTable _
LinkedToExcel:=False, _
WordFormatting:=False, _
RTF:=False
Set WordTable = WordDoc.Tables(1)
WordTable.AutoFitBehavior (wdAutoFitWindow)
End Sub
БМВ написал: но пользоваться им или нет -это уже вопрос другой
да вообще без проблем. Я же не говорил, что это нарушение и все такое. Просто написал, что пора бы уже освоить эту кнопку Вопрос в наглядности, а дело-то личное. В следующий раз я без всяких вопросов пройду мимо темы в целом, т.к. читать в таком виде коды здесь не удобно, а выглядывать ошибки тем более. А замечания и все прочее - это удел модераторов
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...