Imam par stvari:
1. Nisi mi odgovorio da li pricamo o VB 6.0 ili o VB.NET-u, posto je ta greska karakteristicna za .NET platformu.
2. Da li otvaras postojeci fajl "e:\posao\1.xls"?
3. Pisi kod u Code tagovima
Code:
Dim a As String
a = "e:\posao\1.xls"
Dim ap As Excel.Application
ap = CreateObject("excel.application")
ap.Visible = False
ap.Workbooks.Open(a) na ovoj liniji stane
4. Objektima prosledjujes vrednost sa SET naredbom
Code:
...
Set ap = CreateObject("excel.application")
...
5. Kada pozivas funkciju ili proceduru u VB 6.0 onda nemoj da stavljas parametre u zagradu, osim kada je poziv sa desne strane izraza (nije greska, ali je bezveze), dakle probaj ovako
Code:
...
ap.Workbooks.Open a
...
ili ovako
Code:
...
Set tmpBook = ap.Workbooks.Open(a)
...
Inace, ovaj kod kod mene u VB 6.0 radi, a na Googlu sam nasao da se ova greska desava u .NET varijantama (upisi u Google tekst "Old format or invalid type library" + Excel i imaces gomilu materijala) pa te zato i pitam da li ovo radis u .NET-u
Citat:
anakin14:hocu da napravim stand alone aplikaciju koja ce preko forme da zapisuje podatke u excel file (zbog izracunavanja niza varijabli na samom sheetu) a onda exportuje u .mdb fajl
Dakle, otvaras Excel da bi ti on pomogao da nesto izracunas, pa onda to prebacujes u Access - da li sam te dobro razumeo? Ne pitam te to bezveze jer imam iskrenu zelju da ti pomognem, ali mi moras detaljno obrazloziti sta hoces da postignes.