Anzeige
Archiv - Navigation
1260to1264
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
Inhaltsverzeichnis

.csv

.csv
stefan
Hallo zusammen,
habe etwas gefunden was mir dazu noch fehlt ist das die daten in Tabelle 2
eingetragen werden und das das eintragen erst ab Zeile 2 beginnt das wäre super wenn mir jemnd helfen kann ich brauche eure hilfe ;)
Bitte
der Quellcode

Private Sub CommandButton1_Click()
Dim Dateiname
Dim S As String, Data As Variant
Dim Ws As Worksheet
Dateiname = Application.GetOpenFilename("Textdateien,*.csv")
If Dateiname = False Then Exit Sub
S = ReadTextFile(Dateiname)
If Len(Trim(S)) = 0 Then Exit Sub
Data = WorksheetFunction.Transpose(Split(S, vbCrLf))
With Range(Cells(1, 1), Cells(UBound(Data), 1))
.Value = Data
.TextToColumns Semicolon:=True
Worksheets("Tabelle3").Select
End With
End Sub

Private Function ReadTextFile(ByVal FName As String) As String
Dim fs As Object, F As Object
Set fs = CreateObject("Scripting.FileSystemObject")
On Error GoTo ExitPoint
Set F = fs.OpenTextFile(FName)
ReadTextFile = F.ReadAll
F.Close
ExitPoint:
End Function

Danke ;)

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: .csv
01.05.2012 17:52:50
Josef

Hallo Stefan,
Private Sub CommandButton1_Click()
  Dim Dateiname
  Dim S As String, Data As Variant
  
  Dateiname = Application.GetOpenFilename("Textdateien,*.csv")
  If Dateiname = False Then Exit Sub
  
  S = ReadTextFile(Dateiname)
  
  If Len(Trim(S)) = 0 Then Exit Sub
  
  Data = WorksheetFunction.Transpose(Split(S, vbCrLf))
  
  With Sheets("Tabelle2")
    With .Range(.Cells(2, 1), .Cells(UBound(Data) + 1, 1))
      
      .Value = Data
      
      .TextToColumns Semicolon:=True
      
    End With
  End With
End Sub



« Gruß Sepp »

Anzeige
AW: .csv
01.05.2012 18:06:05
stefan
Hallo Josef das hat super geklappt
bei diesem befehl kommt immer eine abfrage ob man denn den inhalt überschreiben will
Rows("2:65536").ClearContents
kann man das umgehen
gruß
und vielen dank nochmal ;)
AW: .csv
01.05.2012 18:29:19
Josef

Hallo Stefan,
schreib vorher Application.DisplayAlerts = False und nachher = True

« Gruß Sepp »

Anzeige
AW: .csv
01.05.2012 21:24:09
stefan
Vielen Dank hat super geklappt danke ;)
AW: .csv
01.05.2012 21:24:10
stefan
Vielen Dank hat super geklappt danke ;)

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige