🚀 go-pugleaf

W dniu 2018-07-30 o 14:04, Phantom pisze:
> Działa!
> Nawet podmienia plik xml na nowy (wielokrotne wywoływanie funkcji).
> Zastanawiam się czy dla pewności nie usuwać starego pliku xml przed tworzeniem nowego.
> 
> Moja funkcja wygląda teraz tak:
> 
> Const acExportTable = 0
> Const acQuitSaveNone = 2
> Const acUTF8 = 0
> Dim oApp
> 
>     Set oApp = CreateObject("Access.Application")
>       oApp.OpenCurrentDatabase "G:\Dec_Publ.mdb", False
>       oApp.ExportXML acExportTable, "Dec_Publ_Tab", "G:\Dec_Publ_Tab_Proba.xml", , , , acUTF8
>       oApp.CloseCurrentDatabase
>       oApp.Quit acQuitSaveNone
>     Set oApp = Nothing
> 
> Brakuje linii z usuwaniem pliku.
> Jeśli można prosić!

[...]

Mniej więcej będzie to tak:
'___________________________________________________________
Option Explicit

Dim oApp
Dim oFSO
Const acExportTable = 0
Const acQuitSaveNone = 2
Const acUTF8 = 0
Const cFileXML = "G:\Dec_Publ_Tab_Proba.xml"

   Set oFSO = CreateObject("Scripting.FileSystemObject")
     With oFSO
       If .FileExists(cFileXML) Then
           .DeleteFile (cFileXML)
       End If
     End With
   Set oFSO = Nothing

   Set oApp = CreateObject("Access.Application")
     With oApp
       .OpenCurrentDatabase "G:\Dec_Publ.mdb", False
       .ExportXML acExportTable, "Dec_Publ_Tab", cFileXML, , , , acUTF8
       .CloseCurrentDatabase
       .Quit acQuitSaveNone
     End With
   Set oApp = Nothing

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