csv Datei öffnen
12.09.2007 10:25:00
Eon
Habe ein kleines problem mit dem unten angegebene quelltext öffne ich eine csv datei in einer arbeitsmappe und erstellt dort ein neues tabellenblatt, will aber das er die csv datei in ein schon vorhandenes Arbeitsblatt einfüft, mit dem Namen Vormonat. Es wäre super wenn mir jemand helfen könnte und mir sagt was ich ändern muss.
Vielen Dank
Mit Freundlichen Grüßen
Eon
Sub Öffnen()
Dim strTmp As String
Dim arrTmp As Variant
Dim lngRow As Long
Dim wks As Worksheet
Dim sFile As String
Application.ScreenUpdating = False
sFile = Range("B3").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
With ThisWorkbook
Set wks = .Worksheets.Add(after:=Worksheets(.Worksheets.Count))
End With
Open sFile For Input As #1
While Not EOF(1)
lngRow = lngRow + 1
Line Input #1, strTmp
arrTmp = Split(strTmp, ";")
With wks.Range(Cells(lngRow, 1), Cells(lngRow, UBound(arrTmp) + 1))
.NumberFormat = "@"
.Value = arrTmp
End With
Wend
Close #1
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub