hilfe mit improt CSV
06.07.2005 17:33:52
Matthias
Ich habe Folgendes Problem
Ich habe auf einem Pc ein programm geschrieben welches CSV Dateien importiert und zwar so das jeder werte eine zelle hat auf dem Rechner funktioniert das programm einwanfrei
Nun habe ich ein laptop und möcht das programm auch diesem Laptop läuft tut es aber nicht alle werte stehen in Spalte A und sind durch ; getrennt
Woran kann es liegen
Betreibssystem ist gleich XP
Office = 2000 Prof
laufwerksbezeichnung wurden für das programm angepasst sind auch gleich
Sub Werte_Importieren() 'zum Improtieren der CSV Datei
Dim FileToOpen As String
ChDrive "T:\" 'Bestimmen des Laufwerks
ChDir "T:\NA\lst" 'Bestimmen des Pfade
FileToOpen = Application.GetOpenFilename("partlist1 (*.csv), *.csv") 'Wahl der Datei
Workbooks.Open Filename:=FileToOpen 'Öffnen der gewählten Datei
Cells.Copy Destination:=ThisWorkbook.Worksheets("Parameter").Range("A1") 'alles wird Kopiert
ActiveWorkbook.Close 'CSV Datei wird wieder geschlossen
End Sub
Danke im Vorraus
Anzeige