Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

csv Datei öffnen

csv Datei öffnen
12.09.2007 10:25:00
Eon
Hallo Liebe Herber Freunde
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


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: csv Datei öffnen
12.09.2007 10:57:01
Hoffi
Hallo,
ersetze diese Zeile:

Set wks = .Worksheets.Add(after:=Worksheets(.Worksheets.Count))


durch:


Set wks = Sheets("Vormonat")


Grüße
Hoffi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige