Поиск:

Ответ в темуСоздание новой темы Создание опроса
> VFoxPro. OLE. SaveAs. xls2dbf, Помогите сохранить xls как dbf 
:(
    Опции темы
DZ0
  Дата 19.11.2004, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.11.2004

Репутация: нет
Всего: нет
Вот пришлось изучать OLE и осваивать классы smile

Помогите сохранить xls (Excel любой версии) как dbf в Visual FoxPro 5.0 используя OLE (или другую умную технологию)

на код:

oXl = CREATEOBJECT("Excel.Application")
oXl.Workbooks.Open("myfile.xls")
oXl.Workbooks(1).SaveAs("myfile.dbf", xlDBF4)
* или oXl.ActiveSheet.SaveAs("myfile.dbf", xlDBF4)

получаю ответ:

Ошибка OLE, код 0x8002000b: Неверный индекс.

Что не так? И как лучше сделать?
PM MAIL   Вверх
ngnoza
Дата 20.11.2004, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 17.11.2004

Репутация: нет
Всего: нет
IMPORT FROM "c:\MyFolder\Myfile.xls" TYPE XL8 SHEET "mysheet"
close database
use Myfile.dbf
browse
COPY TO "c:\Myfolder\Myfile_new.xls" TYPE XL5

Пробуйте - возможно поможет (В Vfp 6.0 работает).
Обратите внимание что имена файлов (без расширения) совпадают.

Удачи
PM MAIL   Вверх
DZ0
  Дата 22.11.2004, 09:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 19.11.2004

Репутация: нет
Всего: нет
Цитата(ngnoza @ 20.11.2004, 11:44)
IMPORT FROM "c:\MyFolder\Myfile.xls" TYPE XL8 SHEET "mysheet"

Это не решает проблему, т.к.:
1. В Vfp 5.0 нет формата XL8
2. это решение только для XL8, а надо для любого формата
smile
PM MAIL   Вверх
Cashey
Дата 30.11.2004, 01:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 13
Всего: 60
Код

tmpsheet = GetObject(SYS(5)-CURDIR()-"buhuchet\docs\усно.xls",'excel.sheet')
XLApp = tmpsheet.application
XLApp.Workbooks.Open(SYS(5)-CURDIR()-"buhuchet\docs\усно.xls")
XLSheet = XLApp.Sheets[1]

*************************************************

XLApp.displayalerts = .F.
XLApp.sheets[1].select
XLApp.cells(1, 1).select
IF FILE(SYS(5)-CURDIR()-'buhuchet\out\_xltmp.xls')
DELETE FILE SYS(5)-CURDIR()-'buhuchet\out\_xltmp.xls'
ENDIF
XLApp.ActiveWorkbook.SaveAs(SYS(5)-CURDIR()-'buhuchet\out\_xltmp.xls',- 4143)



--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Foxpro/Clipper/Dbase"
MoLeX

Запрещается!

1. Публиковать ссылки для чисто рекламных целей.

2. Оффтопить, флеймить, говорить не культурно.

Пожалуйста, адекватно задавайте свой вопрос. Тема должна создаваться с названием характеризующем Вашу проблему.

Задавайте вопросы правильно - как спросите, так вам и ответят.

Разрешено!

Давать ссылки на статьи, обзоры, если это не нарушает первый пункт правил.

Задавая вопрос, давайте нужную информацию касающуюся Вашей проблемы. Этим вы ускорите полезные ответы.

P.S. Размещение рекламы будет строго наказываться!


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, MoLeX
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Foxpro/Clipper/Dbase | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0461 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.