Datei Pfad
10.11.2004 11:29:06
Martin
Ich habe mal ne frage wie kann ich bei diesem Makro
Den pfad zu den dateien schon vordefinieren aber die datei noch immer selbst wählen
Sub Werte_Importieren() 'zum Improtieren der CSV Datei
fileToopen = Application.GetOpenFilename("partlist1 (*.csv), *.csv") 'Hiermit wahlt man den Pfad zur datei
Workbooks.Open Filename:=fileToopen 'hiermit öffnet man die Datei
Cells.Select 'alles wird Markiert
Selection.Copy 'alles wird Kopiert
ActiveWindow.Close 'CSV Datei wird wieder geschlossen
Worksheets("Parameter").Select 'Das Tabellenblatt Parameter wird ausgewählt
Range("A1").Select 'Auf dem ausgewählten Tabellenblatt wird die Zelle A1 aktivirt
ActiveSheet.Paste 'die kopierten werte werden eingefügt
Cells.Select
End Sub
MFG Martin