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...)
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
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
- File1 = InputBox(Message1, Title, "pz-2011-01-01-2011-01-31_2.csv", 3000, 1000)
- If File1 = "" Then
- Wscript.quit
- End If
- DesktopPath = WSHShell.SpecialFolders("Desktop")
- File1 = DesktopPath & "\" & File1
- '-----------------------------------------------------
- Dim objExcel, ExcelSheet, objWorkbook
- Set objExcel = CreateObject("Excel.Application")
- objExcel.Visible = True
- '-----------------------------------------------------
- 'nichts davon will so richtig:
- 'Set objWorkbook1 = objExcel.Workbooks.OpenText (filename= "" & File1 & "" , dataType=xlDelimited, Comma=True)
- 'Set objWorkbook1 = objExcel.Workbooks.OpenText (File1, , , , , , , , True)
- 'Set objWorkbook1 = objExcel.Workbooks.OpenText (filename = File1 , dataType=xlDelimited, Semicolon=True)
- 'Set objWorkbook1 = objExcel.Workbooks.OpenText (filename=File1, dataType=xlDelimited, Comma=True)
- '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