Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Excel-Datei aus einem Add-In heraus öffnen
#1
Hallo meine Lieben,

ich nerv nochmal. Wie öffne ich eine definierte Datei aus einem Add-In heraus.

Mein als Add-In vorliegenderCode:

Sub Add_in()
Workbooks.Open "C:\Verzeichnis\Test.xls"
End Sub

Doch es tut sich rein gar nichts wenn ich auf die von mir installierter Schaltfläche in meinem Excel
Programm drücke. Gleichgültig ob ich aus einer offenen Arbeitsmappe heraus starte oder nicht. P.S: Der Code müsste noch in soweit ergänzt werden, das eine eventuell aktive Arbeitsmappe geschlossen wird und die Datei Test.xls als Einzige in meinem Excel Programm offen ist, sobald ich den Add-In Schalter drücke.

Danke für Eure Hilfe
to top
#2
Lösung selbst gefunden:

Application.Workbooks.Open "C:\Verzeichnis\Test.xls"
to top
#3
Hallo sotaros,

bei mir öffnet Excel die Mappe aus einem AddIn auch ohne Application. davor. Wie sieht denn der code zu Deinem Button aus? War das AddIn beim Aufruf offen oder geschlossen?
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
to top
#4
Hallo André,

danke für deine Rückmeldung. Mein Code sieht so aus:

Sub Add_in()
Application.Workbooks.Open "C:\Verzeichnis\Test.xls"
End Sub


Dann habe ich die betreffende Excel-Datei als xla Datei abgespeichert und das Makro in ein neues Menüband mit den ganzen üblichen Prozeduren für die Add-in Aktivierung zugeordnet.
So funktionierts dann. Habe Excel 2010 64 bit. Mein Problem ist das ich viele Dateien mit langen Verzeichnisnamen auf dem Rechner habe die ich schnell öffnen und wieder schließen möchte.
Du könntest mir trotzdem noch einen Gefallen tun. Wie müsste der Code lauten, wenn ich in einer aktiven Anwendung drin bin, die dann bei dem Add-In Aufruf geschlossen werden soll. Hab's schon selber versucht aber nicht hinbekommen.
Muss leider auch noch viele andere Sachen machen, außer VBA lernen. Danke.
to top
#5
Hallo sotaros,

normalerweise mit
AktiveWorkBook.Close

Als Optionen kannst Du noch true oder false dazuschreiben, je nachdem., ob sie gespeichert werden soll oder nicht.
Zuweilen ist es auch besser, das auszuschreiben mit
AktiveWorkBook.Close SaveChanges:=true (oder false).

Das sollte dann vor die Zeile mit dem Öffnen, ansonsten macht Excel die geöffnete gleich wieder zu - beim Öffnen einer Mappe wird selbige ja automatisch zur aktiven Mappe.
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
[-] Folgende(r) 1 Benutzer sagt Danke an schauan für diesen Beitrag:
sotaros
to top
#6
Hallo André,

genau das habe ich gemacht und das funktioniert natürlich auch. Das Problem ist aber dabei, wenn keine offene Arbeitsmappe vorhanden ist, kommt eine Fehlermeldung und die gewünschte
Datei wird über das Add-In auch nicht mehr geöffnet. Insofern müsste meine Frage besser lauten: Wie prüfe ich ob eine Arbeitsmappe offen ist.


Also:

If Eine offene Arbeitsmappe da Then
AktiveWorkBook.Close SaveChanges:=true
Application.Workbooks.Open "C:\Verzeichnis\Test.xls"
Else
Application.Workbooks.Open "C:\Verzeichnis\Test.xls"
End If
to top
#7
Hallo Andre,
Lösung ganz einfach statt:
AktiveWorkBook.Close SaveChanges:=true

Application.AktiveWorkBook.Close SaveChanges:=true

Dann funktioniert es bei meiner Version.

Aber trotzdem vielen Danke für Deine Hilfe.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Automatischer Download einer Excel Datei Nilsoo 2 38 21.02.2017, 16:45
Letzter Beitrag: snb
  Paralleler Zugriff auf Excel-Datei Horst_Brettermeiner 2 83 31.01.2017, 17:25
Letzter Beitrag: schauan
  Excel Abfrage - Wie können einzelne Spalten auf einem Blatt dargestellt werden?? excelblower 5 149 30.01.2017, 17:29
Letzter Beitrag: schauan
Sad Kurze Hilfe Excel Datei peter080661 2 59 24.01.2017, 12:25
Letzter Beitrag: AlterDresdner
  Excel-Mappe schreibgeschützt öffnen Rabe 10 213 22.01.2017, 22:24
Letzter Beitrag: Rabe
  Öffnen einer Datei mit GetOpenFilename Rabe 2 127 22.12.2016, 13:30
Letzter Beitrag: Rabe
  Mehrere XML Dateien in einem Sheet untereinander öffnen seorexi 1 125 18.12.2016, 15:33
Letzter Beitrag: schauan
  Excel Arbeitsmappe per Makro als .pdf Datei davincy81 8 264 12.12.2016, 10:24
Letzter Beitrag: davincy81
  Daten aus anderer Excel Datei selektiert in neue Datei übernehmen Casual 5 206 08.12.2016, 15:35
Letzter Beitrag: Casual
  Xlsm Datei mit Office 2003 öffnen Thomas der Xte 7 311 19.11.2016, 17:51
Letzter Beitrag: Thomas der Xte

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste