Загрузка OpenDocument в Access

[kkep]

Доброго времени суток. Помогите пожалуйста разобраться с тем, что бы загрузить опен документ в акцес 2010. Имеется файл как в примере, в который происходит импорт из сторонней программы. Необходимо загрузить указанные сведения в акцесс. Причем если смотреть через open writer, то все таблицы имеют заголовок. Т.е. необходимо в акцесе собрать таблицу в которую бы проставлялся код заказа и все данные из нижней таблицы.

Перерыл все форумы не могу найти как правильно загрузить его в акцесс, если провалиться тотел командером в файл опен офиса, то получается что все данные хранятся в файле content.xml, но не могу понять как его разложить на то что требуется. Пробовал стандартный импорт, он создает кучу таблиц, но загружает в порядке который потом не могу обработать из-за того, что он импортирует всё в один столбик, и не понятно сколько событий происходили у одного заказа.


Пробовал то что нарыл в интернете:
set wordapp=createobject("word.applicat ion")
set worddoc=wordapp.ocuments.open (filename)
for i=1 to worddoc.tables.count
set tab=worddoc.tables(i)
if i mod 1 = 1 then
ordernum=split(tab.cell(2,2),chr(7) )(0)
else
for j = 2 to tab.rows.count
strSQL = "INSERT INTO datatable (order, name, date, content, fdate, fcontent)" & _
"VALUES (" & ordernum & ",'" & _
split(tab.cell(j,1),chr(7))(0) & "','" & _
split(tab.cell(j,2),chr(7))(0) & "','" & _
split(tab.cell(j,3),chr(7))(0) & "','" & _
split(tab.cell(j,4),chr(7))(0) & "','" & _
split(tab.cell(j,5),chr(7))(0) & "')"
docmd.runsql srtSQL
next j
endif
next i

Но на строке set tab=worddoc.tables(i) возникает ошибка.

Вот пример файла

[kkep]

готов к материальной благодарности в размере 1000 рублей.

[Step_UA]

Но на строке set tab=worddoc.tables(i) возникает ошибка.

Какая ошибка? ... измените наименование переменой tab

[Serge_Bliznykov]

Microsoft Word 2010 ваш файл 123.odt отрыть не смог (просто открыть, без всякой программы).

[kkep]

Сообщение от Step_UA

Какая ошибка? ... измените наименование переменой tab

Тогда он ругается что не описан тип. Я не знаю каким типом толжена быть эта переменная

[kkep]

Сообщение от Serge_Bliznykov

Microsoft Word 2010 ваш файл 123.odt отрыть не смог (просто открыть, без всякой программы).

У меня открывает. Сначала ругается, нажимаешь да, и он открывает. Хоть просто вордом хоть из акцесса

[Step_UA]

Тогда он ругается что не описан тип. Я не знаю каким типом толжена быть эта переменная

dim tabl as object
...
set tabl=worddoc.tables(i)

или используйте with

for i=1 to worddoc.tables.count
 with worddoc.tables(i)
   if i mod 1 = 1 then
     ordernum=split(.cell(2,2),chr(7) )(0)
   else
     for j = 2 to .rows.count
       strSQL = "INSERT INTO datatable (order, name, date, content, fdate, fcontent)" & _
       "VALUES (" & ordernum & ",'" & _
       split(.cell(j,1),chr(7))(0) & "','" & _
       split(.cell(j,2),chr(7))(0) & "','" & _
       split(.cell(j,3),chr(7))(0) & "','" & _
       split(.cell(j,4),chr(7))(0) & "','" & _
       split(.cell(j,5),chr(7))(0) & "')"
       docmd.runsql srtSQL
     next j 
   endif
 end with
next i

[kkep]

Не так не так не работает. Пишет что пустой ордернум и как следствие скл запрос ошибочный

[Step_UA]

Не так не так не работает.

Работает согласно коду))

Пишет что пустой ордернум и как следствие скл запрос ошибочный

Используйте волшебную кнопку F8 для отладки)) ... каким должно быть значение i, чтоб остаток от его деления на 1 равнялся 1 ?))
...дальше не интересно

[kkep]

Сообщение от Step_UA

Не так не так не работает.

Работает согласно коду))

Пишет что пустой ордернум и как следствие скл запрос ошибочный

Используйте волшебную кнопку F8 для отладки)) ... каким должно быть значение i, чтоб остаток от его деления на 1 равнялся 1 ?))
...дальше не интересно

Спасибо за то что показали на мою тупость Пришлось еще не
много повозиться чтоб при загрузке убирались ' , т.к. из-за них ломался скл-запрос, но вообщем задача решена.