Essayer d'ouvrir un fichier dans un onglet spécifique

voix
1

Je suis en train d'obtenir un fichier pour l'ouvrir dans un onglet spécifique mais je me bats. Je sais qu'il ya quelque chose de mal avec l'emplacement. Je l'ai essayé d'ajouter des supports et autres mises en forme pour fixer l'emplacement, mais le travail de rien.

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)
Créé 27/11/2018 à 17:45
source utilisateur
Dans d'autres langues...                            


2 réponses

voix
1

Est-ce que ça marche?

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
Créé 28/11/2018 à 09:13
source utilisateur

voix
0

Voici une réponse supplémentaire qui défend contre la feuille étant cachée.

 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
Créé 13/12/2018 à 00:00
source utilisateur

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