एक्सेल वीबीए एक फ़ोल्डर खोलें

Question

2010 एक्सेल वीबीए का उपयोग करना - मैं बस उप के माध्यम से एक फ़ोल्डर खोलने की कोशिश कर रहा हूं। मुझसे यहां क्या गलत हो रहा है?

VBA

Sub openFolder() 
    Dim preFolder As String, theFolder As String, fullPath as String 

    theFolder = Left(Range("T12").Value, 8) 
    preFolder = Left(Range("T12").Value, 5) & "xxx" 
    fullPath = "P:\Engineering\031 Electronic Job Folders\" & preFolder & "\" & theFolder 

    Shell(theFolder, "P:\Engineering\031 Electronic Job Folders\" & preFolder, vbNormalFocus) 

End Sub 

Answer 1

आप एक Windows फ़ाइल एक्स्प्लोरर खोलना चाहते हैं, तो आप explorer.exe

Call Shell("explorer.exe" & " " & "P:\Engineering", vbNormalFocus) 

समतुल्य syxntax

Shell "explorer.exe" & " " & "P:\Engineering", vbNormalFocus 

Answer 2

मैं इस का प्रयोग कर एक को खोलने के लिए बुलाना चाहिए कार्यपुस्तिका और उसके बाद उस कार्यपुस्तिका के डेटा को टेम्पलेट में कॉपी करें।

Private Sub CommandButton24_Click() 
Set Template = ActiveWorkbook 
With Application.FileDialog(msoFileDialogOpen) 
    .InitialFileName = "I:\Group - Finance" ' Yu can select any folder you want 
    .Filters.Clear 
    .Title = "Your Title" 
    If Not .Show Then 
     MsgBox "No file selected.": Exit Sub 
    End If 
    Workbooks.OpenText .SelectedItems(1) 

'नीचे कार्यपुस्तिका में एक नई शीट में फाइल कॉपी और शीट में उन मूल्यों को चिपकाने के लिए है 1

Set myfile = ActiveWorkbook 
    ActiveWorkbook.Sheets(1).Copy after:=ThisWorkbook.Sheets(1) 
    myfile.Close 
    Template.Activate 
    ActiveSheet.Cells.Select 
    Selection.Copy 
    Sheets("Sheet1").Select 
    Cells.Select 
    ActiveSheet.Paste 

End With