Excel-VBA-Arbeitsmappe Öffnen, Aktionen ausführen, speichern, schließen

Diese Frage bearbeitet wurde, durch lange Kommentare und updates von vorgeschlagenen Antworten.

Verlangt wie hier ist das Modul 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

Außerdem gibt es Probleme mit dem errorhandling, ich weiß, ich habe mich falsch mit ihm, aber ich bin mehr daran interessiert, bei der Festsetzung der schließen-Funktion in dem moment, bevor ich in Sie. Hier ist die code für die Fehlerbehandlung, die braucht etwas Arbeit

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

dies ist Ihr test-code sowie meinem ändern der Datei-Pfad und name

gut, ich sah nur noch diese als Ihre Frage: "Insgesamt möchte ich eine Funktion für einen button in meiner userform öffnen bestimmter Arbeitsmappen und entweder führen Sie einige Aktionen, speichern, in ein format, und schließen Sie oder öffnen Sie eine Arbeitsmappe und anzeigen von Informationen." - das sind alle serperate Aufgaben, die sehr leicht zu erhalten, Lösungen für die in der excel-Hilfe oder dem Netz - deine Fragen hier kommt quer ein wenig wie "pretty bitte, meine Arbeit zu tun" - es brechen, mehr-code-Fragen.

InformationsquelleAutor JamesDev | 2012-10-18

8

Nach der Diskussion die Veröffentlichung aktualisierter Antwort:
```
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
```
Fehlerbehandlung:

Könnten Sie versuchen, etwas wie diese zu fangen, die eine bestimmte Fehlermeldung:
```
    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
```
- Entfernen Sie die Zeile owb.close wenn Sie es nicht mehr öffnen sowieso. Fügen Sie eine weitere Zeile finden Sie den Namen der neuen Arbeitsmappe, wenn Sie wollen, um es zu schließen nach dem speichern.
- Ja die gleiche Methode anwenden können, wie: .SaveAs mypath & "\" & yr & mnth
- Wenn wir zurück ein wenig, hast du das erklären oWB als Arbeitsmappe und Legen Sie es auf die Arbeitsmappe, die geöffnet wird, basierend auf den Werten, die sich aus der comboboxes? Wenn ich das richtig verstehe, dann führen Sie einige weitere Aktionen auf diese Arbeitsmappe, die geöffnet wurde, und Speichern Sie es als einen anderen Dateinamen (YYYYMMDB.xlsx)? Wenn dem so ist, dann sollten Sie noch in der Lage sein zu verwenden, die oWB variable, die Arbeitsmappe zu schließen.
- Wo haben Sie meinen code mit deinen Ergänzungen? Bearbeiten können Sie Ihre original-Beitrag und fügen Sie den Inhalt der Module13 bitte.
- Bearbeitet meine Frage, die Sie nicht benötigen, um ein separates Modul für das Speichern, ich habe aufgenommen, dass in meinem code. Probieren Sie es jetzt.
- Siehe neueste update, das ich Verpasst Set vor owb = Application... Das Problem beheben sollte.
- update: von dem, was ich sehen kann, ist es die Datei öffnen und speichern und schließen, bevor der Fehler passiert, es läuft das öffnen, schließen und speichern, aber dann öffnet sich die error-handling-Nachricht sowieso
- Ja, das ist ein problem, wenn Sie versuchen zu fangen eine bestimmte Fehlermeldung, ich habe es editiert, mein Beitrag mit einer Idee für das stoppen, aber ich bin kein Experte auf Fehlerbehandlung.
- Ändern Sie Ihre Fehler-handler für die Anzeige einer message-box mit Err.Desc um herauszufinden, was das problem ist und Schritt für Schritt durch den code mit Breakpoints zu identifizieren, die die Zeile die den Fehler verursacht.
- leider, das funktioniert, aber trotzdem verdienen Sie den status des Helden der Woche. Es ist von keinem nutzen, aber Sie werden von jetzt bis nächsten Freitag mein held der Woche ist, wird es auf facebook. Ich werde arbeiten auf eine Trophäe oder sowas
- Ich schaue nicht auf deinen code in die Tiefe, aber ich glaube, Sie wollen Exit Sub VOR dem error-handler. Siehe ganz unten in meiner Antwort nachlesen können.
- Ok, also habe ich eine neue Frage in Bezug auf diese, so wie es da steht ich habe das Programm öffnen wie oben die Arbeitsmappe basierend auf den eingegebenen Monat und das Jahr. Was ich jetzt noch tun müssen, ist zu versuchen zu öffnen, basierend auf dem Monat und Jahr, und wenn es nicht ein, dann öffnen Sie die vergangenen Monate ein, und eine neue erstellen, wie würde ich gehen?
- könntest du eine Nummer für Ihren Monat und wenn die Datei nicht vorhanden für diesen Monat werden Sie eine Fehlermeldung erhalten, dann haben Sie einen Fehler-handler subtrahieren Sie 1 aus dem Monat Nummer, und versuchen Sie zum öffnen der neuen Datei.
- Links ein Kommentar oben aber vergessen zu-tag Sie es.
InformationsquelleAutor Alistair Weir
2

