Dateil als csv speichern

11/01/2010 - 12:02 von Lenka Knopova | Report spam
Hallo,

ich versuche eine Datei mit Makro als .csv zu speichern. Das Makro
speichert die Datei aber als name.csv.xls (also bleibt in excel
format). Gibt es eine Möglichkeit, die Datei direkt als .csv zu
speichern?

Danke & Gruß,
Lenka
 

Lesen sie die antworten

#1 Andreas Killer
11/01/2010 - 12:25 | Warnen spam
On 11 Jan., 12:02, Lenka Knopova wrote:

ich versuche eine Datei mit Makro als .csv zu speichern. Das Makro
speichert die Datei aber als name.csv.xls (also bleibt in excel
format). Gibt es eine Möglichkeit, die Datei direkt als .csv zu
speichern?


Aber ja, wenn Du möchtest kannst Du Dir hier ein kleines Add-In
runterladen:

http://rapidshare.de/files/48978462/CSV.xla.html

Das kann auch Teilbereiche einer Tabelle ex-/importieren.

Ansonsten verwende den angehàngten Code, der auch im Add-In zu finden
ist.

Andreas.

Sub SaveCSVPrim(Rng As Variant, FName As String, _
Optional Separator As String = ";", Optional Wrapper As _
String = """")
Dim a As Variant
Dim B() As String, D() As String
Dim Z As Long, S As Long
Dim R As Long, C As Long

a = Rng
If Not IsEmpty(a) Then
Z = UBound(a, 1)
S = UBound(a, 2)
ReDim B(S - 1)
ReDim D(Z - 1)
For R = 1 To Z
For C = 1 To S
If InStr(1, a(R, C), Separator) > 0 Then
'Rows whith cells including the Separator put in _
Wrapper
B(C - 1) = Wrapper & a(R, C) & Wrapper
Else
B(C - 1) = a(R, C)
End If
B(C - 1) = Replace(B(C - 1), vbLf, " ")
Next C
D(R - 1) = Join(B(), Separator)
Next R
On Error GoTo ErrorHandler
Open FName For Output As #1
Print #1, Join(D(), vbCrLf)
Close #1
End If
Exit Sub
ErrorHandler:
MsgBox FName & vbCrLf & "Fehler " & Err.Number & ": " & Err _
.Description, , "Fehler beim Schreiben in die Datei"
End Sub

Ähnliche fragen