Thema Datum  Von Nutzer Rating
Antwort
18.07.2020 16:43:02 repla385
NotSolved
18.07.2020 17:16:53 Mase
NotSolved
18.07.2020 17:59:06 repla385
NotSolved
Blau VBA csv in xlsx
 19.07.2020 00:55:40 Mase
NotSolved
18.07.2020 22:28:16 Gast7840
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
19.07.2020 00:55:40		 Views:
586		 Rating:
     
Antwort:
  Ja
Thema:
VBA csv in xlsx

Hi,

versuchs mal damit. (Mit etwas Fleißarbeit in Eigenleistung  :))

Option Explicit

Sub main()
    '*** hier Deine Dir Anweisung un
    Call CSV2XLSX("c:\Test\Test.csv")
End Sub
Sub CSV2XLSX(ByVal sDateiPfad As String)
    Dim iFree              As Integer
    Dim lngCounter         As Long
    Dim sFile              As String
    Dim vLines             As Variant
    Dim wks                As Excel.Worksheet: Set wks = ActiveSheet
    '*** File einlesen
    iFree = FreeFile
    Open sDateiPfad For Binary As iFree
        sFile = Space$(LOF(iFree))
        Get #iFree, , sFile
    Close
    '*** nach vbCarriegReturnLineFeed splitten; je vbCRLF eine Zelle in A
    vLines = Split(sFile, vbCrLf)
    For lngCounter = LBound(vLines) To UBound(vLines)
        With ActiveSheet
            .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Value = vLines(lngCounter)
        End With
    Next
    '*** File unter selben Name als XLSX speichern
    With wks
        .SaveAs Filename:=getPath(sDateiPfad) & getFilename(sDateiPfad), FileFormat:=xlOpenXMLWorkbook
        .Cells.Clear
    End With
    '*** CSV entfernen
    Kill sDateiPfad
End Sub

Function getFilename(ByVal sDateiPfad As String) As String
    '*** extrahiert Dateinamen
    getFilename = Split( _
                        Mid(sDateiPfad, _
                        Start:=1 + InStrRev(sDateiPfad, "\"), _
                        Length:=Len(sDateiPfad)), Delimiter:=".")(0)
End Function

Function getPath(ByVal sDateiPfad As String) As String
    '*** extrahiert Dateipfad
    getPath = Left(sDateiPfad, InStrRev(sDateiPfad, "\"))

End Function

 

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
18.07.2020 16:43:02 repla385
NotSolved
18.07.2020 17:16:53 Mase
NotSolved
18.07.2020 17:59:06 repla385
NotSolved
Blau VBA csv in xlsx
 19.07.2020 00:55:40 Mase
NotSolved
18.07.2020 22:28:16 Gast7840
NotSolved