Ich werde versuchen und beantworten Sie einige verschiedene Dinge, aber mein Beitrag kann nicht decken alle Ihre Fragen. Vielleicht mehrere von uns kann auf unterschiedliche Stücke aus dieser. Aber diese info sollte für Sie hilfreich sein. Hier gehen wir..

Eröffnung Einer Separaten Datei:
```
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
```
Öffnen Einer Datei Mit Dem Angegebenen Datum, Falls Es Vorhanden Ist:

Ich bin mir nicht sicher, wie Sie Sie suchen Ihr Verzeichnis, um zu sehen, ob eine Datei vorhanden ist, aber in meinem Fall würde ich nicht die Mühe, danach zu suchen, würde ich nur versuchen, es zu öffnen, und in einige Fehler zu überprüfen, so dass, wenn es nicht existiert, dann anzeigen diese Nachricht oder tun xyz.

Einige häufige Fehler überprüfen Aussagen:
```
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
```
Oder (die bessere option):

wenn man nicht existiert, dann bringen Sie entweder eine Meldung oder Dialog
box zu sagen, "die Datei existiert nicht, möchten Sie erstellen eine neue
eine?

würden Sie wahrscheinlich wollen, verwenden Sie die GoTo ErrorHandler unten gezeigt um dies zu erreichen
```
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
```
Viel mehr info auf Error-handling hier: http://www.cpearson.com/excel/errorhandling.htm

Auch wenn Sie mehr erfahren möchten oder wissen müssen generell in VBA würde ich empfehlen, Siddharth Rout ' s Website, er hat viele tutorials und Beispiel-code hier:
http://www.siddharthrout.com/vb-dot-net-and-excel/

Hoffe, das hilft!

Beispiel, wie sichergestellt werden kann Fehler-code wird nicht ausgeführt, EVERYtime:

wenn Sie Debuggen, den code ohne die Exit Sub VOR dem error-handler werden Sie bald feststellen den Fehler-handler wird ausgeführt, jedes mal wenn regarldess, wenn es ein Fehler ist oder nicht. Der link unter dem code-Beispiel zeigt eine Antwort auf diese Frage.
```
  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
```
Betrachten Sie auch diese andere Frage in benötigen Sie mehr Bezug auf, wie das funktioniert:
goto-block nicht funktioniert VBA
- Danke, ich leider gehe jetzt arbeiten, aber ich werde dir das morgen
- klingt gut, freue mich auf hearin von Ihnen
- Ich habe deine Fehlerbehandlung zu machen, eine Nachricht wird angezeigt, wenn die Datei versucht zu öffnen schlägt fehl. Leider, wenn Sie die Datei öffnen funktioniert, ich bekomme immer noch die Meldung
- Ich habe von Ihnen positiv bewertet werden als Ihre errorhandling mir eine Plattform, auf der die mit zu arbeiten, aber für seine fundierten Antwort und laufende Hilfe ich bin akzeptieren die Antwort von @alistair Wehr
- Sie müssen Beenden [Sub,Wenn (was auch immer der code ist in)] vor der Fehlerbehandlung Abschnitt. Auf diese Weise wird der code natürlich nicht den code ausführen, es sei denn, es ist ausdrücklich gesagt, dies zu tun, weil Sie den Fehler. Poste ich beispielsweise in meiner Antwort oben.
- Ich antwortete auf Ihre Frage über den Fehler-code ausführen jedes mal. Es ist unten meine Antwort.
- Danke Euch beiden, hervorragenden klaren und präzisen Antworten, die mir geholfen haben bekommen eine Plattform, um zu starten (und möglicherweise gerade meinen job gerettet für den Moment). Top Jungs
InformationsquelleAutor Mike Kellogg

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.