VBA-Problem mit Dateibezeichnung
01.08.2013 09:10:37
Toumas
da ich VBA erst lerne habe ich bei untenstehenden Makro ein kleines Problem, oder eher einen Denkfehler.
Das Makro soll mir aus einer bereits geöffneten Datei Werte in eine andere Datei kopieren. So weit habe ich es auch damit schon gebracht :
Sub Daten_öffnen_kopieren()
'MsgBox " ! Das öffnen und kopieren der Daten kann etwas Zeit beanspruchen, bitte Geduld haben ! _
Windows("AAAAA_BBBBB.TTMMJJ.UUUU.xls").Activate
With Sheets("Scanakten")
.Range(Cells(3, 1), Cells(Cells(Rows.Count, 6).End(xlUp).Row, 6)).SpecialCells( _
xlCellTypeVisible).Copy Workbooks("MPL - Test - Leer.xlsm").Sheets("XXX XXX XXXX").Range("A2")
End With
Application.DisplayAlerts = False
Workbooks("AAAAA_BBBBB.TTMMJJ.UUUU.xls").Close True
Application.DisplayAlerts = True
End Sub
Wie gesagt, das funktioniert auch einwandfrei, auch wenn es euch Profis vermutlich die Zehennägel hochbiegt. ;-)
Jetzt habe ich folgendes Problem
Die Dateien, die jeden Tag geöffnet werden, haben folgendes Format :
AAAAA_BBBBB.TTMMJJ.UUUU.xls
Die Buchstaben (ausser A und B) stehen für sich ändernde Werte.
Nun dachte ich mir, dass ich die Zeile :
Windows("AAAAA_BBBBB.TTMMJJ.UUUU.xls").Activate
"einfach" durch
Windows("AAAAA_BBBBB.*.*.xls").Activate
ersetze..... aber das war leider nichts.
Hat mir jemand freundlicherweise einen Tipp ?
Danke schon mal im Voraus.
Viele Grüße
Toumas