GetSaveAsFilename zeigt nur alle anderen Variablenwerte

Question

Ich habe eine Variable (MyFile), die einen Dateinamen basierend auf bestimmten Parametern speichert. Es speichert die Werte einfach gut (wie die msgbox Funktion zeigt jeden der 4 Namen), aber, wenn ich es in die Application.GetSaveAsFilename(MyFile) Funktion einfügen, wird nur jeder andere Dateiname angezeigt, wenn das Dialogfeld öffnet.

Der Code:

Sub Button1_Click() 
    Dim Customers() As String 
    Dim STD, LTD, LIFE, FMLA As Boolean 
    Dim FilePath As String 
    Dim i, c, n As Integer 
    i = 15 
    c = 0 
    n = 0 

    Range("C15").End(xlDown).Activate 
    Dim r As String 
    r = ActiveCell.Row 

    For i = 15 To r 
     STD = False 
     LTD = False 
     LIFE = False 
     FMLA = False 

     If ActiveSheet.Rows(i).Hidden = False Then 
      Dim loc As String 
      loc = "C" & i 
      Range(loc).Activate 
      ReDim Customers(c) 
      Customers(c) = ActiveCell.Value 
      Dim MyFile As String 

      If Range("Z" & i).Value <> "" Then 
       STD = True 
      End If 
      If Range("AA" & i).Value <> "" Then 
       LTD = True 
      End If 
      If Range("AB" & i).Value <> "" Then 
       FMLA = True 
      End If 
      If Range("AC" & i).Value <> "" Then 
       LIFE = True 
      End If 

      MyFile = Customers(c) 

      If STD = True Then 
       MyFile = MyFile & " - STD" 
      End If 
      If LTD = True Then 
       MyFile = MyFile & " - LTD" 
      End If 
      If LIFE = True Then 
       MyFile = MyFile & " - Life" 
      End If 
      If FMLA = True Then 
       MyFile = MyFile & " - FMLA" 
      End If 

      MsgBox (MyFile) 
      FilePath = Application.GetSaveAsFilename(MyFile) 

      c = c + 1 
     End If 
    Next 

End Sub 

Answer 1

ich herausgefunden, was falsch war. Die Variable enthielt Namen von Firmen, einige mit Perioden in ihrem Namen (wie X, Inc.), die dazu führten, dass die MyFile-Variable nicht gefüllt wurde.