🚀 go-pugleaf

W dniu 2018-07-27 o 14:38, Phantom pisze:
> Witam
> Dotyczy MsAccess2013
> 
> Używam funkcji z poziomu accessa:
> Application.ExportXML acExportTable, "Dec_Publ_Tab", "D:\ZISPD\TKPD\Publikacje\Baza\Dec_Publ.xml", , , , acUTF8
> 
> Próbowałem wykonać tą funkcję za pomocą pliku vbs. Nie działa.
> Podejrzewam, że problem tkwi w zapisie "Dec_Publ_Tab" i zamiast tego musi być podana ścieżka do bazy danych i konkretnej tabeli, w tym przypadku: Dec_Publ_Tab.

[...]

No a skąd "VBS" ma wiedzieć co to jest obiekt Application, znać jego 
metodę ExportXML i jaką wartość ma stała acExportTable.

Musisz mu to wszystko przekazać.

Coś w tym rodzaju:

'_____________________________________________________________
Const acExportTable = 0
Const acQuitSaveNone = 2
Const acUTF8 = 0
Dim oApp

   Set oApp = CreateObject("Access.Application")
     oApp.OpenCurrentDatabase "Dysk:\SciezkaDoBazy", False
     oApp.ExportXML acExportTable, "Dec_Publ_Tab", 
"D:\ZISPD\TKPD\Publikacje\Baza\Dec_Publ.xml", , , , acUTF8
     oApp.CloseCurrentDatabase
     oApp.Quit acQuitSaveNone
   Set oApp = Nothing


-- 
Pozdrowienia
BraZby
www.faq.accdb.pl
www.accdb.pl