Export Danych do XML'a

[Shon Oskar]

zwykle używałem instrukcji

Kod: Zaznacz cały

Filename = Application.GetSaveAsFilename( _
       InitialFileName:="test.xml", _
       fileFilter:="XML Files(*.xml), *.xml")

jednakże Outlook nie ma takowego .GetSaveAsFilename
jak mogę utworzyć plik XML ?

[michu]

Rozumiem, że chodzi o umożliwienie użytkownikowi wskazania ścieżki do pliku. Wyjścia widzę 3:

1. Zainstancjować aplikację Excel bez jej wyświetlania i użyć tej samej funkcji GetSaveAsFilename.

2. Najprostsze: użyć prościutkiego input boxa używając funkcji VB InputBox.

3. Najtrudniejsze: napisać własny dialog (formę VBA), która będzie wyświetlała dialog pozwalający na wybór pliku.

[OShon]

ok - ;]
ja nie otwieram tego pliku ale do niego zapisuje (jeżeli go nie ma to po prostu ta sama instrukcja mi go tworzy)

już podam pełną instrukcję - Na Excelu to działa bez żadnych problemów

Kod: Zaznacz cały

Private Sub Robienie_XML()
    Dim Filename As Variant
   
'   Pobranie nazwy pliku
    Filename = Application.GetSaveAsFilename( _
        InitialFileName:="test.xml", _
        fileFilter:="XML Files(*.xml), *.xml")
    If Filename = False Then Exit Sub
   
'   Otwarcie pliku tekstowego
    Open Filename For Output As #1
   
'   Zapisanie znacznika <xml>
    Print #1, "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?>"
    Print #1, "<ListaDefiniowanych xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">"
   
'   Przetwarzanie komórek w pętli
            Print #1' .... instrukcje do tworzenia wsadu XMLA

'   Zamknięcie pliku
    Close #1
End Sub

niestety wykorzystanie instrukcji na kształt tworzenia pliku TXT

Kod: Zaznacz cały

    Dim Filename As String
    Filename = "test.xml"

nie tworzy odpowiedniego pliku... ;(
stąd moje pytania.

ewentualnie z braku laku faktycznie zrobię Export danych do TXTeka i już
ale XML jest fajniejszy do chociażby wysłania na serwer do głównego dyspozytorium.. ;]

[OShon]

JEST

użyłem innego nagłówka
i faktycznie Exportu TXT

Kod: Zaznacz cały

"<?xml version=""1.0"" encoding=""ISO-8859-2""?>"

tworzy ładnie XML'a ;]

pozd.