csv-Import - mal klappts, mal nicht...

Hallo!
Der folgende Code ist in der Datei "Ergebnis-v1.xls" über einen eigenen Menüeintrag aufrufbar. Es soll aus einer csv-Datei (Semikolon-getrennt) ein bestimmter Datenbereich ( 30 -40) in die Ergebnis-Tabelle kopiert werden .
Der Code an sich klappt auch auf meinem PC, auf einem zweiten (Hard- und Software identisch) wird die csv-Datei beim Öffnen jedoch nicht in Spalten zerlegt, sodass die Auswahl des Datenbereichs missglückt.
Woran kann das liegen? Kann man das richtige Importieren per VBA einschalten?
Kann ich das "Spalten kopieren und einfügen " optimieren?
Danke im Voraus
Timo


Private Sub Ordersatz_Import()
Dim vDatei As Variant
Dim name2 As String
Dim x As Integer, Startx As Integer, Endx As Integer
ChDrive "K"
ChDir "K:\TRANSFER"
vDatei = Application.GetOpenFilename(FileFilter:="CSV-Dateien (*.csv), *.csv", _
Title:="Bitte aktuellen Ordersatz auswählen")
If vDatei = False Then Exit Sub
On Error Resume Next
Workbooks.Open Filename:=vDatei
On Error GoTo 0
name2 = ActiveWorkbook.Name
For x = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If Cells(x, 1).Value = "30" Then
Startx = x
Exit For
End If
Next
For x = Startx To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If Cells(x, 1).Value = "41" Then
Endx = x - 1
Exit For
End If
Next
range("B" & Startx & ":D" & Endx).Copy
Windows("Ergebnis_v1.xls").Activate
Sheets("Artikeltabelle").Select                        ' optimierbar?
range("A3").Select
ActiveSheet.Paste
range("A1").Select
Application.DisplayAlerts = False
Windows(name2).Close (False)
Application.DisplayAlerts = True
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Ordersatz_Import() Dim vDatei As Variant Dim x As Integer, Startx As Integer, Endx As Integer Dim wksTmp As Worksheet, intFile As Integer Dim strTmp As String, vntTmp As Variant Dim lngLastRow As Long ChDrive "K" ChDir "K:\TRANSFER" vDatei = Application.GetOpenFilename(FileFilter:="CSV-Dateien (*.csv), *.csv", _ Title:="Bitte aktuellen Ordersatz auswählen") If vDatei = False Then Exit Sub Set wksTmp = Workbooks.Add.Sheets(1) lngLastRow = 1 intFile = FreeFile Open vDatei For Input As #intFile Do While Not EOF(intFile) Line Input #intFile, strTmp vntTmp = Split(strTmp, ";") vntTmp = WorksheetFunction.Transpose(WorksheetFunction.Transpose(vntTmp)) With wksTmp .Range(.Cells(lngLastRow, 1), .Cells(lngLastRow, UBound(vntTmp))) = vntTmp End With lngLastRow = lngLastRow + 1 strTmp = "" Loop Close intFile With wksTmp For x = 1 To .Cells(Rows.Count, 1).End(xlUp).Row If .Cells(x, 1).Value = "30" Then Startx = x Exit For End If Next For x = Startx To .Cells(Rows.Count, 1).End(xlUp).Row If .Cells(x, 1).Value = "41" Then Endx = x - 1 Exit For End If Next .Range(.Cells(Startx, 2), .Cells(Endx, 4)).Copy _ ThisWorkbook.Sheets("Artikeltabelle").Range("A3") End With wksTmp.Parent.Close False End Sub

Beliebteste Forumthreads (12 Monate)

csv-Import - mal klappts, mal nicht...

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread