Export Danych do XML'a

Pytania, problemy, uwagi związane ze starszymi wersjami Microsoft Outlook 2003, 2002 (XP), 2000, 98

Moderator: Moderatorzy

Export Danych do XML'a

Postprzez Shon Oskar » Pt 19.01.2007 17:20

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 ?
O'Shon
Shon Oskar
 
Posty: 182
Dołączył(a): Pn 16.10.2006 09:05
Lokalizacja: Veracomp S.A.

Postprzez michu » Pt 19.01.2007 18:02

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.
Pozdrawiam
Michu
michu
 
Posty: 4190
Dołączył(a): N 05.02.2006 17:49
Lokalizacja: Jelenia Góra

Postprzez OShon » Pt 19.01.2007 19:45

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.. ;]
Obrazek
Oskar Shon - MVP Office Dev. 11/20, 3x MCC, 4/9/22 TechNet
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 10274
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Projekt autorski VBATools.pl

Postprzez OShon » Pt 19.01.2007 20:35

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.
Obrazek
Oskar Shon - MVP Office Dev. 11/20, 3x MCC, 4/9/22 TechNet
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 10274
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Projekt autorski VBATools.pl


Powrót do Microsoft Outlook

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników i 1 gość

cron