.csv öffnen per excel (in vbscript)

  • VBScript

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    .csv öffnen per excel (in vbscript)

    hi leute!
    ich habe hier folgendes problem:
    es sollen mehrere csv-dateien nacheinandere abgearbeitet werden, somit
    würde das mit vba/excel öffnen ein wenig zu umständlich für den benutzer
    ausfallen..

    mit vbs scheint es zu gehen, nur hänge ich im moment an dem öffnen der
    csv-datei selbst. (alle anderen codeabschnitte laufen (csv als excel
    gespeichert und editierung))

    dateiangabe ist hier nur zu testzwecken (und über inputbox, weil es mit
    winvista/7 nichtmehr das schicke createobjekt useraccounts.commondialog
    gibt...)

    Brainfuck-Quellcode

    1. File1 = InputBox(Message1, Title, "pz-2011-01-01-2011-01-31_2.csv", 3000, 1000)
    2. If File1 = "" Then
    3. Wscript.quit
    4. End If
    5. DesktopPath = WSHShell.SpecialFolders("Desktop")
    6. File1 = DesktopPath & "\" & File1
    7. '-----------------------------------------------------
    8. Dim objExcel, ExcelSheet, objWorkbook
    9. Set objExcel = CreateObject("Excel.Application")
    10. objExcel.Visible = True
    11. '-----------------------------------------------------
    12. 'nichts davon will so richtig:
    13. 'Set objWorkbook1 = objExcel.Workbooks.OpenText (filename= "" & File1 & "" , dataType=xlDelimited, Comma=True)
    14. 'Set objWorkbook1 = objExcel.Workbooks.OpenText (File1, , , , , , , , True)
    15. 'Set objWorkbook1 = objExcel.Workbooks.OpenText (filename = File1 , dataType=xlDelimited, Semicolon=True)
    16. 'Set objWorkbook1 = objExcel.Workbooks.OpenText (filename=File1, dataType=xlDelimited, Comma=True)
    17. 'Set objWorkbook1 = objExcel.Workbooks.OpenText File1


    Set objWorkbook1 = objExcel.Workbooks.Open("" & File1 & "")
    funktioniert ja einwandfrei für excel-dateien, wende ich das auf eine
    csv-datei an, wird diese zwar geöffnet, aber alle daten in eine spalte
    geschrieben/trennzeichen der csv-datei nicht beachtet.

    mit opentext sollte es funktionieren dachte ich, jedoch mache ich wohl noch irgendwas falsch..

    hoffe jemand weiß rat & vielen dank im vorraus für vorschläge