Вывод данных в новый файл

[ahvahsky2008]

Есть документ Excel с данными . В ячейках A , B, C есть даные (сколько именно нам не известно). Надо чтобы макрос взял данные из этих столбцов и вывел их в новый файл формата *.XLS

[ahvahsky2008]

ау...помогите плиз

[tae1980]

Сообщение от ahvahsky2008

Есть документ Excel с данными . В ячейках A , B, C есть даные (сколько именно нам не известно). Надо чтобы макрос взял данные из этих столбцов и вывел их в новый файл формата *.XLS

есть у нас три ячейки... А что дальше? Как выводить, куда писать и т.п. Может быть проще на примере (исходный файла и пару с результатом).

[ahvahsky2008]

Сообщение от tae1980

есть у нас три ячейки... А что дальше? Как выводить, куда писать и т.п. Может быть проще на примере (исходный файла и пару с результатом).

вот файл

[Hugo121]

Sub tt()
With Workbooks.Add
With .Worksheets(1)
[a1].CurrentRegion.Copy .[a1]
End With
End With
End Sub

Запускать из модуля листа исходного файла.

[ahvahsky2008]

Ky открывает новый экземпляр Excel но не копирует данные

[IgorGO]

а так:

Sub tt()
[a1].CurrentRegion.Copy
Workbooks.Add
Worksheets(1).Paste
End Sub

[EducatedFool]

Вариант немного короче:

Sub t()
    Set a = [a1].CurrentRegion: a.Copy Workbooks.Add.sheets(1).[a1]
End Sub

Кто ещё короче напишет?

[IgorGO]

[a1].CurrentRegion.Copy: Workbooks.Add.Sheets(1).Paste - 54 символа
Set a = [a1].CurrentRegion: a.Copy Workbooks.Add.sheets(1).[a1] - 63 символа

[EducatedFool]

Sheets(1).Paste - 54 символа

Игорь, так, конечно, короче, но... после такого кода неплохо было бы ещё и отключать режим копирования:

application.CutCopyMode=0

А это - лишние 25 символов!