无法识别文件路径

Question

我正在尝试将参数传递给sub。但是那个Sub似乎不起作用（文件路径变量）。尽管我将变量设置为字符串。这行不通。

以下是我的文件路径，名称和扩展名的主要来源

我只是将它们组合在一起以创建文件路径。

下面是单击“保存”按钮时调用“保存”功能的代码：

Private Sub SaveButton_Click()
  Dim wb As Workbook: Set wb = ThisWorkbook
  Dim WS_sr As Worksheet: Set WS_sr = Worksheets("Summary_Report")

  Dim fPath As String

  fPath = WS_sr.Range("R47").Text <== i have tried value still won't work

  Call SaveFile(fPath)
End Sub

下面是SaveFile Sub的代码：

Sub SaveFile(fPath As String)
  Dim fso As Object
  Set fso = CreateObject("Scripting.FileSystemObject")

  Dim File As Object
  Set File = fso.CreateTextFile(fPath)  
  For i = 1 To 100
    If Cells(i, 26).Value = "End" Then Exit For
    File.WriteLine Cells(i, 26).Value

  Next i

  File.Close

  Set fso = Nothing
  Set File = Nothing

End Sub

第二个问题，如何结合变量以创建文件路径？

Set File = fso.CreateTextFile( filepath + filename + extension )  ? 

我已经尝试了以下方法，但无法正常工作

Set File = fso.CreateTextFile( filepath & filename & extension )

谢谢您的问候，

蓝精灵