Страницы: 1
RSS
макрос -открыть файл из той же папки и с тем же названием но с расширением 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
 
Код
Workbooks.Open left(thisworkbook.FullName, instrrev(thisworkbook.FullName, ".")) & "csv"
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Ігор Гончаренко, ура, спасибо!
 
пожалуйста
только csv - это расширение, а не разрешение
Изменено: Ігор Гончаренко - 14.06.2021 10:49:28
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1
Наверх