Proberen om een ​​bestand te openen in een specifiek tabblad

stemmen
1

Ik ben op zoek naar een bestand te krijgen om te openen in een specifieke tab, maar ik heb moeite. Ik weet dat er iets mis is met de locatie. Ik heb geprobeerd het toevoegen van beugels en andere opmaak naar de locatie, maar het werk niets is te repareren.

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)
De vraag is gesteld op 27/11/2018 om 17:45
bron van user
In andere talen...                            


2 antwoorden

stemmen
1

werkt dit?

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
antwoordde op 28/11/2018 om 09:13
bron van user

stemmen
0

Hier is een extra antwoord dat beschermt tegen het blad verborgen.

 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
antwoordde op 13/12/2018 om 00:00
bron van user

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