Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Проблема чтения из excel файла данных  [new]
dima_18
Member

Откуда:
Сообщений: 339
Всем, добрый день!

Подскажите, пожалуйста, ответ на следующий вопрос. Есть excel файл, нужно открыть его, считать данные и записать в таблицу (добавить строку).

Подскажите, пожалуйста, как Вы делаете.
Я привожу пример как я делаю обратное, т.е. записываю данные в excel файл.
Спасибо большое.



NameFile = 'Øàáëîí1.XLSX'
nameExcel = f3_ot + NameFile
NameFile1 = '&sum_str' + '.XLSX'
saveExcel = f3_ot+NameFile1



WAIT WINDOW NOWAIT "Èä¸ò âûâîä â ôàéë " + saveExcel
tmpsheet = GETOBJECT("","Excel.Sheet")
loExcel = tmpsheet.application
loBook = loExcel.Workbooks.Open(nameExcel)
loSheet = loExcel.sheets(1)



with loSheet

.cells(3,3).Value = nach1
.cells(3,5).Value = kon1
8 окт 19, 15:02    [21989511]     Ответить | Цитировать Сообщить модератору
 Re: Проблема чтения из excel файла данных  [new]
PaulWist
Member

Откуда:
Сообщений: 2187
dima_18,

http://forum.foxclub.ru/read.php?29,460775,517913#msg-517913
8 окт 19, 15:39    [21989557]     Ответить | Цитировать Сообщить модератору
 Re: Проблема чтения из excel файла данных  [new]
Vladimir M Sklyar
Member

Откуда: Украина, Конотоп
Сообщений: 650
dima_18,

	oXls = CREATEOBJECT("excel.application")
	oBook = oXls.workbooks.open(lcFile)
	oBook.Sheets(1).Select

        FOR i =1 TO (кол-во строк в экселе)
	      lnCount = oxls.cells(i,1).Value
...
тут дальше читаем эксель и пишем в таблицу
до конца цикла 
...
		WAIT WINDOW NOWAIT "Обработка файла, ждите ...."
	ENDFOR 	

	oXls.Quit
	RELEASE oBook, oXls

думаю принцип понятен (ну это по простому)
в принципе эта тема гуглится нормально и с примерами
9 окт 19, 08:08    [21990008]     Ответить | Цитировать Сообщить модератору
 Re: Проблема чтения из excel файла данных  [new]
Grin
Member

Откуда:
Сообщений: 111
2dima_18,

Еще один вариант
	m.conect=SQLSTRINGCONNECT('Driver=Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb); dbq=C:\TEMP\Книга1.xlsx')
	m.sqlstat ='select * from "Лист1$" t'
	SQLEXEC(m.conect,m.sqlstat,'XLS')
	SQLDISCONNECT(m.conect)

	SELECT XLS
	BROWSE 
10 окт 19, 18:03    [21991604]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить