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