2017-06-12 2 views
0

特定のパラメータに基づいてファイル名を格納する変数(MyFile)があります。値がちょうど良い(msgbox関数は4つの名前のそれぞれを表示しているので)。しかし、Application.GetSaveAsFilename(MyFile)関数に入れると、ダイアログが開いたときに1つおきのファイル名しか表示されません。GetSaveAsFilenameは他のすべての変数値のみを表示します

コード:

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 
+0

コードを投稿してください。それは問題の診断に大きな助けとなります。これも参照してください:https://codeblog.jonskeet.uk/2012/11/24/stack-overflow-question-checklist/ – Graham

+0

コードを追加しました。 –

答えて

0

私が間違っていたものを考え出しました。変数には、MyFile変数に値が設定されていない名前のピリオド(X、Inc.など)が含まれている企業の名前が含まれていました。

関連する問題