Exel как копировать ячейки в другую книгу

[Trusishka]

Можно ли как-нибудь копировать всю информацию ячейки из одной книги в другую? Имеется ввиду чтобы переносилось все - формат, формулы, значения.

Но у меня сложная задача - переносить нужно несколько групп ячеек, которые выберет пользователь. Если можно кусочек кода

[GSerg]

[пользователь выбрал]

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

selection.copy workbooks(2).worksheets(1).cells(1)

[Trusishka]

[пользователь выбрал]

пользователь , нажимая на кнопочки выбирает "месяцы" , столбики с месяцами находятся с одном файле Excel, а их надо скопировать в другой файл Excel.

Как сделать Selected нужный ячеек?

[Ramzes]

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


    Range("A1:B2").Select 'Выбираем диапазон ячеек A1 - B2
    Selection.Copy 'Копируем




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


    Range("A1").Select
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=False ' Специальная вставка - ВСЕ - ок



[Trusishka]

сделал с твоим кодом , но не работает , ошибка "глобал файлед объект", может глянешь почему?


Dim objExcel As Excel.Application
Dim objBook As Excel.Workbook
Dim objSheet As Excel.Worksheet

Dim FN As Integer
FN = FreeFile
Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.Workbooks.Open(Text1.Text)
Set objSheet = objBook.Worksheets(1)

Range("A1:B2").Select 'Âûáèðàåì äèàïàçîí ÿ÷ååê A1 - B2
Selection.Copy

objBook.Close

FN = FreeFile
Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.Workbooks.Open(Text2.Text)
Set objSheet = objBook.Worksheets(1)

Range("A1:B2").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False

objBook.Close

[Pioneer]

попробуй открыть сразу два файла, а затем

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

application.Workbooks(1).Worksheets(1).Range("A1:B10").Copy Destination:=application.Workbooks(2).Worksheets(1).Range("A1:b10")

[Ramzes]

сделал с твоим кодом , но не работает , ошибка "глобал файлед объект", может глянешь почему?


Dim objExcel As Excel.Application
Dim objBook As Excel.Workbook
Dim objSheet As Excel.Worksheet

Dim FN As Integer
FN = FreeFile
Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.Workbooks.Open(Text1.Text)
Set objSheet = objBook.Worksheets(1)

Range("A1:B2").Select 'Â&&&&&&& &&&&&&&& &&&&& A1 - B2
Selection.Copy
objBook.Close

FN = FreeFile
Set objExcel = CreateObject("Excel.Application")
Set objBook = objExcel.Workbooks.Open(Text2.Text)
Set objSheet = objBook.Worksheets(1)

Range("A1:B2").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False

objBook.Close

Вот смотри Range("A1:B2").Select 'Â&&&&&&& &&&&&&&& &&&&& A1 - B2
Selection.Copy

А ты попробуй так

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

objBook.Range("A1:B2").Select
Selection.Copy


[/code]

[Ramzes]

Смотри, в том коде который ты выложил ты не ссылаешся на книгу которую открыл, и бейсик материться он же не пророк откуда ему знать с какой имено книгой ты хочешь работать.