Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1364to1368
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

datei in anderem tabellenblatt über UF öffnen

datei in anderem tabellenblatt über UF öffnen
07.06.2014 16:37:24
Spenski

wie der betreff schon sagt such ich n code
und zwar habe ich eine userform immer auf die excel hintenrum ausblendet. dadurch kann ich keine andere datei öffnen ausser ich mach erst ne neue mappe auf usw.
ich will also aus der UF per butten excel neu öffnen und dann darin eine datei öffnen.
die datei heist beispielweise C:\Users\Spenski\test.xlsx
danke

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: datei in anderem tabellenblatt über UF öffnen
07.06.2014 16:42:24
Hajo_Zi
warum Excel neu öffnen?
Workbooks.Open "C:\Users\Spenski\test.xlsx"

AW: datei in anderem tabellenblatt über UF öffnen
07.06.2014 16:48:52
Spenski
hallo hajo
wie oben beschrieben blende ich die tabelle aus wenn ich die userform nutze:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Visible = True
End Sub
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

deshalb möchte ich eine anderer datei seperat öffnen um zb auch 2 bildschirme zu nutzen (UF und die geöffnete datei)
gruss

Anzeige
AW: datei in anderem tabellenblatt über UF öffnen
07.06.2014 17:03:02
Nepumuk
Hallo,
im Prinzip so:
Public Sub Test()
    
    Dim objApplication As Application
    Dim objWorkbook As Workbook
    
    'Neue Excelinstanz erstellen
    Set objApplication = CreateObject(Class:="Excel.Application")
    
    'Excelfenster einblenden
    objApplication.Visible = True
    
    'Excelmappe in neuer Insatnz öffnen
    Set objWorkbook = objApplication.Workbooks.Open(Filename:="C:\Users\Spenski\test.xlsx")
    
    
    'Mach irgendwas
    
    
    'Mappe wieder schließen ohne zu speichern
    Call objWorkbook.Close(SaveChanges:=False)
    
    'Excel schließen
    Call objApplication.Quit
    
    Set objWorkbook = Nothing
    Set objApplication = Nothing
    
End Sub

Gruß
Nepumuk

Anzeige
AW: datei in anderem tabellenblatt über UF öffnen
07.06.2014 17:42:31
Spenski
danke
bis das : 'Mach irgendwas
war es genau das was ich suchte
gruss

AW: datei in anderem tabellenblatt über UF öffnen
07.06.2014 17:43:00
Spenski
danke

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige