Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Darkface am 11.09.02 - 11:16:11

Titel: Mit Notes Excel speichern
Beitrag von: Darkface am 11.09.02 - 11:16:11

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

Titel: Re: Mit Notes Excel speichern
Beitrag von: Rob Green am 11.09.02 - 11:25:20

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

Titel: Re: Mit Notes Excel speichern
Beitrag von: eknori (retired) am 11.09.02 - 11:28:01

versuchs mal mit

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

eknori

Titel: Re: Mit Notes Excel speichern
Beitrag von: Darkface am 11.09.02 - 12:03:44

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 

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

Titel: Re: Mit Notes Excel speichern
Beitrag von: Axel am 11.09.02 - 12:49:20

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  

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

Titel: Re: Mit Notes Excel speichern
Beitrag von: Darkface am 11.09.02 - 13:11:22

Hallo zusammen,
ich habe nun auch eine eigene Lösung gefunden.  :D
Ein Wunder. Nein Scherz danke an alle Helfer.

An Axel:
Wenn das so weiter geht, dann hast du bald eine super Klasse zum Excel Zugriff  ;D

Gruß
Darkface

Titel: Re: Mit Notes Excel speichern
Beitrag von: Axel am 11.09.02 - 13:38:54

Zitat

An Axel:
Wenn das so weiter geht, dann hast du bald eine super Klasse zum Excel Zugriff

Hi,

danke für die Blumen. Aber das mit der Klasse dauert noch ein bisschen.

Ich werde sie auf alle Fälle, so bald sie fertig ist, hier zur Verfügung stellen.

Axel