Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
252to256
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
252to256
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Neue Excel-Sitzung mit einer vorhandenen Arbeitsma

Neue Excel-Sitzung mit einer vorhandenen Arbeitsma
09.05.2003 12:52:22
Holger
Hallo Excel-Experten!

Welchen Code muß ich einfügen, um Excel (neue Instanz) mit einer vorhandenen Mappe (c:\meine_mappe.xls) zu starten !

Code startet mit einer neuen Mappe!

Sub NeueSitzung()
Dim appXL As Excel.Application
Dim wkb As Workbook
Set appXL = New Excel.Application
Set wkb = appXL.Workbooks.Add(1)
appXL.Visible = True
End Sub

Danke Holger!


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Neue Excel-Sitzung mit einer vorhandenen Arbeitsma
09.05.2003 13:04:39
L.Vira

Option Explicit
Const FULLNAME As String = "C:\TestMappe.xls"
Sub Excel_neu()
Dim NewExcel As New Excel.Application
Dim WB As Workbook

If Not Dir(FULLNAME) = "" Then
Set WB = NewExcel.Workbooks.Open(FULLNAME)
Else
MsgBox "Die Datei ''" & FULLNAME & "'' wurde nicht gefunden! ", 64, "weise hin..."
End If
NewExcel.Visible = True
End Sub

Re: Neue Excel-Sitzung mit einer vorhandenen Arbeitsma
09.05.2003 13:38:43
Holger

Vielen Dank !!

Holger

kleine Korrektur...
09.05.2003 14:44:48
L.Vira

Option Explicit
Const FULLNAME As String = "C:\TestMappe.xls"
Sub Excel_neu()
Dim NewExcel As New Excel.Application
Dim WB As Workbook
If Not Dir(FULLNAME) = "" Then
Set WB = NewExcel.Workbooks.Open(FULLNAME)
NewExcel.Visible = True
Else
MsgBox "Die Datei ''" & FULLNAME & "'' wurde nicht gefunden! ", 64, "weise hin..."
End If

End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige