Подскажите, плиз, как решить задачу: нужен макрос, который
1) откроет файл из той же папки и с тем же названием, что и запущенный файл, отличие только: разрешение не xlsm, а csv
2) в открытом csv выполнит деление текста по столбцам (запятая)
3) скопирует значения столбцов A:G из csv-ки
4) вставит их (т.е. только значения, чтобы у меня форматы не испортились) в файл из которого запущен макрос на лист "Res"
5) ну и можно еще закрыть файл csv без сохранения
я в макросах ничего не понимаю, через "записать макрос" - получается выполнить операции по разбивке текста на столбцы, а вот как там прописать какой файл открыть, и что нужно вернуться в файл основной, не знаю.
ну в общем получилось так:
не знаю, нужны тут атачи, или нет, но на всякий случай добавила файл - там есть пути к папке и файлам, и пример csv
заранее спасибо
1) откроет файл из той же папки и с тем же названием, что и запущенный файл, отличие только: разрешение не xlsm, а csv
2) в открытом csv выполнит деление текста по столбцам (запятая)
3) скопирует значения столбцов A:G из csv-ки
4) вставит их (т.е. только значения, чтобы у меня форматы не испортились) в файл из которого запущен макрос на лист "Res"
5) ну и можно еще закрыть файл csv без сохранения
я в макросах ничего не понимаю, через "записать макрос" - получается выполнить операции по разбивке текста на столбцы, а вот как там прописать какой файл открыть, и что нужно вернуться в файл основной, не знаю.
ну в общем получилось так:
Код |
---|
Workbooks.Open Filename:= _ "C:\Users\Root\Downloads\2021.05.16--BL2" Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _ Array(7, 1)), TrailingMinusNumbers:=True Columns("A:G").Select Selection.Copy Windows("2021.05.16--BL2").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub |
не знаю, нужны тут атачи, или нет, но на всякий случай добавила файл - там есть пути к папке и файлам, и пример csv
заранее спасибо
Изменено: vikttur - 14.06.2021 11:58:37