Excel VBA変数からセルのパス/名前を保存します。

Question

セルをファイルパスとファイル名として使用してワークブックのコピーを保存しています。

ここでコードを使用していますが、各セルの間にスペースを入れています。ファイル名として使用されている細胞の一部が空白であれば、それは余分なスペースを入れないで線量ので 注のみActiveSheet.Range細胞は、私はそれを行うことができますどのように空白

Dim NewWb As Workbook 
sFile = Control_Sheet_VB.Range("H2") & "\" & ActiveSheet.Range("H8") & " " & ActiveSheet.Range("E10") & " " & ActiveSheet.Range("D14") & " - Ticket #" & Control_Sheet_VB.Range("B2") & Control_Sheet_VB.Range("C2") & ".xlsm" 
Set OldWb = ActiveWorkbook 
OldWb.SaveCopyAs sFile 
Set NewWb = Workbooks.Open(sFile) 

であることの可能性を持っていますファイル名

Answer 1

であなたは次のように行くことがあります。

sFile = Control_Sheet_VB.Range("H2") & "\" & _ 
     IIf(ActiveSheet.Range("H8") <> "", ActiveSheet.Range("H8") & " ", "") & _ 
     IIf(ActiveSheet.Range("E10") <> "", ActiveSheet.Range("E10") & " ", "") & _ 
     IIf(ActiveSheet.Range("D14") <> "", ActiveSheet.Range("D14") & " ", "") & _ 
     " - Ticket #" & Control_Sheet_VB.Range("B2") & _ 
     Control_Sheet_VB.Range("C2") & ".xlsm"