कोई विशिष्ट टैब में एक फ़ाइल को खोलने की कोशिश कर रहा

वोट
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