Как открыть макросом txt файл с переменной в инени

Лёня

Гость

06.10.2010 15:26:44

Добрый день, жители планеты!
У меня возник такой вопрос. Имеется txt файл с именем "10-10-06.txt" или "молоко-10-10-06.txt". В наименовании указана текущая дата, которую можно задать переменной типа:

Dim sShName As String
sShName = Format(Now(), "dd-mm-yyyy")

Но, как вставить переменную?
Пробовал с помощью
Workbooks.OpenText (ActiveWorkbook.Path & "\имя_файла.txt") и Workbooks.OpenText Filename:="H:\Reports\имя_файла.txt", Origin:=1251, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, DecimalSeparator:=".", TrailingMinusNumbers:=True

, но мешает ".txt"
Пробовал еще Workbooks.OpenText Filename:="H:\имя_файла, _
FileFormat:=txt, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Но не работает. Помогите, пожалуйста, разобраться.

Лёня

Гость

06.10.2010 15:49:45

Заработало :), не додумался взять в ковычки "\" без ничего. Но хотелось бы еще прописать путь, например "H:\имя_файла", чтобы я мог из любого открытого экселевского файла запустить макрос, который бы открыл указаный файл.

Лёня

Гость

06.10.2010 16:11:58

Dim sShName As String
sShName = Format(Now(), "dd-mm-yyyy")

Workbooks.OpenText (ActiveWorkbook.Path & "H:\" & sShName & ".txt")

End Sub

И выдает ошибку, что в папке, в которой находится экселевский файл, с котрого запускается макрос, нет файла "H:\Имя_файла.txt"
Т.е. VBA воспринимает путь как название файла. в чём ошибка?

Guest

Гость

06.10.2010 16:45:51

{quote}{login=The_Prist}{date=06.10.2010 04:17}{thema=}{post}Вы вообще не понимаете то, чего пишите?
ActiveWorkbook.Path - таким образом получаем ПУТЬ К ПАПКЕ, в которой активная книга. А затем к этому пути Вы еще и "H:\" приплетаете. Должно быть что-то одно.
Либо
ActiveWorkbook.Path & "\" & sShName & ".txt"

либо
"H:\" & sShName & ".txt"){/post}{/quote}

Я с макросами познакомился только 2 месяца назад, и пока умею писать в макрорекордере, а после, где надо вставлять переменные, но это не всегда получается. Или прописываю кода, которые увидел на форумах. Например Workbooks.OpenText (ActiveWorkbook.Path & "H:\" & sShName & ".txt")был отрекомендован, как открывающий txt файлы.

Лёня Гость	#5 06.10.2010 17:13:47 Огромное спасибо!:)))))))) Workbooks.OpenText ("H:\" & sShName & ".txt")

Читают тему