Domino 9 und frühere Versionen > Entwicklung

Mit Notes Excel speichern

(1/2) > >>

Darkface:
Hallo zusammen,
ich habe eine Frage: Wie kann ich in meinem Agenten die erstellte Excel Tabelle speichern lassen.

Des weiteren soll die Excel Tabelle nach dem speichern geschlossen werden. Aber ich weiß nicht wie.

Danke für jede Hilfe.

Gruß
Darkface

Rob Green:
dazu immer am besten Macro Recorder in Excel anschmeissen und anschauen, wie Excel saved und das Worksheet closed.

Dann "einfach" in den Code übertragen.

zB
....
Excel objekt in LS aufmachen:
Set Excel = CreateObject("Excel.Application")
Set WBook = Excel.Workbooks.Add
....
Excel.ActiveWorkbook.SaveAs Filename
Excel.ActiveWorkbook.Close


viele Beispiele?
http://searchdomino.techtarget.com/tips/0,289484,sid4_tax283833,00.html (ehem. Lotus411)
und dort Excel als Suchbegriff eingeben

eknori (retired):
versuchs mal mit

'xlapp.ActiveWorkbook.saveas "LW:\Pfad\Filename.xls" 'save with generated name
Set xlapp=Nothing  

eknori

Darkface:
Also so sieht mein Code aus:

--- Code: ---

     m_oExcel As Variant
     m_oSheet As Variant  

     Sub New
           Set m_oExcel = Nothing
           Set m_oExcel = CreateObject("Excel.Application")      
     End Sub

     Sub NewWorkbook
           Call m_oExcel.Workbooks.Add
           Set m_oSheet = m_oExcel.Workbooks(1).Worksheets(1)
     End Sub

     Sub ActivateExcel
           m_oExcel.Visible = True  'Excel sichtbar machen
           m_oExcel.Windows(1).WindowState = -4137
           m_oExcel.Windows(1).Activate
           m_oSheet.SaveAs sPathFile
           m_oSheet.Close                        
     End Sub

--- Ende Code ---


Und wenn es so ist, dann gibt er einen Fehler aus.
Habe ich im Code was falsches gemacht?

Axel:
Hi,

ändere ActivateExcel mal wie folgt ab:


--- Zitat ---
Sub ActivateExcel(sPathfile As String)  
 m_oExcel.Visible = True  'Excel sichtbar machen  
 m_oExcel.Windows(1).WindowState = -4137  
 m_oExcel.Windows(1).Activate  
 m_oExcel.ActiveWorkbook.SaveAs(sPathFile)
 m_oExcel.ActiveWorkbook.Close(True)    
End Sub  

--- Ende Zitat ---


Der Aufruf im Agent muss dann so aussehen:

Call m_oExcel.ActivateExcel("c:\temp\test.xls")

Den Dateinamen musst du natürlich deinen Gegebenheiten anpassen.

Axel

Navigation

[0] Themen-Index

[#] Nächste Seite