Добрый день. Возникла необходимость пользоваться источником данных, который по дефолту выгружается в формате .csv с разделителями ";" вместо привычных столбцов. При ручном открытии такого файла разделители видимо автоматически превращаются в столбцы и данные превращаются в удобную таблицу. Но при сборе(копировании) этих данных, при чем из нескольких файлов, через VBA по средствам самого распространенного макроса автоматизация такая не работает и на выходе я получаю не удобную собранную таблицу, а столбец, в строках которого зашиты данные с разделителями.
Перечитал много тем, связанных с переформатированием .csv в .xls, но применить их решения никак не получилось((( Я решения понял так, но реализовать его не получилось:
нужно строку Workbooks.Open CSVfilename, local:=True
изменить и как то применить либо в части кода, где идет выбор файлов: avFiles = Application.GetOpenFilename("Excel files(*.csv*),*.csv*", , "Выбор файлов", , True)
Либо уже в части копирования данных, через цикл.
Файл для сбора "Макрос" и файлы как источник данных прилагаю. Может быть у здешних гуру есть идеи решения такой пустяковой проблемы?
Перечитал много тем, связанных с переформатированием .csv в .xls, но применить их решения никак не получилось((( Я решения понял так, но реализовать его не получилось:
нужно строку Workbooks.Open CSVfilename, local:=True
изменить и как то применить либо в части кода, где идет выбор файлов: avFiles = Application.GetOpenFilename("Excel files(*.csv*),*.csv*", , "Выбор файлов", , True)
Либо уже в части копирования данных, через цикл.
Файл для сбора "Макрос" и файлы как источник данных прилагаю. Может быть у здешних гуру есть идеи решения такой пустяковой проблемы?
Не перестаю удивляться возможностям excel и VBA.