Lotus Notes / Domino Sonstiges > OLE/COM-Programmierung

Notes nach Excel

<< < (3/4) > >>

Fedaykin:
Hi hab auch mal was rumgespielt. Hier das Ergebnis.

Sub ExcelWithAddin()
    Dim objExcel As Variant
    Dim AddIn As Variant
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = True
    objExcel.workbooks.Add
    objExcel.AddIns.Add "C:\Program Files (x86)\Microsoft Office\OFFICE11\Makro\Analyse\ATPVBAEN.XLA", False
    For Each AddIn In objExcel.AddIns
        Select Case AddIn.Name
        Case "Analyse-Funktionen"
            AddIn.Installed = True
        End Select
    Next AddIn
    objExcel.Quit
End Sub


Interessant ist das ich leere Mappe aufmache. Warum? Ganz klar, sonst ist Menü deaktiviert.

Gruss
Remo

Fedaykin:
Hi noch Korrektur. Bei LotusScript kommt Forall besser.  ;D

Aber sonst so was.

Sub ExcelWithAddin()
    Dim objExcel As Variant
    Dim AddIn As Variant
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = True
    objExcel.workbooks.Add
    Set AddIn = objExcel.AddIns.Add("C:\Program Files (x86)\Microsoft Office\OFFICE11\Makro\Analyse\ATPVBAEN.XLA", False)
    AddIn.Installed = True
    objExcel.Quit
End Sub

celsp:
Hallo, vielen Dank für die Beispiele. Ich habe es angepasst und getestet. Es läuft auch ohne Fehler! Allerdings sind im Anschluß die Analyse-Funktionen im Menü Excel nicht verfügbar. Ich will die Analyse-Funktionen automatisch starten mit folgenden Befehl:

objExcel.Application.Run "C:\Programme\Microsoft Office\OFFICE11\Makro\Analyse\atpvbaen.xla!Histogram", sheet.Range("$C$6:$C$7"), _
sheet.Range("$B$9"), sheet.Range("$D$6:$D$7"), True, False, _
True, True

Ich bekomme dann eine Fehlernachricht, dass es atpvbaen.xla nicht finden kann, obwohl der Pfad definitiv stimmt!

Hat da jemand noch eine hilfreiche Idee?

Fedaykin:
Hi weiss nicht was mit dem Run echt vor hast. Hier nochmal ein Beispiel.

Sub ExcelWithAddin()
    Dim objExcel As Variant
    Dim AddIn As Variant
    Const AddInPath As String = "C:\Program Files (x86)\Microsoft Office\OFFICE11\Makro\Analyse\"
   
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = True
    objExcel.workbooks.Add
    Set AddIn = objExcel.AddIns.Add(AddInPath & "ANALYS32.XLL", False)
    AddIn.Installed = True
    Set AddIn = objExcel.AddIns.Add(AddInPath & "ATPVBAEN.XLA", False)
    AddIn.Installed = True
   
    'HIER DAS WAS NOCH ZU MACHEN IST!
    Stop
   
    'Danach kannst Excel ja wieder verräumen.
    objExcel.Quit
End Sub

Also da den Code sonst noch rein, was aufbauen oder öffnen, speichern drucken usw. . Kann Dir auch noch versuchen Deine Formel wo reinzuschreiben. Aber naja die AddIns sind beide nun da!

Gruss
Remo

Fedaykin:
Hi

Habe noch etwas zu dem Thema gefunden. Vielleicht hilft es ja. Umstellen auf LateBinding kann ich noch helfen wenn da Fragen hast.
http://support.microsoft.com/kb/270844

Gruss
Remo

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete