Szukam pomocy, wyskakuje mi błąd przy uruchomieniu przykładu wziętego z pomocy:
Uruchamiam makro excel
Private Sub ImZamowieniaKlientow()
On Error GoTo ErrHandler
Dim oSubGT As InsERT.Subiekt
Dim oIm As InsERT.Importer
Dim oImNagl As InsERT.ImNaglowek
Dim oImDane As ADODB.Recordset
Dim oField As ADODB.Field
Dim oImBlWyk As InsERT.ImBladWykonania
Dim iDokId As Integer
Set oSubGT = UruchomSubiekta()
Set oIm = oSubGT.Importer
oIm.WczytajPlik "c:\ZK.epp", gtaWczytajDokumenty
Set oImNagl = oIm.Naglowek
Debug.Print "======== I N F O R M A C J E ========"
Debug.Print oImNagl.Wartosc("Cel")
Debug.Print oImNagl.Wartosc("StronaKodowa")
Debug.Print oImNagl.Wartosc("Program")
Debug.Print oImNagl.Wartosc("NadawcaSymbol")
Debug.Print oImNagl.Wartosc("NadawcaNazwaPelna")
Debug.Print oImNagl.Wartosc("NadawcaNIP")
Debug.Print CDate(oImNagl.Wartosc("Data"))
Set oImDane = oIm.Dane
If Not (oImDane.EOF And oImDane.BOF) Then
oImDane.MoveFirst
End If
While Not oImDane.EOF
Debug.Print "------------------------"
For Each oField In oImDane.Fields
Debug.Print oField.Name & ": " & oField.Value
Next
oImDane.MoveNext
Wend
iDokId = CInt(InputBox("Podaj id dokumentu do wczytania"))
oIm.ZapiszObiekt iDokId, gtaSubiektDokumentFS
Debug.Print "========== B Ł Ę D Y =========="
For Each oImBlWyk In oIm.BledyWykonania
Debug.Print "------------------------"
Debug.Print "IdObiektu: " & oImBlWyk.IdObiektu
Debug.Print "KodBledu: " & oImBlWyk.KodBledu
Debug.Print "Opis: " & oImBlWyk.Opis
Debug.Print "TypDocelowy: " & oImBlWyk.TypDocelowy
Next
Exit Sub
ErrHandler:
Debug.Print Err.Number & ": " & Err.Description
End Sub
Compile error:
Error in loading DLL
