Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как копировать лист при помощи макроса... / 19 сообщений из 19, страница 1 из 1
14.02.2007, 08:52:05
    #34329011
pseregap
pseregap
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
Подскажите, пожалуйста, как можно копировать лист из открытой книги при помощи макроса, причем имя вновь создаваемого файла должно зависеть от содержания ячейки А1 (например, данные в ячейке А1 - copy4.xls или copy5.М02) по фиксированному пути C:\copy\???
Заранее благодарен всем, кто ответит!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.02.2007, 10:49:33
    #34329344
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Sub Test()
    myName = ActiveWorkbook.ActiveSheet.Range("A1")
    Sheets("Лист1").Copy
    ActiveWorkbook.SaveAs Filename:="C:\copy\" & myName, FileFormat:=xlNormal _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    ActiveWorkbook.Close
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.02.2007, 10:55:10
    #34329365
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
еще вариант:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub test2()
    Dim Path As String, wb As Workbook
    Path = "C:\copy\"
    Set wb = Workbooks.Add
    With ThisWorkbook.Sheets("Лист1")
        .Copy wb.Sheets( 1 )
        wb.SaveAs Path & .Range("A1")
        wb.Close True
    End With
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.02.2007, 12:01:36
    #34329697
pseregap
pseregap
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
Всем большое спасибо!
Времени посмотреть пока нет, посмотрю позже.
Еще раз БОЛЬШОЕ спасибо!
P.S. Сам не допетрил :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2007, 15:39:51
    #34539940
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
Не понимаю... какая-то заморочка у меня.. всегда работало, а сейчас не хочет..

на листе много ссылок на внешние файлы....он формируется в цике и копируется на новый лист...

и при простом копировании
Код: plaintext
 Sheets("Счет").Copy Before:=Sheets("Сервис")
и когда количество листов = 29 происходит ошибка..
Метод Копи из класса Вёркщит завершён неверно...

т.е. как бы ограничение на количество листов <30...
долго пытается скопировать.. думает, но ничего не возвращает...

тоже самое и вручную... :-( в чём дело... ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2007, 15:59:48
    #34540005
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
Granata005Не понимаю... какая-то заморочка у меня.. всегда работало, а сейчас не хочет..

на листе много ссылок на внешние файлы....он формируется в цике и копируется на новый лист...

и при простом копировании
Код: plaintext
 Sheets("Счет").Copy Before:=Sheets("Сервис")
и когда количество листов = 29 происходит ошибка..
Метод Копи из класса Вёркщит завершён неверно...

т.е. как бы ограничение на количество листов <30...
долго пытается скопировать.. думает, но ничего не возвращает...

тоже самое и вручную... :-( в чём дело... ?

Может какое-нибуть ограничение на количество форматов или ещё что-нибуть. Или просто файл уже тяжёлый!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2007, 16:42:50
    #34540169
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
64 метра... :(

как бы определить в чём ограничение... :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.05.2007, 17:08:41
    #34540253
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
Granata00564 метра... :(

как бы определить в чём ограничение... :(

У меня бывало и при 40 метрах уже лист не добавлялся. Но я с этим бороться не стал. В любом случае такие тяжёлые файлы ни к чему, тут другим путём мне кажется нужно идти.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2007, 10:30:16
    #34557008
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
А как программно выделить все листы перед копированием?
кроме Array никак?
может быть у кого-нибудь есть образец?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2007, 11:30:49
    #34557249
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
Granata005А как программно выделить все листы перед копированием?
кроме Array никак?
может быть у кого-нибудь есть образец?

Не поверишь...

Код: plaintext
Worksheets.Copy
или
Код: plaintext
Sheets.Copy
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.05.2007, 11:51:27
    #34557340
Granata005
Granata005
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
Буга-га ))))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.07.2007, 00:02:17
    #34674748
Geha
Geha
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
Подскажите, пожалуйста, как можно копировать лист из открытой книги при помощи макроса, при этом запрашивая папку для сохранения. И еще почемуто при использовании макроса
Sub test2()
Dim Path As String, wb As Workbook
Path = "C:\copy\"
Set wb = Workbooks.Add
With ThisWorkbook.Sheets("Лист1")
.Copy wb.Sheets(1)
wb.SaveAs Path & .Range("A1")
wb.Close True
End With
End Sub

не присваивается расширение файла xls?
Заранее спасибо!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2007, 17:28:28
    #34675701
ballist
ballist
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
GehaПодскажите, пожалуйста, как можно копировать лист из открытой книги при помощи макроса, при этом запрашивая папку для сохранения.


InputBox

Geha
И еще почемуто при использовании макроса
не присваивается расширение файла xls?


Значит, не указано в ячейке.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2007, 17:57:34
    #34718060
drugminidrug
drugminidrug
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
Кто подскажет, как копировать листы EXCEL в новый фаил EXCEL, но все листы должны получиться в текстовом формате. Т.е в место функций только результаты.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2007, 18:20:20
    #34718149
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
drugminidrugКто подскажет, как копировать листы EXCEL в новый фаил EXCEL, но все листы должны получиться в текстовом формате. Т.е в место функций только результаты.
Что-то вроде этого попробуйте
Код: plaintext
1.
2.
3.
Worksheets.Copy
For Each sh in ActiveWorkbook.Worksheets
 sh.usedrange.value = sh.usedrange.value
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2007, 18:34:05
    #34718198
drugminidrug
drugminidrug
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
Что-то вроде этого попробуйте
Код: plaintext
1.
2.
3.
Worksheets.Copy
For Each sh in ActiveWorkbook.Worksheets
 sh.usedrange.value = sh.usedrange.value
Next
[/quot]

Работает! Только и кнопку копирует, а не нодо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2007, 18:39:13
    #34718215
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
drugminidrugЧто-то вроде этого попробуйте
Код: plaintext
1.
2.
3.
Worksheets.Copy
For Each sh in ActiveWorkbook.Worksheets
 sh.usedrange.value = sh.usedrange.value
Next


Работает! Только и кнопку копирует, а не нодо.[/quot]

Можно её удалить, но лучше вообще код в другой книге держать!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2007, 18:45:46
    #34718231
drugminidrug
drugminidrug
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
Можно её удалить, но лучше вообще код в другой книге держать!

А так, чтобы само всё и не морочится.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2007, 18:57:26
    #34718255
drugminidrug
drugminidrug
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как копировать лист при помощи макроса...
drugminidrugМожно её удалить, но лучше вообще код в другой книге держать!

А так, чтобы само всё и не морочится.

Получилось, я макрос записал и подсмотрел.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как копировать лист при помощи макроса... / 19 сообщений из 19, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 372ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2182479]:
 0ms
get settings:
 7ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 46ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 66ms
get tp. blocked users:
 2ms
others: 213ms
total:  372ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]