ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как копировать лист при помощи макроса...
19 сообщений из 19, страница 1 из 1
Как копировать лист при помощи макроса...
    #34329011
pseregap
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pseregap
Участник
Подскажите, пожалуйста, как можно копировать лист из открытой книги при помощи макроса, причем имя вновь создаваемого файла должно зависеть от содержания ячейки А1 (например, данные в ячейке А1 - copy4.xls или copy5.М02) по фиксированному пути C:\copy\???
Заранее благодарен всем, кто ответит!
...
Рейтинг: 0 / 0
14.02.2007, 08:52:05
| Ответить | Цитировать | Написать  
Как копировать лист при помощи макроса...
    #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:49:33
| Ответить | Цитировать | Написать  
Как копировать лист при помощи макроса...
    #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, 10:55:10
| Ответить | Цитировать | Написать  
Как копировать лист при помощи макроса...
    #34329697
pseregap
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pseregap
Участник
Всем большое спасибо!
Времени посмотреть пока нет, посмотрю позже.
Еще раз БОЛЬШОЕ спасибо!
P.S. Сам не допетрил :)
...
Рейтинг: 0 / 0
14.02.2007, 12:01:36
| Ответить | Цитировать | Написать  
Как копировать лист при помощи макроса...
    #34539940
Granata005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Granata005
Участник
Не понимаю... какая-то заморочка у меня.. всегда работало, а сейчас не хочет..

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

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

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

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

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

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

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

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

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

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

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

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

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

Код: plaintext
Worksheets.Copy
или
Код: plaintext
Sheets.Copy
...
Рейтинг: 0 / 0
29.05.2007, 11:30:49
| Ответить | Цитировать | Написать  
Как копировать лист при помощи макроса...
    #34557340
Granata005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Granata005
Участник
Буга-га ))))
...
Рейтинг: 0 / 0
29.05.2007, 11:51:27
| Ответить | Цитировать | Написать  
Как копировать лист при помощи макроса...
    #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
21.07.2007, 00:02:17
| Ответить | Цитировать | Написать  
Как копировать лист при помощи макроса...
    #34675701
ballist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ballist
Гость
GehaПодскажите, пожалуйста, как можно копировать лист из открытой книги при помощи макроса, при этом запрашивая папку для сохранения.


InputBox

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


Значит, не указано в ячейке.
...
Рейтинг: 0 / 0
22.07.2007, 17:28:28
| Ответить | Цитировать | Написать  
Как копировать лист при помощи макроса...
    #34718060
drugminidrug
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drugminidrug
Гость
Кто подскажет, как копировать листы EXCEL в новый фаил EXCEL, но все листы должны получиться в текстовом формате. Т.е в место функций только результаты.
...
Рейтинг: 0 / 0
09.08.2007, 17:57:34
| Ответить | Цитировать | Написать  
Как копировать лист при помощи макроса...
    #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:20:20
| Ответить | Цитировать | Написать  
Как копировать лист при помощи макроса...
    #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:34:05
| Ответить | Цитировать | Написать  
Как копировать лист при помощи макроса...
    #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:39:13
| Ответить | Цитировать | Написать  
Как копировать лист при помощи макроса...
    #34718231
drugminidrug
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
drugminidrug
Гость
Можно её удалить, но лучше вообще код в другой книге держать!

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

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

Получилось, я макрос записал и подсмотрел.
...
Рейтинг: 0 / 0
09.08.2007, 18:57:26
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как копировать лист при помощи макроса...
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34675701&tid=2182479]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 33ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 2ms
others: 196ms
total:  297ms
созд. / загр.: 297ms
x
x
Закрыть


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