Текстовая ссылка на ячейку при настройке пути к книге

Question

У меня есть сценарий VBA, который открывает другую книгу, расположенную на моем рабочем столе. В пути есть две переменные, которые определяют местоположение файла, который я хочу открыть: (1) пользователь ПК; (2) имя файла. Пользователь переменной ПК определен в ячейке J3, но имя файла в J2 указано на одном листе. Код выглядит следующим образом:

Option Explicit

Sub Chakars()

    Dim BeiguSheet As Worksheet
    Dim FileJauda As String

    Set BeiguSheet = ThisWorkbook.Sheets("Final")

        FileJauda = "C:\Users\ugikam\Desktop\" & "Jauda_" & BeiguSheet.Range("J2").Value & ".xlsm"

    Workbooks.Open (FileJauda)

End Sub

В строке, где определяется FileJauda, ​​вы видите ссылку на ячейку J2, которая работает правильно. Однако, когда я пытаюсь заменить другую переменную в пути (а именно, пользователь, который является "ugikam") с помощью строки ниже, он не может найти файл больше. Где проблема? Может ли это быть связано с тем, что "угикам" является строка текста?

FileJauda = "C: \" & BeiguSheet.Range ("J3"). Значение & "\ Desktop \" & "Jauda_" & BeiguSheet.Range ("J2"). Значение & ".xlsm"

Answer 1

Возможно, проблема возникла из-за невидимых символов.я пытаюсь очистить обе строки с помощью приведенного ниже кода.Кроме того, вы можете отлаживать и проверять одно за другим значение ячейки, используя окно запугивания.Наконец, вы пытаетесь открыть книгу с именем FilePath , которое нигде не определено.попробуйте заменить Workbooks.Open (FilePath) на Workbooks.Open (FileJauda)

Option Explicit

Sub Chakars()

    Dim BeiguSheet As Worksheet
    Dim FileJauda As String

    Set BeiguSheet = ThisWorkbook.Sheets("Final")

        With BeiguSheet
            FileJauda = "C:\" & _
                        Application.Clean(Application.Trim(.Range("J3").Value)) & _
                        "\Desktop\Jauda_" & _
                        Application.Clean(Application.Trim(.Range("J2").Value)) & _
                        ".xlsm"
        End With

    Workbooks.Open (FileJauda)

End Sub