ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Срочно.На VBA excel нужно прокопировать файлы и изменять только название файла.
10 сообщений из 10, страница 1 из 1
Срочно.На VBA excel нужно прокопировать файлы и изменять только название файла.
    #34309343
Airattahir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Airattahir
Гость
Пожалуйста помогите.
У меня есть файл заготовка. Мне нужно посредством VBA Excel сделать несколько копий этого файла, и каждому вновь созданому файлу дать оригинальное имя (bak1, bak2, bak3,... и.т.д).

Заранее благодарю!
...
Рейтинг: 0 / 0
06.02.2007, 14:01:28
| Ответить | Цитировать | Написать  
Срочно.На VBA excel нужно прокопировать файлы и изменять только название файла.
    #34309628
Женя!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Женя!
Гость
Вам надо копировать открытый файл или нет?
...
Рейтинг: 0 / 0
06.02.2007, 15:10:53
| Ответить | Цитировать | Написать  
Срочно.На VBA excel нужно прокопировать файлы и изменять только название файла.
    #34309684
Женя!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Женя!
Гость
Sub Macros_в_книге_22()


ActiveWorkbook.SaveAs Filename:= _
"D:\Documents and Settings\\Мои документы\Книга333.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
Workbooks.Open Filename:= _
"D:\Documents and Settings\Мои документы\Книга22.xls"
Windows("Книга333.xls").Activate
Windows("Книга333.xls").Close
End Sub
...
Рейтинг: 0 / 0
06.02.2007, 15:28:05
| Ответить | Цитировать | Написать  
Срочно.На VBA excel нужно прокопировать файлы и изменять только название файла.
    #34309700
arseny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
arseny
Участник
Из сабжа видно, что надо работать с файлами, видимо не с самой кногой...
По ентому вариантик с ФСО:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub CopyFileBackup(szFile As String)
    Dim FSO As FileSystemObject: Set FSO = New FileSystemObject
    Dim lIndex As Integer: lIndex =  1 
    Dim szBaseName As String: szBaseName = FSO.GetBaseName(szFile)
    
    
    
    ChDrive szFile
    ChDir FSO.GetFile(szFile).ParentFolder
    
    Do
        If Not FSO.FileExists(szBaseName & ".bak" & lIndex) Then
            FileCopy szFile, szBaseName & ".bak" & lIndex
            
            Exit Do
        End If
        
        lIndex = lIndex +  1 
    Loop While True
End Sub
...
Рейтинг: 0 / 0
06.02.2007, 15:32:36
| Ответить | Цитировать | Написать  
Срочно.На VBA excel нужно прокопировать файлы и изменять только название файла.
    #34310125
Airattahir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Airattahir
Гость
Если честно мне не очень понятно. мне надо продублировать файл заготовку и как указать директорию.
...
Рейтинг: 0 / 0
06.02.2007, 17:27:25
| Ответить | Цитировать | Написать  
Срочно.На VBA excel нужно прокопировать файлы и изменять только название файла.
    #34312558
arseny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
arseny
Участник
Да в принципе в приведённом примере у тебя и файл дублируется (szFile) и там же есть у тебя папка...
ChDir FSO.GetFile(szFile).ParentFolder - тебя переводит в папку с исходным файлом, а FSO.GetFile(szFile).ParentFolder.Path и будет твоя папка.
...
Рейтинг: 0 / 0
07.02.2007, 13:58:23
| Ответить | Цитировать | Написать  
Срочно.На VBA excel нужно прокопировать файлы и изменять только название файла.
    #34313112
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Все намного проще:

Код: plaintext
1.
2.
Sub tets()
    FileCopy "c\temp\original.xls", "c\temp\copy.xls"
End Sub


KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
07.02.2007, 15:58:04
| Ответить | Цитировать | Написать  
Срочно.На VBA excel нужно прокопировать файлы и изменять только название файла.
    #34328933
pseregap
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pseregap
Участник
А как создать копию книги с именем и расширением взятой из исходной книги в ячейке А1, например, А1:=0214.xls (или 0214.Р01)
...
Рейтинг: 0 / 0
14.02.2007, 08:07:26
| Ответить | Цитировать | Написать  
Срочно.На VBA excel нужно прокопировать файлы и изменять только название файла.
    #34329313
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
pseregapА как создать копию книги с именем и расширением взятой из исходной книги в ячейке А1, например, А1:=0214.xls (или 0214.Р01)
Код: plaintext
1.
2.
Sub tets()
    FileCopy "c\temp\original.xls", "c\temp\" & Range("A1")
End Sub
...
Рейтинг: 0 / 0
14.02.2007, 10:42:10
| Ответить | Цитировать | Написать  
Срочно.На VBA excel нужно прокопировать файлы и изменять только название файла.
    #34329316
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
vkodor pseregapА как создать копию книги с именем и расширением взятой из исходной книги в ячейке А1, например, А1:=0214.xls (или 0214.Р01)
Код: plaintext
1.
2.
Sub tets()
    FileCopy "c:\temp\original.xls", "c:\temp\" & Range("A1")
End Sub
...
Рейтинг: 0 / 0
14.02.2007, 10:42:50
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Срочно.На VBA excel нужно прокопировать файлы и изменять только название файла.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=295&tid=2183451]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 26ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 209ms
total:  319ms
созд. / загр.: 319ms
x
x
Закрыть


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