title image


Smiley dir befehl (VBA) mit Variablen
Hallo Gemeinde!



Ich versuche automatisch Dateien zu öffnen und zu schließen. Dieses funktioniert mit einem eingegebenen Pfad problemlos aber mit einer Variablen nicht.



--------------------------------------

Hier das Makro wie es funktioniert:



Sub registerzeichen()

Dim wb As Workbook

Dim str_ordner As String

Dim str_Datei As String

Dim pfadinput As Variant





pfadinput = InputBox("Bitte geben Sie den Pfad ein, wo die Dateien enthalten sind. (Jetzt im Fenster steht nur ein Beispiel).", Default:="C:\testordner")





str_Datei = Dir("c:\_blabla\*.xls")





While str_Datei ""



Set wb = Workbooks.Open(Filename:=pfadinput & "\" & str_Datei)



wb.Close savechanges:=True

str_Datei = Dir

Wend



End Sub



--------------------------------------

So funktioniert es nicht:



Sub registerzeichen()

Dim wb As Workbook

Dim str_ordner As String

Dim str_Datei As String

Dim pfadinput As Variant





pfadinput = InputBox("Bitte geben Sie den Pfad ein, wo die Dateien enthalten sind. (Jetzt im Fenster steht nur ein Beispiel).", Default:="C:\testordner")





str_Datei = Dir(pfadinput&"*.xls")





While str_Datei ""



Set wb = Workbooks.Open(Filename:=pfadinput & "\" & str_Datei)



wb.Close savechanges:=True

str_Datei = Dir

Wend



End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: