Office: (Office 2019) Workbook über variablen Pfad öffnen

Hallo zusammen,

ich habe ein Makro, welches einen Pfad festlegt, ein Worksheet aus einem Workbook kopiert und als neues Workbook abspeichert.

Das funktioniert soweit auch tadellos. Nun möchte ich aber das neue Workbook aktivieren und die Buttons darin auszublenden und es als Kopie kennzeichnen (Der Teil fehlt noch).

Ich bekomme es nicht hin, das Workbook über den Pfad, über welchen ich es erstellt habe zu aktivieren. Der erste Pfad enthält keine Dateiendung. Ich habe irgendwo gelesen, dass dies ein Problem darstellen könnte. Deswegen habe ich zum Erstellen der Datei einen zweiten Pfad mit der Dateiendung gebaut.

Wie gesagt das Erstellen der Datei funktioniert auch. Das Aktivieren des Workbooks allerdings nicht mehr.

Hat jemand eine Idee?

Code:

Option Explicit

Private Sub cmdSpeichern_Click()

    'Pfad setzen
    Dim strFilename     As String
    Dim strFilename1     As String
    
    'Pfad festlegen
    strFilename = "C:\Users\USERNAME\Documents\" & "Test " & Range("C2").Value
    strFilename1 = strFilename & ".xlsm"
    
    'speichern
    ActiveSheet.Copy
    ActiveSheet.SaveAs Filename:=strFilename1, FileFormat:=xlOpenXMLWorkbookMacroEnabled
    
    Workbooks(strFilename & ".xlsm").Activate
    cmdSpeichern.Visible = False
    
End Sub

 

Hi,

die Dateiendung kannst du direkt anhängen, dazu brauchst du keine extra Variable.
Den CommandButton kannst du direkt nach dem Erstellen der neuen Mappe ausblenden, denn die neue Mappe mit dem kopierten Blatt ist immer die aktive - du speicherst sie ja auch mittels ActiveSheet:

Code:

Private Sub cmdSpeichern_Click()
    'Pfad setzen
    Dim strFilename     As String
  
    'Pfad festlegen
    strFilename = "C:\Users\USERNAME\Documents\" & "Test " & Range("C2").Value & ".xlsm"
  
    'Blatt kopieren
    ActiveSheet.Copy

    'CommandButton in neuer Mappe ausblenden
    ActiveSheet.OLEObjects("cmdSpeichern").Visible = False

    'neue Mappe speichern
    ActiveSheet.SaveAs Filename:=strFilename, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

---

 

Vielen Dank @Beverly , dann waren die Reihenfolge und die Syntax zum Ausblenden wohl falsch, wenn ich das richtig sehe.

So wie du es beschrieben hast funktioniert es auf jeden Fall!

 

Falsch war, dass du die neue Arbeitsmappe in dieser Zeile (in der auch der Laufzeitfehler auftrat)
Workbooks(strFilename & ".xlsm").Activate mit folgendem Namen angesprochen hast:
"C:\Users\USERNAME\Documents\Test2022" & ".xlsm", da die Variable strFilename mit eben diesem Inhalt belegt ist. Der Name der noch geöffneten neuen Mappe ist aber Test2022.xlsm, was bedeutet: wenn du die neue Mappe schon ansprechen willst, dann nur mit ihrem gespeicherten Namen ohne Pfadangabe - syntaxmäßig richtig gewesen wäre an dieser Stelle also: Workbooks("Test " & Range("C2").Value & ".xlsm").
Dennoch ist der ganze Umweg nicht notwendig - wie mein im vorhergehenden Beitrag gepostete Code zeigt.

---

 

Ja das stimmt, dass mit dem Aktivieren war wohl einfach zu kompliziert gedacht. Der von dir gepostete Code funktioniert auf jeden Fall tadellos!