|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.02.2011 14:00:47 |
Sebastian |
|
|
|
23.02.2011 15:31:12 |
Severus |
|
|
|
24.02.2011 10:14:30 |
Sebastian |
|
|
|
24.02.2011 10:32:03 |
Severus |
|
|
|
24.02.2011 13:26:46 |
Severus |
|
|
|
24.02.2011 14:47:06 |
Sebastian |
|
|
 mehrer XML Daten importieren |
24.02.2011 15:37:47 |
Severus |
|
|
|
04.03.2011 10:21:13 |
Sebastian |
|
|
|
04.03.2011 12:07:43 |
Severus |
|
|
|
04.03.2011 12:30:20 |
Sebastian |
|
|
|
04.03.2011 12:38:37 |
Severus |
|
|
|
04.03.2011 13:07:36 |
Severus |
|
|
|
04.03.2011 13:58:01 |
Sebastian |
|
|
|
04.03.2011 17:09:08 |
Severus |
|
|
|
07.03.2011 08:43:38 |
Sebastian |
|
|
|
09.03.2011 08:59:43 |
Sebastian |
|
|
|
09.03.2011 12:19:53 |
Gast6260 |
|
|
|
09.03.2011 13:28:30 |
Sebastian |
|
|
|
09.03.2011 13:44:28 |
Severus |
|
|
|
09.03.2011 14:02:30 |
Sebastian |
|
|
|
09.03.2011 15:45:24 |
Severus |
|
|
|
09.03.2011 15:45:29 |
Severus |
|
|
Von:
Severus |
Datum:
24.02.2011 15:37:47 |
Views:
1033 |
Rating:
|
Antwort:
|
Thema:
mehrer XML Daten importieren |
|
Tja, das Problem ist, daß ich den IE nicht verwende und daher auch noch nie was dafür programmiert habe. Ich denke aber, mit dem ursprünlichen Code kommen wir überhaupt nicht weiter. Probier mal
Sub Import()
Dim Dialog As FileDialog
Dim vrtSelectedItem As Variant
Set FileDialog = Aplication.FileDialog(msoFileDialoOpen)
With FileDialog
.Title = "Bitte gewünschte Daten auswählen"
.Button = "Importieren"
.Show
For Each vrtSelectedItem In .SelectedItems
ActiveWorkbook.XmlImport URL:=vrtSelectedItem, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$6")
Next
End With
End Sub
Sollten Fehler auftreten, bitte den Code mal mit F8 schritweise abarbeiten und feststellen, wo der Fehler auftritt.
Severus
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
23.02.2011 14:00:47 |
Sebastian |
|
|
|
23.02.2011 15:31:12 |
Severus |
|
|
|
24.02.2011 10:14:30 |
Sebastian |
|
|
|
24.02.2011 10:32:03 |
Severus |
|
|
|
24.02.2011 13:26:46 |
Severus |
|
|
|
24.02.2011 14:47:06 |
Sebastian |
|
|
mehrer XML Daten importieren |
24.02.2011 15:37:47 |
Severus |
|
|
|
04.03.2011 10:21:13 |
Sebastian |
|
|
|
04.03.2011 12:07:43 |
Severus |
|
|
|
04.03.2011 12:30:20 |
Sebastian |
|
|
|
04.03.2011 12:38:37 |
Severus |
|
|
|
04.03.2011 13:07:36 |
Severus |
|
|
|
04.03.2011 13:58:01 |
Sebastian |
|
|
|
04.03.2011 17:09:08 |
Severus |
|
|
|
07.03.2011 08:43:38 |
Sebastian |
|
|
|
09.03.2011 08:59:43 |
Sebastian |
|
|
|
09.03.2011 12:19:53 |
Gast6260 |
|
|
|
09.03.2011 13:28:30 |
Sebastian |
|
|
|
09.03.2011 13:44:28 |
Severus |
|
|
|
09.03.2011 14:02:30 |
Sebastian |
|
|
|
09.03.2011 15:45:24 |
Severus |
|
|
|
09.03.2011 15:45:29 |
Severus |
|
|