Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

geöffnete(nicht gespeicherte) xml-datei auslesen

geöffnete(nicht gespeicherte) xml-datei auslesen
07.08.2014 13:38:27
Marcel
Hallo zusammen,
ich habe eine xml-Datei, welche in Excel2010 geöffnet, aber nicht gespeichert ist.
Auf diese möchte ich nun zugreifen und die Daten in einem ExcelWorkbook per VBA verwenden.
Leider bekomme ich keinen Zugriff darauf.
Habe nun ca. 2 Stunden recherchiert und nichts brauchbares gefunden.
Am nächsten dran war eine Lösung aus diesem Forum:
https://www.herber.de/forum/archiv/172to176/173968_Alle_geoeffneten_Dateien_via_VBAcode_auslesen.html#173968
Damit bekomme ich den Dateinamen, durch den geöffneten Task, aber nicht einen Namen, auf den ich dann mit VBA darauf zugreifen kann.
Bitte helft mir. Danke im Voraus!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: geöffnete(nicht gespeicherte) xml-datei auslesen
11.08.2014 15:19:13
fcs
Hallo Marcel,
es funktioniert nur reibungslos, wenn beide Dateien innerhalb der gleichen Excelsession geöffnet sind.
Dann kann man es etwa wie folgt lösen.
Bei Start des Makros muss die Datei aktiv sein, in der die XML-Dateidaten verwendet werden sollen.
Andere Wege sind auch möglich, dann muss man das Makro entsprechend anpassen.
Gruß
Franz 
Sub Test()
Dim wkbAktiv As Workbook, wksAktiv As Worksheet, Zeile_A As Long
Dim wkbXML As Workbook, wksXML As Worksheet
Set wkbAktiv = ActiveWorkbook
Set wksAktiv = wkbAktiv.Worksheets(2)
Set wkbXML = fncGetOtherWorkbook
With wksAktiv
Zeile_A = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
End With
If wkbXML Is Nothing Then
MsgBox "Es ist keine weitere Datei vorhanden oder es wurde keine Datei gewählt!"
Else
MsgBox "Datei """ & wkbXML.Name & """ wurde gewählt!"
Set wksXML = wkbXML.Worksheets(1)
With wksXML
.Range("R2:R44").Copy
wksAktiv.Cells(Zeile_A, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
.Range("Q2:Q44").Copy
wksAktiv.Cells(Zeile_A + 1, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
wksAktiv.Rows(Zeile_A + 1).Borders.LineStyle = xlLineStyleNone
wksAktiv.Rows(Zeile_A + 1).Interior.ColorIndex = xlColorIndexNone
End With
End If
End Sub
Function fncGetOtherWorkbook() As Workbook
Dim wkb As Workbook, wkbAktiv As Workbook
Set wkbAktiv = ActiveWorkbook
For Each wkb In Application.Workbooks
Select Case LCase(wkb.Name)
Case LCase(wkbAktiv.Name)
Case "personl.xls", "personal.xlsb"
Case Else
wkb.Activate
Select Case MsgBox("Diese Datei verwenden?" & vbLf & wkb.Name, _
vbQuestion + vbYesNoCancel, "Workbook auswählen")
Case vbYes
Set fncGetOtherWorkbook = wkb
Exit For
Case vbNo
Case vbCancel
End Select
End Select
Next
wkbAktiv.Activate
End Function

Anzeige

64 Forumthreads zu ähnlichen Themen

per VBA prn-Datei erstellen
Ron

hallo,
weiß jemand von euch wenn ich per makro eine Exceltabelle als prn-Datei ausdrucken will wie ich diese automatisch mit einem vorher ermittelten Namen abspeichern kann?
Danke
Gruß Ron
19.11.2008 17:22:00
Thread-ID: 1026126
5 Beiträge
Anzeige
Laden einer XML-Datei aus Internet in VBA abwarten
Bo

Guten Morgen,
ich lade mit VBA eine XML-Datei aus dem Internet. Das funktioniert mit

XML.Load(Dateiname)

problemlos, wobei in der Variablen Dateiname der Pfad zur Datei steht.
Gleich nach dem Laden will ich mit

UpdateVersion = XML.DocumentElement.SelectSingle...
15.03.2012 13:12:09
Thread-ID: 1255037
4 Beiträge
.XML-Datei einlesen, ändern und abspeichern
Horst

Halli Hallo Leute,
ich versuche mich gerade in VBA einzufuchsen und die ersten Erfolge gibt es auch schon, jedoch stößt man doch auch schnell an seine Grenzen. So auch bei dem folgenden Problem:
Ich möchte über eine Startbutton eine .XML-Datei öffnen (klappt soweit), da in dieser jedoch...
02.04.2013 16:59:04
Thread-ID: 1306905
8 Beiträge
Anzeige
XML Loop in VBA
tim

Servus,
ich würde gerne eine listbox mit werten aus einer XML Datei füllen. Mir ist nicht so ganz klar wie ich eine Variable in diese Schleife reinbaue. Folgendes funktioniert leider nicht.
With ListBox1 For i = 0 To 1 a = xDoc.SelectSingleNode("/Adressen/Kontakt[i]/telefon").Text .AddI...
30.04.2015 09:36:51
Thread-ID: 1423890
2 Beiträge
VBA - Excel-Datei erstellen und importieren
Marc

Hallo Zusammen,
ich habe von VBA noch nicht so viel Ahnung und wollte deshalb von euch wissen, ob mein Projekt umsetzbar ist oder nicht bzw. wie hoch der Aufwand dafür ist. Ich habe folgendes Problem:
Ich habe verschiedene Projekte, welche wiederrum unterschiedliche Unterprojekte haben...
16.09.2015 13:32:48
Thread-ID: 1447771
2 Beiträge
VBA: Dateiname aus Zelle erstellen
Niko

Guten Abend,
ich habe mir in Excel 2010 ein Makro erstellt, das mir den Dateinamen aus einer bestimmten Zelle generiert:
Sub SaveAs() savedFile = Application.GetSaveAsFilename(InitialFileName:="N:\A\B\C\" & [C1050], fileFilter:=" _ Excel-Arbeitsmappe, *.xlsm") If savedFile "Falsch"...
30.09.2015 21:48:19
Thread-ID: 1450203
3 Beiträge
Mit VBA eine XML Datei für MS Project erzeugen
Willi

Liebe Profis,
schlage mich schon seit Tagen mit folgendem Problem herum:
Wie bekomme ich mittels Excel VBA eine XML Datei geschrieben/erstellt, welche als Import für Microsoft Project verwendet werden kann?

Und zwar muss die in MS Project zu importierende XML-Datei ein in 3 Ebe...
18.10.2015 21:25:42
Thread-ID: 1452984
3 Beiträge
VBA: Tabelle filtern und Dateien erstellen
AlexK

Hallo Leute,
ich werde nicht schlau aus meinen Suchen im Netz:
Ich habe eine Tabelle, die Namen in der Spalte A und die Herkunft der Personen mit den jeweiligen Namen als Stadt in Spalte D enthält.
Nun will ich diese Tabelle filtern nach der Stadt und mit den Filterergebnissen Datei...
08.06.2016 18:38:37
Thread-ID: 1497791
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
3
7
1
1
1
2
2
6
5
2
5
1
3
2
1
1
3
3
5
1
5
3
6