| История развития программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Приложение+база на сервере. Ошибка связи Как Вы относитесь к курящим девушкам? Экспорт в Excel, из VB или Crystal Reports Пауза в макросе Шрифт, Как сделать свой шрифт... Клавиши, клавиши, клавиши..., И ещё немного кнопки... Подсветка Visual Basic на Винграде, Голосуем за стиль подсветки. Excel+VBA, циклическая загрузка.... Как подключить help VB5 к VB6 Выключение компа, Выключение компа Чтение из файла, как добыть Изменение свойсва MDIChild в Runtime, Изменение свойсва MDIChild в Runtime Как настроить учетную запись yahoo.com в Outlook, Как настроить yahoo.com в Outlook Exress MIDI, Как же это сделать??? Запуск Excel (Word) макроса из VB Как удалить файл Со 2 по 20 cентября я в отпуске!, Просьба ко всем участникам... как получ. доступ к БД BDE5 из VB6 Параметры командной строки при запуске Excel Опят БД, почему происходит зацикливание Вопрос По VBasic, Подскажите, как в VBasic проследить клик Импорт пакета. Нужен ли исходник? Visual Basic OLE.ReadFromFile Error, Ошибка метода ReadFromFile VB и Internet Как именно в Excel-DDE-ячейку заложить автокоманду, Автокоманду запуска wav-файла... Работа со звуком. Как считать парамет Excel-XP. Вставка строк, VB не VBA Посик по базе данных!, гайти надпись в базе и выдилить её VBA Access2000->XP, Error "Type mismatch" for Recordset Не знаю как сделать..., Помогите please!!! Работа с таймером, Как работает таймер? Компиляция ASP страниц, средствами VB Фильтр мата на Java Помогите парни, Нужен исходник тест проги Word, импорт строк Как в екселе скопировать значения Range в другой, не используя буффер обмена Записывание русского текста в файл, Put #1, , "Привет, Vingrad'овцы!" Переносимость сделанного на VB, как побороть проблемы с нею? Dbgrid32.ocx, Получить права на Dbgrid32.ocx Работа с файлом ресурсов createobject("msmapi.mapisession") - ошибка 429, на машине, где не установлен VB IDE & Clipboard, Хочу чтоб не очищался при запуске Прикольный глюк с Rich Text Box, из-за чего? Как узнать какие файлы лежат в папке? Программа в Task bar, Программа в Task bar Ограничения на количество символов в ячейке, VBA & EXCEL Как Вы относитесь к курящим девушкам? Узнать имя компьютера в сети, Узнать имя компьютера в сети VBE - Добавление контролов на форму cardinal, плиз помоги... Загрузочная область диска VB, Line input or Get, количество строк в файле VBA+Access, Выделение записей в таблице нет места на диске, с помощью VBScript игра "змейка", движение змейки Как на VB создавать программы для КПК, Как с помощью VB связать по ИК два КПК Работа с модемом Нужен хитрый и быстрый TRIM, причем с выпендрончиками... VBA&Excel: Помогите с выделением ячеек., из-за выделенной ячейки выделить строку Ищу ведущего разработчика-программиста, Предложение работы написать WWW клиент, выудить html'ку HTML Help, Context-sensitive help Очень срочно помогите Clipboard Курсор, КАК заменить курсор Работа с файлами regexp, regexp Выгрузка в текстовой файл из Excel, Не работает выгрузка в текстовой файл из Старый BASIC для винды, Где взять интерпретор для винды? Не срабатывает событие, в коде формы все работает, в модуле клас Как массив поместить в строку для записи в реестр |
Платные хостинги Раскрутка сайта Книги по программированию Visual Basic OLE.ReadFromFile Error, Ошибка метода ReadFromFile
- Здравствуйте.Есть некоторая прога(Visual Basic) которая имеет OLE-объект. Далее Ole1.SourceDoc="c:\filename.xls".На форме отображается содержимое ... все в порядке.Во множестве примерах есть некоторый код который вешается на Form_Load(), который загружает xls файл в контейнер. Код след:Private Sub Form_Load()Open OLE1.SourceDoc For Binary As #1 'Открываем файл OLE1.ReadFromFile 1 'закрываем файл Close #1End SubПроблема только в том, что у меня этот код не работает. При вызове метода ReadFromFile 1 выдается ошибка:"Run-time error 31037.System Error &H800401 (-2147221054). Содержимое OLESTREAM имеет не верный формат."Помогите пожалуйста, не могу понять почему не читает из файла, вроде метОда есть должна работать, да и в ИНЕТЕ по всюду именно такой код в примерах при открытии xls-файла. - У меня тож выдает ошибку... вообще я никода не пользовался VB объектом OLE... другие средства есть, более надежные...Тебе что именно надо? Для каких целей xls файл открывать? Работать с его данными, просто отобразить содержимое, или что? Почему именно этот вариант(через OLE control) ты выбрал? Объясни конкретно задачу, может другой способ будет лучше... - Ну на самом деле мне нужно написать конверталку XSL в TXT. Первое что в голову пришло это OLE, да и методы вроде удобные, не работает вот только. Т.е. перебрать все записи xls и вывести в txt (далее может обрабатывать как-нить буду, еще точно не знаю). - А такой вариант тебе не подойдет?Код Sub ConvExcelToText() Const xlCSV = 6 Const xlText = -4158 Dim ExApp As Object Dim ExWB As Object Set ExApp = CreateObject("Excel.Application") Set ExWB = ExApp.Workbooks.Open("C:\book.xls") 'используй одну из след строк 'текст с разделителем 'табуляция' ExWB.SaveAs FileName:="C:\book.txt", FileFormat:=xlText, CreateBackup:=False 'текст с разделителем 'запятая' ExWB.SaveAs FileName:="C:\book.csv", FileFormat:=xlCSV, CreateBackup:=False ExWB.Close False ExApp.Quit Set ExWB = Nothing Set ExApp = NothingEnd SubhighlightSyntax('vbMDFkMG','vb'); - Работает Большое спасибо Наедеюсь мне не придется визуализацию какую-нить еще делать или что-то еще, что может завести в эти OLE объекты Добавлено @ 09:14 Жаль, мне не дают тебе рейтинг поднять - Спасибо , не расстраивайся, для меня главно помочьЦитата (aleonov @ 16.9.2004, 13:11)Наедеюсь мне не придется визуализацию какую-нить еще делать или что-то еще, что может завести в эти OLE объектыА насчет визуализации, то может это подойдет?Код Sub Test() Dim ExApp As Object Dim ExWB As Object Set ExApp = CreateObject("Excel.Application") Set ExWB = ExApp.Workbooks.Open("C:\book.xls") ExApp.visible=true ... ' Cдесь можно работать со всеми объектами Excel Msgbox exWB.activeworksheet.range("A1").value 'покажет значение в ячейке A1 ... Set ExWB = Nothing Set ExApp = NothingEnd SubhighlightSyntax('vbgzY2Mz','vb');После выполнения Test Excel будет открыт, но ежли надо закрыть, то нет проблем ExApp.quit Удачи!!! Уточню, будет открыт, даже если твою прогу закрыть... т.е. не зависимо Это сообщение отредактировал -Mikle- - 16.9.2004, 14:54  |