Thema Datum  Von Nutzer Rating
Antwort
Rot GetSaveAsFilename Fehler
04.12.2015 21:26:16 IchWerdeNochVerrückt
NotSolved
04.12.2015 22:07:54 Gast66085
NotSolved
04.12.2015 22:23:58 IchWerdeNochVerrückt
NotSolved
05.12.2015 10:28:14 Gast65695
NotSolved
05.12.2015 12:19:24 IchWerdeNochVerrückt
Solved
05.12.2015 14:16:45 Gast90966
NotSolved

Ansicht des Beitrags:
Von:
IchWerdeNochVerrückt
Datum:
04.12.2015 21:26:16
Views:
1321
Rating: Antwort:
  Ja
Thema:
GetSaveAsFilename Fehler

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot GetSaveAsFilename Fehler
04.12.2015 21:26:16 IchWerdeNochVerrückt
NotSolved
04.12.2015 22:07:54 Gast66085
NotSolved
04.12.2015 22:23:58 IchWerdeNochVerrückt
NotSolved
05.12.2015 10:28:14 Gast65695
NotSolved
05.12.2015 12:19:24 IchWerdeNochVerrückt
Solved
05.12.2015 14:16:45 Gast90966
NotSolved