Путь к файлу не может быть распознан - PullRequest
Новая
       47

Путь к файлу не может быть распознан

0 голосов
/ 10 апреля 2020

Я пытаюсь передать аргумент подпрограмме. Но этот Sub, кажется, не работает (переменная пути к файлу). Хотя я установил мою переменную в строку. Это не будет работать.

Ниже приведен основной источник моего пути к файлу, имени и расширения

enter image description here

Я только что объединил их для создания пути к файлу.

Ниже приведен код, который вызывает функцию Сохранить при нажатии кнопки сохранения: 

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

Ниже приведен код для SubFile SaveFile: 

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 )

благодарю Вам и всего наилучшего,

Smurf

...