एक्सेल वीबीए ओपन वर्कबुक, क्रियाएं करें, बंद करें

Question

यह प्रश्न लंबे समय तक टिप्पणियों और प्रस्तावित उत्तरों के अपडेट के कारण संपादित किया गया है।

जैसा कि यहां अनुरोध किया गया है मॉड्यूल 13 है;

Sub SaveInFormat() 
Application.DisplayAlerts = False 
Workbooks.Application.ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\jammil\Desktop\AutoFinance\ProjectControl\Data\" & Format(Date, "yyyymm") & "DB" & ".xlsx", leFormat:=51 
Application.DisplayAlerts = True 
End Sub 

इसके अलावा errorhandling के साथ मुद्दों मैं जानता हूँ कि मैं इसके साथ गलत हो गया है, लेकिन मैं इस समय करीब समारोह फिक्सिंग से पहले मैं इसे में मिल में अधिक रुचि रखते कर रहा हूँ कर रहे हैं। यहाँ त्रुटि हैंडलिंग कोड है कि कुछ काम

Sub test() 

Dim wk As String, yr As String, fname As String, fpath As String 
Dim owb As Workbook 

wk = ComboBox1.Value 
yr = ComboBox2.Value 
fname = yr & "W" & wk 
fpath = "C:\Documents and Settings\jammil\Desktop\AutoFinance\ProjectControl\Data" 
owb = Application.Workbooks.Open(fpath & "\" & fname) 
On Error GoTo ErrorHandler: 
ErrorHandler: 
If MsgBox("This File Does Not Exist!", vbRetryCancel) = vbCancel Then Exit Sub Else Call Clear 

'Do Some Stuff 

Call Module13.SaveInFormat 

owb.Close 

इस अपने परीक्षण कोड के साथ साथ फ़ाइल पथ और नाम

Answer 1

चर्चा पोस्टिंग अद्यतन जवाब के बाद:

Option Explicit 
Sub test() 

    Dim wk As String, yr As String 
    Dim fname As String, fpath As String 
    Dim owb As Workbook 

    With Application 
     .DisplayAlerts = False 
     .ScreenUpdating = False 
     .EnableEvents = False 
    End With 

    wk = ComboBox1.Value 
    yr = ComboBox2.Value 
    fname = yr & "W" & wk 
    fpath = "C:\Documents and Settings\jammil\Desktop\AutoFinance\ProjectControl\Data" 

    On Error GoTo ErrorHandler 
    Set owb = Application.Workbooks.Open(fpath & "\" & fname) 

    'Do Some Stuff 

    With owb 
     .SaveAs fpath & Format(Date, "yyyymm") & "DB" & ".xlsx", 51 
     .Close 
    End With 

    With Application 
     .DisplayAlerts = True 
     .ScreenUpdating = True 
     .EnableEvents = True 
    End With 

Exit Sub 
ErrorHandler: If MsgBox("This File Does Not Exist!", vbRetryCancel) = vbCancel Then 

Else: Call Clear 

End Sub 

त्रुटि हैंडलिंग:

आप एक विशिष्ट त्रुटि को पकड़ने के लिए कुछ इस तरह की कोशिश कर सकते:

On Error Resume Next 
    Set owb = Application.Workbooks.Open(fpath & "\" & fname) 
    If Err.Number = 1004 Then 
    GoTo FileNotFound 
    Else 
    End If 

    ... 
    Exit Sub 
    FileNotFound: If MsgBox("This File Does Not Exist!", vbRetryCancel) = vbCancel Then 

    Else: Call Clear 

Answer 2

मैं कोशिश करते हैं और कई अलग अलग चीजें जवाब देंगे की मेरी बदलते है की जरूरत है, लेकिन मेरे योगदान नहीं हो सकता अपने सभी सवालों को कवर करें। शायद हम में से कई इस से अलग भाग ले सकते हैं। हालांकि, यह जानकारी आपके लिए उपयोगी होनी चाहिए। ये हम चले ..

खुलने का एक अलग फ़ाइल:

ChDir "[Path here]"       'get into the right folder here 
Workbooks.Open Filename:= "[Path here]"  'include the filename in this path 

'copy data into current workbook or whatever you want here 

ActiveWindow.Close       'closes out the file 

---

कोई फ़ाइल खोलने में निर्धारित तिथि के साथ यदि वह मौजूद है:

मैं खोज करने के लिए कैसे यकीन नहीं है यह देखने के लिए कि आपकी कोई फ़ाइल मौजूद है या नहीं, लेकिन मेरे मामले में मैं इसे खोजने के लिए परेशान नहीं हूं, मैं इसे खोलने की कोशिश करता हूं और कुछ त्रुटि जांच में डालता हूं ताकि यदि यह अस्तित्व में न हो तो यह संदेश प्रदर्शित करें या xyz करो

कुछ सामान्य त्रुटि जाँच बयान:

On Error Resume Next 'if error occurs continues on to the next line (ignores it) 

ChDir "[Path here]"       
Workbooks.Open Filename:= "[Path here]"  'try to open file here 

या (बेहतर विकल्प):

if one doesn't exist then bring up either a message box or dialogue box to say "the file does not exist, would you like to create a new one?

आप सबसे अधिक संभावना GoTo ErrorHandler नीचे दर्शाया गया का उपयोग करना चाहते हैं यह

प्राप्त करें त्रुटि पर

On Error GoTo ErrorHandler: 

ChDir "[Path here]"       
Workbooks.Open Filename:= "[Path here]"  'try to open file here 

ErrorHandler: 
'Display error message or any code you want to run on error here 

---

बहुत अधिक जानकारी यहाँ से निपटने: http://www.cpearson.com/excel/errorhandling.htm

---

इसके अलावा यदि आप और अधिक जानने के लिए या VBA में अधिक आम तौर पर पता करने के लिए मैं सिद्धार्थ राउत की साइट की सिफारिश करेंगे की जरूरत करना चाहते हैं, वह बहुत सारे ट्यूटोरियल और उदाहरण कोड यहां: http://www.siddharthrout.com/vb-dot-net-and-excel/

आशा है कि इससे मदद मिलती है!

---

कैसे त्रुटि कोड सुनिश्चित करने के लिए हर नहीं चलता है पर उदाहरण:

यदि आप पहले त्रुटि हैंडलर Exit Sub बिना कोड के माध्यम से डिबग आप जल्दी ही त्रुटि हैंडलर का एहसास करेंगे चलाया जाएगा अगर कोई त्रुटि हो या नहीं, तो हर बार पुनर्जन्म।कोड उदाहरण के नीचे दिया गया लिंक इस प्रश्न का पिछला उत्तर दिखाता है।

Sub Macro 

    On Error GoTo ErrorHandler: 

    ChDir "[Path here]"       
    Workbooks.Open Filename:= "[Path here]"  'try to open file here 

    Exit Sub  'Code will exit BEFORE ErrorHandler if everything goes smoothly 
        'Otherwise, on error, ErrorHandler will be run 

    ErrorHandler: 
    'Display error message or any code you want to run on error here 

    End Sub 

इसके अलावा, इस दूसरे सवाल को देखो आप यह कैसे काम करता करने के लिए और अधिक संदर्भ की जरूरत है: goto block not working VBA

---