Export nach CSV (Format ANSI)
24.04.2009 08:17:55
Markus
das folgende Makro speichert eine Excel-Datei ins Format csv oder txt.
Trenner mit ;
Das gut sehr gut.
Nun benötige ich aber für den Import der Datei in eine Datenbank,
das amerikanische Format.
d.h. der Import geht jetzt schon gut, ausser das äöü und andere Sonderzeichen in der Datenbank nicht richtig dargestellt werden.
Wie kann ich diesem Makro beibringen, das es in ANSI-Format speichert (ich glaub das heisst so) .
Danke jetzt schon für jede Hilfe!
Markus
N.B. das folgende Makro habe ich schon aus diesem Formum kopiert, aber nirgends einen Hinweis auf die Speicherungsart gefunden.
Sub ExportAsCSV()
' Trenner ist ;
Dim strTxt, strMaske As String, iR As Long, iC As Integer
sFile = "c:\Export_aus_Excel_nach_ASCII.txt"
' strMaske = """" 'für ein "
Open sFile For Output As #1
For iR = 1 To ActiveSheet.UsedRange.Rows.Count
strTxt = ""
For iC = 1 To ActiveSheet.UsedRange.Columns.Count
strTxt = strTxt & strMaske & Cells(iR, iC) & strMaske & ";"
Next iC
strTxt = Left(strTxt, Len(strTxt) - 1)
Print #1, strTxt
Next iR
Close #1
MsgBox sFile & " exportiert!"
End Sub