|
Hallo zusammen,
ich habe von VBA null,komma,null Ahnung und nachdem ich nun gut 5 Stunden im Internet nicht von alleine weitergekommen bin, hoffe ich, ihr könnt mir helfen.
Ich habe eine Excel Vorlage erhalten, die für einen Datenimport dienen soll. Wenn ich das Makro ausführe, erhalte ich die Meldung Laufzeitfehler "1004".: Fehler der Methode "GetSaveAsFilename" des Objekts "_Application."
Ich arbeite mit einem Mac / Office 2016. Liegt es vielleicht daran?
Sub SpeichernAlsCSV()
Dim SrcRg As Range
Dim CurrRow As Range
Dim CurrCell As Range
Dim CurrTextStr As String
Dim ListSep As String
Dim FName As Variant
FName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
ListSep = Application.International(xlListSeparator)
If Selection.Cells.Count > 1 Then
Set SrcRg = Selection
Else
Set SrcRg = ActiveSheet.UsedRange
End If
Open FName For Output As #1
For Each CurrRow In SrcRg.Rows
CurrTextStr = ìî
For Each CurrCell In CurrRow.Cells
CurrTextStr = CurrTextStr & """" & CurrCell.Value & """" & ListSep
Next
While Right(CurrTextStr, 1) = ListSep
CurrTextStr = Left(CurrTextStr, Len(CurrTextStr) - 1)
Wend
Print #1, CurrTextStr
Next
Close #1
End Sub
Grüße
Nadine
|