VBA Datei schließen aber Link merken!

[schauan]

Hallo ALexandra,

da steht aber strPfadUndDatei und nicht strPfad oder strDatei ...

[cysu11]

Hallo ALexandra,

da steht aber strPfadUndDatei und nicht strPfad oder strDatei ...

Hallo Andre,


ich habe einfach den Code von oben von Uwe reinkopiert!?


VG
Alexandra

[schauan]

Hallo Alexandra,

ja. Wenn Du Variablen verwendest, müssen die irgendwo mal mit variable = ... mit Werten gefüllt werden, bevor Du was damit anstellen kannst. Bei strDatei = Dir(strPfad) passiert das anscheinend auch, aber weil in strPfad nix steht, bringt der Befehl auch nichts (r)ein. Außerdem könnte diese Zeile auch was verkehrtes bringen und nicht die Datei, die Du da geöffnet hast ...

Möglich wäre das z.B. mit:
strPfad = Left(strDateiundPfad, InStrRev(strDateiundPfad, "\"))
strDatei = Mid(strDateiundPfad, InStrRev(strDateiundPfad, "\") + 1)

[Kuwer]

Hallo Alexandra,

dank André´s Ausführungen fiel mir mein Fehler auf. Richtig wäre es so:

Sub aaa()
 Dim strDatei As String, strPfad As String, strPfadUndDatei As String
 
 strPfadUndDatei = Application.GetOpenFilename("Excel Datei, *.*") ' Datei auswählen
 
 If Not CVar(strPfadUndDatei) = False Then
   strDatei = Dir(strPfadUndDatei)
   Workbooks.Open Filename:=strPfadUndDatei
   strPfad = Workbooks(strDatei).Path & "\"
   '...
   Workbooks(strDatei).Close True
   Name strPfadUndDatei As strPfad & "xxxxx.xls"
 End If
End Sub

Gruß Uwe

[cysu11]

Hallo Andre und Uwe,


vielen Danke, nun funktioniert es perfekt! :)

Bis bald :)
LG
Alexandra