ReSQL.ru
     
powered by simpleCommunicator - 2.0.40     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема чтения из excel файла данных
4 сообщений из 4, страница 1 из 1
Проблема чтения из excel файла данных
    #39873417
dima_18
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
dima_18
Участник
Всем, добрый день!

Подскажите, пожалуйста, ответ на следующий вопрос. Есть 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
...
Рейтинг: 0 / 0
08.10.2019, 15:02
| Ответить | Цитировать | Написать  
Проблема чтения из excel файла данных
    #39873445
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulWist
Участник
dima_18,

http://forum.foxclub.ru/read.php?29,460775,517913#msg-517913
...
Рейтинг: 0 / 0
08.10.2019, 15:39
| Ответить | Цитировать | Написать  
Проблема чтения из excel файла данных
    #39873720
Фотография Vladimir M Sklyar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vladimir M Sklyar
Участник
dima_18,

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
	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


думаю принцип понятен (ну это по простому)
в принципе эта тема гуглится нормально и с примерами
...
Рейтинг: 0 / 0
09.10.2019, 08:08
| Ответить | Цитировать | Написать  
Проблема чтения из excel файла данных
    #39874830
Grin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grin
Участник
2dima_18,

Еще один вариант
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
	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
...
Рейтинг: 0 / 0
10.10.2019, 18:03
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема чтения из excel файла данных
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=39874830&tid=1581619]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 25ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 13ms
total:  124ms
созд. / загр.: 124ms
x
x
Закрыть


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