Изменить в макросе функцию выбора файла

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Изменить в макросе функцию выбора файла (Макросы/Sub)

Espada

Дата: Среда, 30.08.2017, 13:56 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 0 ±

Замечаний: 40% ±

Доброго дня, подскажите плиз, как подправить макрос.
[vba]

Код

Dim fsT, tFileToOpen, tFileToSave As String

    tFileToOpen = InputBox("Текст на форме загрузки")
    tFileToSave = InputBox("Текст на форме выгрузки")

    tFileToOpenPath = tFileToOpen
    tFileToSavePath = tFileToSave

Set fsT = CreateObject("ADODB.Stream"): 'Create Stream object
fsT.Type = 2: 'Specify stream type – we want To save text/string data.
fsT.Charset = "utf-8": 'Specify charset For the source text data.

fsT.Open: 'Open the stream
fsT.LoadFromFile tFileToOpenPath: 'And write the file to the object stream

fsT.SaveToFile tFileToSavePath, 2: 'Save the data to the named path
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
End Sub

[/vba]

в этом макросе мы меняем кодировку файла, но путь файла нужно записывать в появляющиеся окно, у меня этот файл всегда лежит в определенном месте(E:\galaktika.csv). подскажите пожалуйста, как переделать этот Код, что бы не нужно было указывать путь, а сразу брался этот файл, и пересохранялся в этот же файл после выполнения операции.