Der Versuch, eine Datei in einem bestimmten Tab zu öffnen

stimmen
1

Ich versuche, eine Datei zu erhalten in ein bestimmtes Tab zu öffnen, aber ich bin zu kämpfen. Ich weiß, dass es etwas falsch mit der Lage. Ich habe versucht, Klammern und andere Formatierungen Hinzufügen der Lage, aber nichts Wirken zu beheben.

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)
Veröffentlicht am 27/11/2018 um 17:45
quelle vom benutzer
In anderen Sprachen...                            


2 antworten

stimmen
1

Funktioniert das?

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
Beantwortet am 28/11/2018 um 09:13
quelle vom benutzer

stimmen
0

Hier ist eine weitere Antwort, die verteidigt gegen das Blatt versteckt.

 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
Beantwortet am 13/12/2018 um 00:00
quelle vom benutzer

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