ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как объединить?
8 сообщений из 8, страница 1 из 1
как объединить?
    #34495652
answer1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
answer1
Гость
Есть 80 файлов .csv, в каждом заполнены только ячейки в столбце A
Есть ли способ быстро объединить их в один файл.
Подскажите, плиз. Очень нужно.
...
Рейтинг: 0 / 0
28.04.2007, 14:38:29
| Ответить | Цитировать | Написать  
как объединить?
    #34495761
Granata005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Granata005
Участник
Можно было конечно написать красивый макрос котрый открывал бы папку папку и находил бы там все файлы, но мне лень...

может тебе такое подойдёт?

открываешь все файлы и запускаешь этот макрос:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub Макрос1()
For i =  1  To  80 
    Windows("FileToCopy-" & Trim(Str(i))).Activate
    Sheets( 1 ).Select
    Columns("A:A").Select
    Selection.Copy
    Windows("Книга1").Activate
    Sheets( 1 ).Select
    Columns(i).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
Next i
End Sub

Файлы ("FileToCopy") должны включать цифру 1-80... всё копируется в книгу1

некрасиво и глупо, но мне лень...
...
Рейтинг: 0 / 0
28.04.2007, 15:02:18
| Ответить | Цитировать | Написать  
как объединить?
    #34495884
answer1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
answer1
Гость
Спасибо. А можно так, чтобы все файлы в папке? Просто файлов много и переименовывать очень муторно.
...
Рейтинг: 0 / 0
28.04.2007, 15:24:12
| Ответить | Цитировать | Написать  
как объединить?
    #34495897
Granata005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Granata005
Участник
Писать лень... :( а переименовать можно в Тотал Командере - Групповое переименование - Счётчик...
...
Рейтинг: 0 / 0
28.04.2007, 15:27:30
| Ответить | Цитировать | Написать  
как объединить?
    #34496049
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
Тут в разделе Copy/Paste/Merge examples есть все, что тебе нужно:

http://www.rondebruin.nl/tips.htm

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
28.04.2007, 16:12:21
| Ответить | Цитировать | Написать  
как объединить?
    #34497289
NF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NF
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Set fs = Application.FileSearch
With fs
   .LookIn = path
   .Filename = "*.csv"
   .SearchSubFolders = True
   If .Execute >  0  Then
       For i =  1  To .FoundFiles.Count
             // ТВОИ ДЕЙСТВИЯ
       Next i
   End If
...
Рейтинг: 0 / 0
29.04.2007, 23:18:56
| Ответить | Цитировать | Написать  
как объединить?
    #34497342
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KL (XL)
Участник
NF
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Set fs = Application.FileSearch
With fs
   .LookIn = path
   .Filename = "*.csv"
   .SearchSubFolders = True
   If .Execute >  0  Then
       For i =  1  To .FoundFiles.Count
             // ТВОИ ДЕЙСТВИЯ
       Next i
   End If


http://bbs.vbstreets.ru/viewtopic.php?p=6653573#6651212

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
30.04.2007, 03:58:16
| Ответить | Цитировать | Написать  
как объединить?
    #34497720
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
copy *.csv bigfile.csv
...
Рейтинг: 0 / 0
30.04.2007, 18:14:04
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как объединить?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=%D0%BD%D0%BE%D1%80%D0%BC%D0%B0%D0%BB%D1%8C%D0%BD%D1%8B%D0%B9+ReadyBoost&author_mode=last_topics&do_search=1]:
 0ms
get settings:
 5ms
get forum list:
 11ms
get settings:
 10ms
get forum list:
 19ms
get settings:
 7ms
get forum list:
 10ms
get settings:
 6ms
get forum list:
 13ms
get settings:
 8ms
get forum list:
 15ms
get settings:
 8ms
get forum list:
 15ms
get settings:
 8ms
get forum list:
 13ms
get settings:
 7ms
get forum list:
 14ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 41ms
get topic data:
 12ms
get first new msg:
 43ms
get forum data:
 2ms
get page messages:
 69ms
get tp. blocked users:
 1ms
others: 12876ms
total:  13239ms
созд. / загр.: 13239ms
x
x
Закрыть


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