Mit Notes Excel speichern

[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]

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 

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:

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

[Darkface]

Hallo zusammen,
ich habe nun auch eine eigene Lösung gefunden.  
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  

Gruß
Darkface

[Axel]

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