При попытке открыть файл в определенную вкладку

голоса
1

Я пытаюсь получить файл, чтобы открыть в определенной вкладке, но я изо всех сил. Я знаю, что есть что-то не так с места. Я попытался добавить скобки и другое форматирование, чтобы исправить положение, но работать Ничего.

strPath = G:\Budgets and Financial\CLT Budget Templates\
strFile = Belle Grove Manor.xlsx
strSheet = Sheet1
strRng = Range(E2).Address(2, 5, xlR1C1)
strRef = ' & strPath & [ & strFile & ] & strSheet & '! & strRng
Workbooks.Open (strRef)
Задан 27/11/2018 в 17:45
источник пользователем
На других языках...                            


2 ответов

голоса
1

Это работает?

Sub openWB()

    strPath = "G:\Budgets and Financial\CLT Budget Templates\"
    strFile = "Belle Grove Manor.xlsx"
    strSheet = "Sheet1"
    strRng = "E2"
    strRef = strPath & strFile

    Dim newWB As Workbook
    Set newWB = Workbooks.Open(strRef)
    newWB.Sheets(strSheet).Select
    newWB.Sheets(strSheet).Range(strRng ).Select

End Sub
Ответил 28/11/2018 в 09:13
источник пользователем

голоса
0

Вот дополнительный ответ, который защищает от листа прячась.

 Sub OpenAndSheet()

        Dim strPath As String: strPath = "G:\Budgets and Financial\CLT Budget Templates\Belle Grove Manor.xlsx"""
        Dim strSheet As String: strSheet = "Sheet1"
        Dim strRng As String: strRng = "E2"

        Dim WBK As Workbook: Set WBK = Workbooks.Open(strRef)

        Dim WS As Worksheet: Set WS = WBK.Sheets(strSheet)

        With WS
            .Visible = xlSheetVisible
            .Activate
            .Range(strRng).Select
        End With

 End Sub
Ответил 13/12/2018 в 00:00
источник пользователем

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more