Προσπαθώντας να ανοίξετε ένα αρχείο σε μια συγκεκριμένη καρτέλα

ψήφοι
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