FoxClub Forums > Архив конференции по VFP до 2005 года

:: Архив конференции по VFP до 2005 года

• Войти

VFPro 5 и Excel
Elena_stv	Elena_stv 15.03.05 11:31:17 Здравствуйте! Поможите советом Есть программа на VFoxPro 5.0 и есть файл Excel. Надо данные, получаемые программой, записать в определенные ячейки уже имеющегося файла Excel.

Re: VFPro 5 и Excel
AleksM Сообщений: 17881 Дата регистрации: 11.11.2003	AleksM 15.03.05 11:36:48 local loXlsApp, loXlsBook, loXlsSheet loXlsApp = createobject("Excel.Application") loXlsBook = loXlsApp.Workbooks.Open(<ExcelFileName>) loXlsSheet = loXlsBook.Sheets(1) && Или номер нужного листа, или его имя loXlsSheet.Cells(3,4).Value = "Test" && Записать в D4 слово Test ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь.

Re: VFPro 5 и Excel

AleksM

Сообщений: 17881
Дата регистрации: 11.11.2003

AleksM

15.03.05 11:36:48

local loXlsApp, loXlsBook, loXlsSheet

loXlsApp = createobject("Excel.Application")
loXlsBook = loXlsApp.Workbooks.Open(<ExcelFileName>)
loXlsSheet = loXlsBook.Sheets(1) && Или номер нужного листа, или его имя
loXlsSheet.Cells(3,4).Value = "Test" && Записать в D4 слово Test

------------------
Лучше переесть, чем недоспать.
Не спеши, а то успеешь.

Re: VFPro 5 и Excel
Elena_stv	Elena_stv 15.03.05 15:32:35 Спасибо! Делаю: local loXlsApp, loXlsBook, loXlsSheet loXlsApp = createobject("Excel.Application") loXlsBook = loXlsApp.Workbooks.Open('Xxx') loXlsSheet = loXlsBook.Sheets(1) loXlsSheet.Cells(3,4).Value = "1000" выдаёт ошибку после "loXlsBook = loXlsApp.Workbooks.Open('Xxx')" "OLE IDispatch exception code 0 from Microsoft Excel:?..." ?что енто такое ?и где можно почитать про энти примочки-заморочки (желательно на русском) заранее всем спасибо за ответы

Re: VFPro 5 и Excel

Elena_stv

15.03.05 15:32:35

Спасибо!

Делаю:

local loXlsApp, loXlsBook, loXlsSheet

loXlsApp = createobject("Excel.Application")
loXlsBook = loXlsApp.Workbooks.Open('Xxx')
loXlsSheet = loXlsBook.Sheets(1)
loXlsSheet.Cells(3,4).Value = "1000"

выдаёт ошибку после "loXlsBook = loXlsApp.Workbooks.Open('Xxx')"

"OLE IDispatch exception code 0 from Microsoft Excel:?..."

?что енто такое ?и где можно почитать про энти примочки-заморочки (желательно на русском)

заранее всем спасибо за ответы

Re: VFPro 5 и Excel
AnatolyS Автор Сообщений: 4565 Откуда: Санкт-Петербург Дата регистрации: 21.01.2002	AnatolyS 15.03.05 16:04:17 Вместо 'xxx' поставьте полное имя вашего файла, например: loXlsBook = loXlsApp.Workbooks.Open('c:\mydata\my.xls')

:: Список Форумов•Список тем•Поиск•Войти

Извините, но у вас нет прав для того, чтобы оставлять сообщения в этом форуме.

On-line: 6 (Гостей: 6)