Страницы: 1
RSS
workbooks.opentext
 
Здравствуйте.  
Известен полный путь к текстовому файлу.  
Задачи 1)открыть текстовый файл с помощью workbooks.opentext, 2)обработать его, 3)при завершении обработки закрыть.  
Есть несколько вариантов с использованием пользовательской функции, которая возвращала бы ссылку на открываемый текстовый файл:  
I)Создать ссылку на объект workbooks.opentext (не работает)  
Функция  opentext по идее должна возвращать ссылку на объект workbook, но при попытке присвоить объект  
Set NewBook = workbooks.opentext.....  
Выдается ошибка на opentext.  
II)Использовать просто имя файла. Но как грамотно из полного имени файла, выделить только его название(нужно для последующего закрытия)  
III) Использовать следующий код:  
Dim AppExcel As Excel.Application  
Set AppExcel = New Excel.Application  
AppExcel.Workbooks.OpenText ...  
(У меня данный код не работает как нужно: файл не отображается)  
Рад буду узать ваши соображения на этот счет.
 
III) Не отображается потому что не отображаете :)  
 
Sub tt()  
Dim AppExcel As Excel.Application  
Set AppExcel = New Excel.Application  
AppExcel.Visible = True  
End Sub
 
I) Такой пример:  
       Workbooks.OpenText Filename:=strFIlesPath & "Tmp.txt", Origin:=1251, _  
           StartRow:=1, DataType:=xlDelimited, Space:=True, FieldInfo:=Array(Array(1, 1), _  
           Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True  
       Set oTmpWB = Workbooks("Tmp.txt")
 
Ну и II) например так:  
 
Sub tt()  
fpth = "C:\temp\__test\Proverka3.xls"  
spth = Right(fpth, InStr(StrReverse(fpth), "\") - 1)  
End Sub
 
{quote}{login=Hugo}{date=06.09.2010 01:29}{thema=}{post}Ну и II) например так:  
 
Sub tt()  
fpth = "C:\temp\__test\Proverka3.xls"  
spth = Right(fpth, InStr(StrReverse(fpth), "\") - 1)  
End Sub{/post}{/quote}  
 
Нашел как это записать проще:  
spth = Dir(fpth, vbDirectory)
 
Спасибо всем ответившим, помогли разобраться!
Страницы: 1
Читают тему
Наверх