Hallo Gast8572,
Die Beispiele, die es im netz gibt sind leider nicht sehr hilfreich.
hier zwei beispiele von nicht hilfreichen makros
1)
Sub Macro()
Dim ws As Worksheet, strFile As String, NRows As Long
Set ws = ActiveWorkbook.Sheets("Import")
ws.UsedRange.Clear
strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Please selec text file...")
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, _
Destination:=ws.Range("A1"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
Columns("A:A").Insert Shift:=xlToRight
Columns("D:D").Cut Destination:=Columns("A:A")
Columns("D:D").Delete Shift:=xlToLeft
Columns("D:D").Cut Destination:=Columns("H:H")
NRows = Cells(Rows.Count, 1).End(xlUp).Row
Range("D1:D" & NRows).FormulaR1C1 = "-"
' ws.Name = "testing"
End Sub
2)
Sub Makro()
Dim ws As Worksheet, strFile As String
Set ws = ActiveWorkbook.Sheets("Import")
strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Please selec text file...")
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, _
Destination:=ws.Range("A5"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
' ws.Name = "Import"
End Sub
Ich würde die Daten eine CSV gerne importieren können nach jedem ; soll ein neues Feld beginnen und nicht etwa nach einem , !!!
Abgesehen davon dürfen alte Datensätze nicht gelöscht oder überschrieben werden.
Die Datensätze sollen wie in Tabellen üblich untereinander und nicht etwa nebeneinander importiert werden.
|