VBS und Excel AddIns

Hallo zusammen,
ich möchte eine Excel Datei automatisch öffnen, eine Zeit offen haben speichern und schließen. Das habe ich mir so aus einigen Beiträgen hier gebaut und es geht auch:
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\zwdebeli\Desktop\Test.xlsx")
objExcel.Visible = True
'erzwingt die Aktualisierung der externen Daten
'ohne dumme Rückfrage
objWorkbook.RefreshAll
'legt den Script schlafen, bis aktualisiert ist > Anpassen!
'in Tausendstel-Sekunden, hier also 30 Sekunden
wscript.sleep 30000
'speichert die XLS
objWorkbook.save
'vorsichtshalber nochmals kurzes Abwarten des Speicherns
wscript.sleep 10000
'schliesst Excel
objExcel.Quit
Mein Problem ist jetzt, das sich die Liste eigentlich aktualisiert, wenn ich Sie manuell öffne. Und zwar über das SAP Analysis AddIn. Wenn ich das VBS ausführe, sehe ich aber die AddIns nicht und die Liste aktualisiert sich dementsprechend nicht. Wie können die bzw. das AddIn mit gestartet werden, wenn ich es per VBS mache?
VG
Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, ich habe es mit VBA probiert:
Modul:
Public Const ciIntervall As Integer = 1
Public Const dsMacro As String = "AutoClose"
Public gdNextTime As Double
Private iWait As Integer
Const cMax = 10 ' -> 10 Sekunden
Dim Zeit As Date
Sub AutoClose()
iWait = iWait + 1
If cMax - iWait > 0 Then
Application.StatusBar = Format(Zeit - TimeSerial(0, 0, iWait), "hh:mm:ss")
gdNextTime = Now + TimeSerial(0, 0, ciIntervall)
Application.OnTime gdNextTime, dsMacro
Else
ThisWorkbook.Save
ThisWorkbook.Close
End If
End Sub Sub AutoCloseStart()
iWait = 0
Zeit = TimeSerial(0, 0, cMax)
Application.StatusBar = Zeit
Call AutoClose
End Sub Sub AutoCloseStop()
On Error Resume Next
Application.StatusBar = ""
Application.OnTime earliesttime:=gdNextTime, _
procedure:=dsMacro, schedule:=False
End Sub
Diese Arbeitsmappe:

Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Call AutoCloseStop End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) AutoCloseStop AutoCloseStart End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) AutoCloseStop AutoCloseStart End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window) AutoCloseStop AutoCloseStart End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window) AutoCloseStop AutoCloseStart End Sub

Auf dem Desktop super geklappt. Habe es dann auf ein Networkshare verschoben, diesen Pfad als vertrauenswürdig hinterlegt damit das Makro auch nicht deaktiviert wird. Datei öffnet, speichert nach der genannten Zeit, will aber DANN nochmal speichern und bleibt in dem Speicher Dialog hängen. Woran kann das liegen?
VG
Daniel

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread