Variabler Dateipfad beim Im-/Export
27.04.2015 14:39:36
Frederic
ich hab ein kleines Problem:
Ich soll beim Import einer Datei eine "variable" Speicherortablage definieren können.
Praktisch das Verzeichnis auswählen können, in dem die zu importierende Datei liegt.
Sub Datenimport()
' Datenimport Makro
' Import der Daten aus Datei W14.xls in Tabellenblatt "Datenimport".
ChDir "C:\BOFC-Upload-W14"
Sheets("Datenimport").Select
Cells.Select
Selection.ClearContents
Workbooks.Open Filename:="C:\BOFC-Upload-W14\W14.xls"
Sheets("Upload_nach_BOFC").Select
Cells.Select
Selection.Copy
Windows("W14_BOFC-Upload.xlsm").Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Windows("W14.xls").Activate
Application.CutCopyMode = False
ActiveWindow.Close
Windows("W14_BOFC-Upload.xlsm").Activate
Sheets("Eingabe").Select
Application.UseSystemSeparators = True
ActiveWorkbook.Save
End Sub
Beim Export soll dasselbe passieren, heißt, der Pfad kann ausgewählt werden.
Sub Datenexport()
' Datenexport Makro
' Export der Daten aus Tabellenblatt "BOFC Mapping" in txt Datei.
Application.UseSystemSeparators = False
Set neuesWB = Workbooks.Add
a = neuesWB.Name
Windows("W14_BOFC-Upload.xlsm").Activate
Sheets("BOFC Mapping").Select
Columns("A:K").Select
Selection.Copy
Windows(a).Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ChDir "C:\BOFC-Upload-W14"
Application.DisplayAlerts = False
Columns("K:K").Select
Selection.NumberFormat = "0.00"
ActiveWorkbook.SaveAs Filename:="C:\BOFC-Upload-W14\W14_BOFC-Upload.txt", _
FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close
Application.DisplayAlerts = True
Range("A1").Select
Sheets("Eingabe").Select
Application.UseSystemSeparators = True
ActiveWorkbook.Save
End Sub
Was muss ich denn hier ändern? Hab schon Stunden auf Google zugebraucht, jetzt hoffe ich dass einer n Tipp hat.
LG
Frederic