HELP!!! Macros на объединение csv файлов в один

[alex77755]

конечно, есть решение простое, открывать каждый файл, копировать всю информацию,

Зачем вообще открывать файлы в ексел?
Ведь csv текстовой формат.
Открывать по очереди как текстовой файл

a=CreateObject("Scripting.FileSystemObject").Getfile(Name).OpenasTextStream(1).ReadAll

А сборный открыть на дописывание (for Append)

[Hugo121]

Объединить все csv в один (согласно названию темы) можно простой командой
copy /b *.* общий.csv
Но в теме задача другая, не совпадает с заголовком темы.
Скопировать диапазон как значения можно через массив, примерно так:

a=.Resize(.End(xlDown).Row, .End(xlToRight).Column).value
ThisWorkbook.Worksheets(ShtNm(i)).Cells(1).resize(ubound(a),ubound(a,2)).value=a

[sanych_09]

Спасибо за советы. я человек далекий от программирования, уж простите если задаю глупые вопросы...

тему со сборкой информации из разных файлов и разноса их по разным страницам можно закрыть. если есть другие методы (может быть быстрее идет обработка информации) можете поделиться. метод предложенный IgorGO меня устроил на 100%, за это ему отдельное спасибо


Hugo121 прав, нужно было может быть отдельную тему завести, или найти похожую (я видел) и туда свой дополнительный коммент написать. но я решил что так будет легче, так как полный код макроса уже был написан выше. просто хотелось дополнить существующий макрос специальной вставкой: вставить только как значения.

a=.Resize(.End(xlDown).Row, .End(xlToRight).Column).value
ThisWorkbook.Worksheets(ShtNm(i)).Cells(1).resize(ubound(a),ubound(a,2)).value=a

выдало ошибку Expected Array, может нужно было правильно переменную "a" как-то описать

[sanych_09]

вроде как заработала формула. и вставляются только значения. Hugo121 спасибо!!!!!!

порылся на форуме и добавил в Dim a(), почему скобки стоят, пока не знаю
нужно было правильно задать переменную "а"

а еще методы есть как можно в макросе сделать так, чтобы вставка была только значений?

With Workbooks.Open(CuDir & Dir(CuDir & FlNm(i))).Worksheets(1).Cells(1)
      .Resize(.End(xlDown).Row, .End(xlToRight).Column).Copy ThisWorkbook.Worksheets(ShtNm(i)).Cells(1)

[Hugo121]

Попробуйте вот так, разбив на две строки:

 .Resize(.End(xlDown).Row, .End(xlToRight).Column).Copy
ThisWorkbook.Worksheets(ShtNm(i)).Cells(1).PasteSpecial Paste:=xlPasteValues

[sanych_09]

Тоже работает...
но каждый раз вылетает окно..дословно писать не буду: но смысл такой В буфере содержится большой объем данных... сохранить его для следующей вставки...

[Hugo121]

Попробуйте завершить код такой строкой:

Application.CutCopyMode = False

[Djeki]

Попробуйте вот так

Application.DisplayAlerts = False ' вылючаем все предупреждения

[sanych_09]

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

Попробуйте завершить код такой строкой:

Application.CutCopyMode = False

все работает! спасибо!