|
|
|
Считывание данных с excel в таблицу dbf
|
|||
|---|---|---|---|
|
#18+
Добрый день! Помогите пожалуйста с решением следующей проблемы: есть таблица dbf (со столбцами): id name name_1 Есть excel файл c пятой строки которого идет таблица т.е. c пятой строки в столбце первом - id, в столбце втором - name, в столбце третьем - name_1. Нужно по кнопке находящейся на форме открыть программно этот екселевский файл, и в таблицу в соотвествующие столбцы заливать данные. Конца списка как такового нет - т.е. видимо когда соответствующие элементы в столбце будут пустые - надо закрывать данный excel файл. Затем открывать следующий и тоже самое делать, т.к. не всегда данные приходящие будут только в одном файле экселевском , а они могут и быть тоже самое в другом из-за расположения мест которые отправляют такие файлы. Будьте добры подскажите пожалуйста решение на этот вопрос. Спасибо большое заранее. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.11.2011, 10:19 |
|
||
|
Считывание данных с excel в таблицу dbf
|
|||
|---|---|---|---|
|
#18+
dima_18, Подсказать - легко 1.В кнопку добавляем диалог открытия файла при помощи команды GETFILE 2.Открываем файл XLApp = GETOBJECT('', 'excel.application') XLApp.WorkBooks.ADD(lcFile) XLSheet= XLApp.ActiveSheet 3.Сканируем файл WITH XLSheet FOR lnPer = 5 TO .UsedRange.Rows.Count -1 4.Загоняем данные INSERT INTO table1 (name, name_1) VALUES (.Range("A"+TRIM(STR(lnPer))) ну и оборачиваем всякими исключениям на ошибки ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 03.11.2011, 18:17 |
|
||
|
Считывание данных с excel в таблицу dbf
|
|||
|---|---|---|---|
|
#18+
alextashk, вот так можно попробовать (где-то в интернете нашлось :) ) USE mytable SHARED DIMENSION MyArray(RECCOUNT(),FCOUNT()) COPY TO ARRAY MyArray STORE 'MyArray' TO mas x=CREATEOBJECT("EXCEL.APPLICATION") x.Workbooks.Add x.Visible=.t. X.Workbooks(1).ActiveSheet.range("A5:"+CHR( 64+FCOUNT())+ALLTRIM(STR(4+RECCOUNT()))) .value= ArrayPasser(MAS) PROCEDURE ArrayPasser PARAMETERS lcArrayName RETURN @&lcArrayName Ситуация, когда столбцов больше 26, не обработана ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.11.2011, 11:55 |
|
||
|
Считывание данных с excel в таблицу dbf
|
|||
|---|---|---|---|
|
#18+
Алексей (Витебск), это в обратную сторону. PS. А разве нельзя с йокселем работать в формате "RxCy", тогда и проблема 26+ столбцов отпадёт сама собой? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 04.11.2011, 14:36 |
|
||
|
|
start [/forum/topic.php?fid=41&msg=37511938&tid=1584029]: |
0ms |
get settings: |
9ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
46ms |
get topic data: |
9ms |
get forum data: |
3ms |
get page messages: |
48ms |
get tp. blocked users: |
1ms |
| others: | 289ms |
| total: | 429ms |
| 0 / 0 |
