Office: variable Excel-Datei aktivieren

User · 18. September 2012

Hallo alle zusammen

Ich habe ein kleines Problem und hoffe Ihr könnt mir helfen *Smilie

Per VBA sollen von einer Datei (Datei A) Daten in eine andere, bereits existierende Datei (Datei X) kopiert werden. Dies muss so geschehen, da in der Datei X bereits Werte stehen die beibehalten werden müssen.

Die Datei X hat allerdings einen variablen Namen, welcher per VBA ausgelesen werden kann. Um zwischen den beiden Dateien wechseln zu können, hatte ich folgenden Code im Sinn:

Windows(Datei A).activate bzw. Windows(Datei X).activate

leider funktioniert dieser Code nicht.

Weiss jemand eine Lösung?

:)

M Merlin · 20. September 2012

Windows(Datei A).activate bzw. Windows(Datei X).activate

leider funktioniert dieser Code nicht.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was steht den bei dir als Wert für Datei A ?

Es durf nur der Dateiname ohne Verzeichnisse usw. drin stehen. Dann gehts auch...

IngGi · 20. September 2012

Hallo,

schreib dir die beiden Dateien schon beim Öffnen in eine Variable, dann kannst du Daten ganz einfach kopieren:

Sub Daten_kopieren()

Dim wbQuelle As Workbook 'Quelldatei
Dim wbZiel As Workbook 'Zieldatei

'Quelldatei öffnen
Set wbQuelle = Workbooks.Open("C:\Pfad\und\NameDerQuelldatei.xls")
'Zieldatei öffnen
Set wbZiel = Workbooks.Open("C:\Pfad\und\NameDerZieldatei.xls")

'Daten aus der Quelldatei kopieren
wbQuelle.Worksheets("Tabelle1").Range("A1:E5").Copy
'Daten in die Zieldatei einfügen
wbZiel.Worksheets("Tabelle1").Range("A1:E5").PasteSpecial Paste:=xlPasteAll

'Speicherbereich der Objektvariablen freigeben
Set wbQuelle = Nothing
Set wbZiel = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VBA/HTML - CodeConverter für Excelforen
AddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGi
Anbindung an VBE-Kontextmenü geklaut ;-) bei:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 20. September 2012

Danke für die schnellen Antworten!

Deine Lösung IngGi funktioniert tiptop, Dankeschön!

Ich hätte da noch eine Frage dazu; wie kann ich überprüfen ob die Zieldatei existiert, bzw. falls diese nicht existiert was gemacht werden soll?

M Merlin · 20. September 2012

Code:

Dim FSO As Object
Dim Ordner as String

Ordner = "C:\Temp"

Set FSO = CreateObject("Scripting.Filesystemobject")
Set Ordner = FSO.GetFolder("D:\Test") 'Pfad anpassen

If FSO.FolderExists(Ordner) = False Then
FSO.CreateFolder (Ordner)'Ordner erstellen
'Oder ne Msg etc...
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

IngGi · 20. September 2012

Hallo,

folgendes Makro prüft, ob die Zieldatei vorhanden ist und - falls nicht - gibt eine Fehlermeldung aus und bricht das Makro ab:

Sub Daten_kopieren()

Dim wbQuelle As Workbook 'Quelldatei
Dim wbZiel As Workbook 'Zieldatei

'Quelldatei öffnen
Set wbQuelle = Workbooks.Open("C:\Pfad\und\NameDerQuelldatei.xls")

'Prüfen, ob Zieldatei vorhanden
If Dir("C:\Pfad\und\NameDerZieldatei.xls") = "" Then
'Wenn nicht vorhanden, Fehlermeldung ausgeben ...
MsgBox "Zieldatei nicht vorhanden!", vbCritical
'...und anschließend das Makro abbrechen
Exit Sub
Else
'Wenn Zieldatei vorhanden, diese öffnen
Set wbZiel = Workbooks.Open("C:\Pfad\und\NameDerZieldatei.xls")
End If

'Daten aus der Quelldatei kopieren
wbQuelle.Worksheets("Tabelle1").Range("A1:E5").Copy
'Daten in die Zieldatei einfügen
wbZiel.Worksheets("Tabelle1").Range("A1:E5").PasteSpecial Paste:=xlPasteAll

'Speicherbereich der Objektvariablen freigeben
Set wbQuelle = Nothing
Set wbZiel = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VBA/HTML - CodeConverter für Excelforen
AddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGi
Anbindung an VBE-Kontextmenü geklaut ;-) bei:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User · 20. September 2012

Fantastisch Leute, vielen herzlichen Dank!! *biggrin.gif*

Office: variable Excel-Datei aktivieren

variable Excel-Datei aktivieren

variable Excel-Datei aktivieren

variable Excel-Datei aktivieren

variable Excel-Datei aktivieren - Similar Threads - variable Excel Datei

Doppelkopf Spielplan (jeder gegen jeden) VBA / Excel / Access

Variable Abfrage auf verschiedene Tabellenblätter

Verlinkung zu anderen Excel-Listen mit Variable im Link

Variabler Bezug auf Zelle aus anderem Excel-Dokument

excel vba range variable

Benötige sehr variables Makro

Summewenn mit variablen Kriterien