Excel VBA Aprire la cartella di lavoro, eseguire azioni, salvare con nome, chiudere

Question

Questa domanda è stata modificata a causa di lunghi commenti e aggiornamenti dalle risposte proposte.

Come richiesto qui è il modulo 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 

Inoltre ci sono problemi con l'ErrorHandling, so che ho sbagliato con esso, ma io sono più interessato a fissare la funzione di chiusura al momento prima di entrare in esso. Ecco il codice di gestione degli errori che ha bisogno di qualche lavoro

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 

questo è il vostro codice di prova più il mio cambiamento del percorso del file e il nome

Answer 1

Dopo la discussione distacco risposta aggiornamento: Manipolazione

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 

errore:

Si potrebbe provare qualcosa di simile per la cattura di un errore specifico:

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

cercherò di rispondere ad alcune cose diverse, ma il mio contributo non può coprire tutte le vostre domande. Forse molti di noi possono prendere diversi pezzi da questo. Tuttavia, questa informazione dovrebbe essere utile per te. Qui andiamo ..

apertura di un file separato:

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 

---

apertura di un file con Data Specifica se esistente:

Non sono sicuro di come cercare la tua directory per vedere se esiste un file, ma nel mio caso non mi preoccuperei di cercarlo, proverei solo ad aprirlo e inserire qualche errore in modo che, se non esiste, mostri questo messaggio o fai xyz.

qualche errore di comune controllando dichiarazioni:

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 

O (opzione migliore):

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?

si sarebbe molto probabilmente si desidera utilizzare il GoTo ErrorHandler indicato di seguito per raggiungere questo

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 

---

Molto più informazioni Gestione degli errori qui: http://www.cpearson.com/excel/errorhandling.htm

---

Anche se volete saperne di più o bisogno di conoscere più in generale in VBA mi sento di raccomandare il sito di Siddharth Rout, lui ha un sacco di esercitazioni e codice di esempio qui: http://www.siddharthrout.com/vb-dot-net-and-excel/

Spero che questo aiuti!

---

esempio su come garantire il codice di errore non viene eseguito ogni volta:

se si esegue il debug attraverso il codice senza il Exit Sub PRIMA che il gestore degli errori vi accorgerete subito il gestore di errori verrà eseguito ogni volta regrld di se c'è un errore o no.Il link sotto l'esempio di codice mostra una risposta precedente a questa domanda.

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 

Inoltre, un'occhiata a questo altro problema nel avete bisogno di più riferimento a come funziona: goto block not working VBA

---