AHK Convert .csv in .xls Excel Topic is solved

[Heloo1982]

Hallo zusammen,

bei mir zickt gerade eine eine CSV Datei und will nicht auf den SQL-Server, der Upload bricht ständig ab. Öffne ich diese in Excel und speicher als .xls ab, funktioniert der Upload reibungslos. Der Export/Import soll jedoch automatisiert ablaufen, ich checke gerade nebenher die CSV wo der Fehler herkommt. Als Plan B hab ich mir überlegt könnte man evtl. ein AHK-Skript automatisiert laufen lassen, was die CSV in eine Excel konvertiert. Bei einer Recherche im Netz habe ich nur den umgekehrten Fall gefunden (Excel to CSV).

Soweit bin ich gekommen:

Code: Select all

SetWorkingDir %A_ScriptDir%

list := ""
Loop, Read, %A_ScriptDir%\test.csv
{
	if(A_Index != 1)
	{
		
		list := list . "`n" . A_LoopReadLine
		Upload := StrReplace(list,";",{`t})
	}
}

FileAppend, %Upload%, %A_ScriptDir%\Upload.xls, UTF-8

Grundsätzlich funktioniert das bereits, was mich selber überrascht hat
Leider werden die Daten je Zeile in einer Zelle geschrieben und ich suche gerade nach einer Lösung, den Separator ";" mitzugeben und die Daten in Zellen zu trennen.
Geht das ohne COM?
Excel & AutoHotkey Tutorials.

Das hab ich versucht zu verstehen, aber da bin ich glaub raus.
Vielen Dank im Voraus und LG.

[tmplinshi]

I just searched for site:autohotkey.com "csv to xls", and the result from https://autohotkey.com/board/topic/9047 ... ntry571813 works perfectly.

[Heloo1982]

Thank you very much, the Code works perfect.

Code: Select all

SetWorkingDir %A_ScriptDir%

file_to_open := % A_ScriptDir "/test.csv"
xl := ComObjCreate("Excel.Application")
xl.Workbooks.Open(file_to_open)
SplitPath, file_to_open, , OutDir, , OutNameNoExt
xl.ActiveWorkbook.SaveAs(OutDir . "\" . OutNameNoExt . ".xls", 56)   ; same folder, same name, .xls extension 
xl.ActiveWorkbook.Close
xl.quit