powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Появляеться ошибка при использовании OLE1.SaveToFile с WORD
4 сообщений из 4, страница 1 из 1
Появляеться ошибка при использовании OLE1.SaveToFile с WORD
    #34070915
uvish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У меня есть вордовский документ, я делаю OLE1.CreateEmbed "1.doc" в стандартный OLE контейнер. Я хочу записать файл как OLE файл. Всё работает хорошо пока размер файла маленький(меньше чем 9 мегабайт), но как только я хочу сохранить файл большего размера появляеться ошибка:

Run-time error '75' Path/file access error.


Детали: WinXP

Код: plaintext
1.
2.
3.
4.
5.
6.
    Dim filenum As Integer 
    filenum = FreeFile 
    Open "c:\temp\testxyz.ole" For Binary Access Write As filenum 

    Me.OLE1.SaveToFile (filenum)      '<== ERROR OCCURS HERE 

    Close filenum

Может кто-то сталкивался или есть идеи?
...
Рейтинг: 0 / 0
Появляеться ошибка при использовании OLE1.SaveToFile с WORD
    #34070945
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуйте поменять Integer на Double.
...
Рейтинг: 0 / 0
Появляеться ошибка при использовании OLE1.SaveToFile с WORD
    #34071036
uvish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В описании FreeFile написано:
Код: plaintext
Function FreeFile([RangeNumber]) As Integer

Пробывал ставить вместо Integer --> Long всё равно ошибка
...
Рейтинг: 0 / 0
Появляеться ошибка при использовании OLE1.SaveToFile с WORD
    #34071182
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуйте через методы самого объекта. Например:

OLE1.Object.SaveAS "c:\temp\testxyz.ole"

Порой OLE SaveToFile метод не сохраняет файлы.

VladCоnn
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Появляеться ошибка при использовании OLE1.SaveToFile с WORD
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]