Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Появляеться ошибка при использовании OLE1.SaveToFile с WORD / 4 сообщений из 4, страница 1 из 1
20.10.2006, 17:50
    #34070915
uvish
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Появляеться ошибка при использовании OLE1.SaveToFile с WORD
У меня есть вордовский документ, я делаю 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
20.10.2006, 17:57
    #34070945
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Появляеться ошибка при использовании OLE1.SaveToFile с WORD
Попробуйте поменять Integer на Double.
...
Рейтинг: 0 / 0
20.10.2006, 18:23
    #34071036
uvish
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Появляеться ошибка при использовании OLE1.SaveToFile с WORD
В описании FreeFile написано:
Код: plaintext
Function FreeFile([RangeNumber]) As Integer

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

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

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

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


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