Thema Datum  Von Nutzer Rating
Antwort
20.01.2016 15:07:37 shizoe
NotSolved
Blau Summe mit VBA deativieren?
 23.01.2016 22:01:15 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
23.01.2016 22:01:15		 Views:
406		 Rating:
     
Antwort:
  Ja
Thema:
Summe mit VBA deativieren?

Hallo,

mit diesem Code kann man eine dreispaltige CSV-Datei fehlerfrei importieren:

Sub ImportCSV()
    Dim strPath As String
    strPath = "C:\Users\Dirk\Documents\test.csv"
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & strPath, Destination:=Range("$A$1"))
        '.CommandType = 0
        .Name = "test"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 2)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Der Code stammt aus einer Makro-Aufzeichnung. Lediglich die Zeile ".CommandType = 0" musste deaktiviert werden, da diese Zeile vom VBA-Compiler als ungültig markiert wurde.

Das besondere hierbei ist, dass auch Zeilen mit "=+X" oder "=-Y" als Text importiert wurden.

VG, BigBen

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
20.01.2016 15:07:37 shizoe
NotSolved
Blau Summe mit VBA deativieren?
 23.01.2016 22:01:15 BigBen
NotSolved