Sub odpri()
'Podprogram odpre datoteko, v kateri so shranjeni podatki
Dim pot As String, celoIme As String
Dim datoteka As Workbook
On Error GoTo Napaka
pot = "D:\Porocila\StaraPorocila\MagacinMesec"
ChDir pot
ime = "99mt201.wq1"
celoIme = pot & "\" & ImeDatoteke
Set datoteka = Workbooks.Open(celoIme)
Exit Sub
Napaka:
MsgBox "Napaka ! " + Err.Description
End Sub
P.S.
Potem ko sem napisal kodo, sem poizkusil datoteko odpreti ročno.
Pa mi Excel izpiše:
"Odpreti poskušate vrsto datoteke, ki jo je blokirala nastavitev pravilnika registra!"
Hm, to pa je tako specifična napaka, da se boste morali obrniti na MS. V principu bi Excel moral odpirati QPro datoteke, vendar je pa res da datoteke WQ1 mora biti že kar stara, saj je to končnica ki jo je imel QPro v MS-DOS načinu in mislim da v prvih verzijah Okenske različice.
Ne vrejmem, da bi tukaj imel kaj veliko zraven register im mislim, da to ni prava napaka (lahko da se motim). Zna biti, da je ta tip datoteke že tako stra, da uvoz v Exel ni več mogoč. Poskusite s kakšno starejšo različico Excela.
Zadeva je res hecna. Makro sem pognal na prenosnem računalniku, ki uporablja isti MS Office (operacijski sistem je seveda novejši - Vista) in makro pravilno deluje.
Novejši MS Office 2007 pa ne omogoča odpiranja teh tabel, ker so že res stare.
Vseeno me zanima, kje se da dobit omenjeni konverter? Mogoče kdaj prav pride.