VBA Range

[Gogic]

Доброго времени суток.
Необходимо скопировать область данных из одной книги в другую, но получаю ошибку следующего плана:
1004 Метод Copy из класса Range завершен неверно.
Скопировать нужно полностью область с форматированием внутри, итд. Внутри Range попадаются объединенные ячейки, то есть через Cells здесь видимо не вариант.
Код следующий:

Код: Выделить всё

FPath = txtPath01.Text
objExcel.Application.Workbooks.Open FPath
objExcel2.Application.Workbooks.Open App.Path & "\template-hat.xls"
    objExcel.Worksheets(1).Range("A2:H16").Copy objExcel2.Worksheets(1).Range("A7")
objExcel.Application.Workbooks.Close
objExcel2.Application.Workbooks.Close

В чем может быть дело?

З.Ы. Пишу не в раздел VBA, потому что работаю из VB6.

[alibek]

А вручную эти области копируются?
Думаю, что нет.

[Денис]

есть еще один полезный совет.
полагаю, что objExcel создается из GetObject?
А если написать тот же код в виде VBA-скрипта (вот тут уместно называть код скриптом) внутри экселя? Тогда, во первых будет работать Intellsence для методов объекта, во вторых будет более подробный вывод ошибок.

[Gogic]

А вручную эти области копируются?

Да.

полагаю, что objExcel создается из GetObject?

Код: Выделить всё

Dim objExcel As New Excel.Application

Excel подключен в References.

А если написать тот же код в виде VBA-скрипта (вот тут уместно называть код скриптом) внутри экселя? Тогда, во первых будет работать Intellsence для методов объекта, во вторых будет более подробный вывод ошибок.

Не думаю, что это что-то кардинально изменит.

[anvg]

Код: Выделить всё

Public Sub testCopy()
    Dim xls As New Excel.Application, pSheet As Worksheet
    Dim pSBook As Excel.Workbook, pDBook As Excel.Workbook
   
    Set pSBook = xls.Workbooks.Open("d:\path\source.xls")
    Set pSheet = pSBook.Worksheets(1)
    Set pDBook = xls.Workbooks.Open("d:\path\dest.xls")
    pSheet.Range("A1:C18").Copy pDBook.Worksheets(1).Range("A20")
    xls.Visible = True
End Sub


В VBA работает такой код. Будет работать и VB6. Если не секрет - зачем создавать два экземпляра Excel.Application?

[Gogic]

В VBA работает такой код. Будет работать и VB6.

Вы похоже не уловили суть вопроса. И мой код будет работать и в VBA, и VB6. Дело в том, что он не будет работать с конкретными файлами, собственно. как и Ваш.
Потому что Ваш ничем не отличается.

Если не секрет - зачем создавать два экземпляра Excel.Application?

Не суть...

[Alec]

Если не секрет - зачем создавать два экземпляра Excel.Application?

Не суть...

По-ходу, именно в этом и суть (и проблема).

Copy method as it applies to the Range object.

Copies the range to the specified range or to the Clipboard.

expression.Copy(Destination)

expression Required. An expression that returns a Range object.

Destination Optional Variant. Specifies the new range to which the specified range will be copied. If this argument is omitted, Microsoft Excel copies the range to the Clipboard.

Т.е. копирует или в указанный диапазон, или в буфер обмена.
Ты пытаешься копировать в диапазон в другой книге, открытой в другом экземпляре Excel, без использования буфера обмена, что, ИМХО, создателями и не планировалось. Сравни, например, специальную вставку в одном и том же экземпляре Excel и в разных.
Попробуй свой кусок кода изменить на:

Код: Выделить всё

FPath = txtPath01.Text
objExcel.Application.Workbooks.Open FPath
objExcel.Application.Workbooks.Open App.Path & "\template-hat.xls"
    objExcel.Worksheets(1).Range("A2:H16").Copy objExcel.Worksheets(2).Range("A7")
objExcel.Application.Workbooks.Close



[Gogic]

Да, действительно, между листами одной книги все копируется, между книгами, открытыми в одном Excel не пробовал, но вероятно тоже.

В конце концов сделал через буфер.

Код: Выделить всё

FPath = txtPath01.Text
objExcel.Application.Workbooks.Open FPath
objExcel2.Application.Workbooks.Open App.Path & "\template-hat.xls"
    objExcel.Worksheets(1).Range("B2:H11").Copy
    objExcel2.Worksheets(1).Range("A7").PasteSpecial xlPasteValues
objExcel.Application.Workbooks.Close
objExcel2.Application.Workbooks.Close