Thema Datum  Von Nutzer Rating
Antwort
21.11.2018 12:49:46 Gast51661
NotSolved
21.11.2018 14:46:40 Tina
NotSolved
Rot CSV als UTF-8 importieren und in Tabelle schreiben
 21.11.2018 17:52:51 Gast26628
NotSolved
21.11.2018 18:48:08 Flotter Feger
NotSolved
22.11.2018 09:46:17 Franzi
NotSolved
22.11.2018 21:29:33 Flotter Feger
NotSolved

Ansicht des Beitrags:
Von:
Gast26628		 Datum:
21.11.2018 17:52:51		 Views:
606		 Rating:
     
Antwort:
  Ja
Thema:
CSV als UTF-8 importieren und in Tabelle schreiben

hm, ich mach immer externe Daten abrufen (den Vorgang kannste selbst aufzeichenen)

Sub ImpIt()
Dim strFileName As String
Dim Rng As Range

    With Application.FileDialog(msoFileDialogFilePicker)
     .AllowMultiSelect = False
     .Filters.Add "CSV-Dateien", "*.csv", 1
     If .Show = -1 Then
       strFileName = .SelectedItems(1)
     Else
       Exit Sub
     End If
   End With
     
   Select Case MsgBox("Alles löschen?", vbQuestion + vbYesNo)
      Case vbYes
         Cells.Clear
         Set Rng = Cells(1)
      Case vbNo
         Set Rng = Cells(1).End(xlDown).Offset(1)
      Case Else
         Exit Sub
   End Select
     
   With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & strFileName, Destination:=Rng)
      
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePlatform = 65001
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileSemicolonDelimiter = True
        .Refresh BackgroundQuery:=False
   End With
   
   'usw
   'usw

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
21.11.2018 12:49:46 Gast51661
NotSolved
21.11.2018 14:46:40 Tina
NotSolved
Rot CSV als UTF-8 importieren und in Tabelle schreiben
 21.11.2018 17:52:51 Gast26628
NotSolved
21.11.2018 18:48:08 Flotter Feger
NotSolved
22.11.2018 09:46:17 Franzi
NotSolved
22.11.2018 21:29:33 Flotter Feger
NotSolved