Загрузка данных из Excel

Четверг, 14 Мая 2015 г. 13:20 + в цитатник

Загружаю данные в базу с листа Excel, (лист1), столбцы 0,1,2

Для загрузки использую Calc, из пакета LibreOffice (OOO)

Set OpenOffice = CreateObject("com.sun.star.ServiceManager")
Set OOO_Desktop = OpenOffice.createInstance("com.sun.star.frame.Desktop")

Гружу, по очереди обращаясь к ячейкам.
что-то типа

   Pp = 1
  For Pp = Pp To 200000
     STR_KOD = ""
    Set OOO_Range = OOO_Sheet.getCellByPosition(0, Pp)
    If OOO_Range.Value = 0 Then
      STR_KOD = OOO_Range.GetString
    Else
      STR_KOD = OOO_Range.Value
    End If

      RST_KOD_TIPA.AddNew

   If Nz(STR_KOD) <> "" Then
   RST_KOD_TIPA("KOD_TIPA_IZVESHENIYA") = STR_KOD
   End If