Excel im Hintergrund starten

Bert · 2003-01-15T08:08:50+00:00

Um Exceldaten in einem automatisierten Vorgang bearbeiten zu können muss ich eine XLS-Datei in eine CSV-Datei konvertieren. Dies funktioniert mittels eines Autostartmakros. Das ganze starte ich dann über eine Batchdatei. Mein Problem ist nun, da dies Batchdatei wiederum aus einem Automatisierungstool gestartet wird, muss Excel im Hintergrund laufen. D.h. es darf kein Fenster von Excel aufgehen. Gibt es hier einen Parameter den ich beim Aufruf von Excel in der BAtchdatei mitgeben kann??

hi
ganz genau
Private Sub Workbook_Open()
ist die erste anlaufstelle
habe eine idee wie die du die wartezeit überbrücken kanst während deine batch datei im hintergrund speichert.
1.gehe in den entwicklungsmodus von excel mit alt+f11
2.klick das menü einfügen an und modul einfügen
3.klick auf das symbol wekzeugsammlung
4.klick auf in die nun geöffnete werzeugsammlung auf befehlsschaltfläche und erstelle sie auf der userform1
5.klick nun auf diese erstellte schaltfläche doppelt
6.kopiere nachstehenden code in das sich öffnende script

Private Sub CommandButton1_Click()
Application.Visible = True
Application.DisplayAlerts = False
Application.Quit
ThisWorkbook.Close savechanges:=False
End Sub

7.doppelklicke nun (links)auf Userform1
8.stell die größe der userform ein mit der maus ziehen so wie möchtest
9.und zu guter letzt doppelklick auf diese abeitsmappe
und nun der den nachstehenden code dort einfügen

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show

End Sub

10.arbeitsmappe speichern und schließen fertig.
nun hast du excel so programmiert das es nur mit der userform1 startet.und die userform hat einen button zum beenden-
wenn du den anklickst wird anklickst wird alles ohne speichern geschlossen.vor allem wartet excel nun solange bis deine batsch alles erledigt hat.
versuches mal
webmaster ivan

hi
ich habe was ausgegraben kopiere alles in ein normales modul
speichern und alles schließen

Dim CdbList()
Dim Status_StandardBar As Boolean
Dim Status_FormulaBar As Boolean
Dim Status_HorScroll As Boolean
Dim Status_StatusBar As Boolean
Dim Status_VerScroll As Boolean
Dim Status_Gridlines As Boolean
Dim Status_Headings As Boolean
Dim Status_WorkbookTabs As Boolean
Dim xCn%
Dim xCdbList()

Sub Auto_Open()

Dim Cdb As CommandBar
''.....
Dim bar
For Each bar In Application.CommandBars
bar.Enabled = False
Next

Cn = 1
For Each Cdb In Application.CommandBars
If Cdb.Visible And Cdb.Type <> msoBarTypeMenuBar Then
ReDim Preserve CdbList(Cn)
CdbList(Cn) = Cdb.Name
Cn = Cn + 1
Cdb.Visible = False
End If
Next

With ActiveWindow
Status_HorScroll = .DisplayHorizontalScrollBar
If .DisplayHorizontalScrollBar = True Then .DisplayHorizontalScrollBar = False

Status_VerScroll = .DisplayVerticalScrollBar
If .DisplayVerticalScrollBar = True Then .DisplayVerticalScrollBar = False

Status_Gridlines = .DisplayGridlines
If .DisplayGridlines = True Then .DisplayGridlines = False

Status_Headings = .DisplayHeadings
If .DisplayHeadings = True Then .DisplayHeadings = False

Status_WorkbookTabs = .DisplayWorkbookTabs
If .DisplayWorkbookTabs = True Then .DisplayWorkbookTabs = False

End With

With Application
Status_StatusBar = .DisplayStatusBar
If .DisplayStatusBar = True Then .DisplayStatusBar = False

Status_FormulaBar = .DisplayFormulaBar
If .DisplayFormulaBar = True Then .DisplayFormulaBar = False
End With

CommandBars(1).Enabled = False
Application.DisplayFullScreen = False

End Sub

Sub Auto_Close()

Dim bar
For Each bar In Application.CommandBars
bar.Enabled = True
Next

Dim Cdb As CommandBar
Dim Ci%

For Ci = 1 To Cn - 1
Application.CommandBars(CdbList(Ci)).Visible = True
Next Ci

With ActiveWindow
.DisplayHeadings = Status_Headings
.DisplayHorizontalScrollBar = Status_HorScroll
.DisplayVerticalScrollBar = Status_VerScroll
.DisplayGridlines = Status_Gridlines
.DisplayWorkbookTabs = Status_WorkbookTabs
End With

With Application
.DisplayStatusBar = Status_StatusBar
.DisplayFormulaBar = Status_FormulaBar
End With

CommandBars(1).Enabled = True

'Dim Cdb As CommandBar

Cn = 1
For Each Cdb In Application.CommandBars
If Cdb.Visible And Cdb.Type <> msoBarTypeMenuBar Then
ReDim Preserve CdbList(Cn)
CdbList(Cn) = Cdb.Name
Cn = Cn + 1
Cdb.Visible = True
End If
Next

With ActiveWindow
Status_HorScroll = .DisplayHorizontalScrollBar
If .DisplayHorizontalScrollBar = False Then .DisplayHorizontalScrollBar = True

Status_VerScroll = .DisplayVerticalScrollBar
If .DisplayVerticalScrollBar = False Then .DisplayVerticalScrollBar = True

Status_Gridlines = .DisplayGridlines
If .DisplayGridlines = False Then .DisplayGridlines = True

Status_Headings = .DisplayHeadings
If .DisplayHeadings = False Then .DisplayHeadings = True

Status_WorkbookTabs = .DisplayWorkbookTabs
If .DisplayWorkbookTabs = Falsehen .DisplayWorkbookTabs= True

End With

With Application
Status_StatusBar = .DisplayStatusBar
If .DisplayStatusBar = False Then .DisplayStatusBar = True

Status_FormulaBar = .DisplayFormulaBar
If .DisplayFormulaBar = False Then .DisplayFormulaBar = True
End With

Application.CommandBars("Standard").Visible = True
Application.CommandBars("Formatting").Visible = True
Application.DisplayFullScreen = False

End Sub

damit wird alles ausgeblendendet und eingeblendet was excel so hat.
wenn du deine mappe nicht findest dann fang die prozedur mit
escape ab.danach führe das macro Sub auto_close aus.

viel spass
ivan

Forumthread: Excel im Hintergrund starten

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial