HI,
kann mir vielleicht jemand sagen was ich bei folgenden Zeilen ändern muß damit kein fester dateiname aufgerufen wird sondern das er variabel bleibt?
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\excel\Neuer Ordner\Neu\Archiv\08-Okt-05.csv", Destination:=Range( _
"A1"))
.Name = "08-Okt-05"
der variable name wird bestimmt über
Dim fn
Dim wb As Workbook, wb2 As Workbook
Set wb = ActiveWorkbook
fn = Application.GetOpenFilename("Excel-Dateien (*.csv),*csv")
If fn = False Then Exit Sub 'Abbrechen geklickt
Application.ScreenUpdating = False
Set wb2 = Workbooks.Open(Filename:=fn)
wb2.Sheets(1).Copy After:=wb.Sheets(wb.Sheets.Count)
Danke