VBNet - Форум - Проблема с OpenText

Вопрос: Проблема с OpenText Добавлено: 30.04.06 03:12

Автор вопроса: Phoenix | ICQ: 233871569

Необходимо из Visual Basic открыть форматированный текстовый файл в Excel'е. Пишу

'Модуль
Public xlApp As Excel.Application
Public xlBook As Excel.Workbook

'Код формы
  Set xlApp = New Excel.Application
  Set xlBook = xlApp.Workbooks.OpenText("Spisok_B.txt", _
              xlWindows, 2, xlDelimited, xlDoubleQuote, _
              False, True, False, False, False, False, _
              Array(Array(1, 2), Array(2, 2), _
              Array(3, 2), Array(4, 2)))

' Прочий код

     xlBook.SaveAs "Summary.xls"
     xlBook.Close
   Set xlBook = Nothing
   Set xlApp = Nothing

Проблема в том, что ругается на "неопределенность" функции или переменной OpenText. Усли метод OpenText заменить методом Open, то все работает, но при этом я теряю определенные возможности конвертации файла...

Также файл загружается, если использовать следующий код:

Workbooks.OpenText Filename:="Spisok_B.txt", Origin:= _
  xlWindows, StartRow:=1, DataType:=xlDelimited, _
  TextQualifier:=xlDoubleQuote, _
  ConsecutiveDelimiter:=False, Tab:=True, _
  Semicolon:=False, Comma:=False, Space:=False, _
  Other:=False, FieldInfo:=Array(Array(1, 2), _
  Array(2, 2), Array(3, 2), Array(4, 2))

Но этот вариант меня не очень устраивает, так как я не получаю ссылку на рабочую книгу.

Помогите советом!!!
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: Neco ICQ: 247906854 Вопросов: 133 Ответов: 882	Web-сайт: neco.pisem.net Профиль \| Цитата \| #1	Добавлено: 30.04.06 23:26
	Ну дык ясно дело - Open это функция, а OpenText - процедура. Попробуй открыть xlApp.workbooks.opentext, а потом xlBook=xlApp.ActiveWorkbook . Ответить

Страница: 1 |