Domino 9 und frühere Versionen > ND6: Entwicklung

Frage zu Excel-Export via NotesScript

(1/2) > >>

Catrex:
Hallo,

ich hätte mal eine Frage bzgl. des Exportes von Daten aus einer Ansicht per Notes Script. Bislang habe ich es immer so gemacht, dass per Script eine neue Exceldatei erzeugt wurde. Nun möchte ich aber den Export von bestimmten Daten in eine bereits vorhandene und vorformatierte Exceltabelle realisieren.

Es müsste doch eigentlich 2 Möglichkeiten geben das hinzubekommen. Zum einen kann man die fertige Tabelle der Datenbank in einem RT-Feld anfügen oder ich  lege die Tabelle in einen bestimmten Ordner und öffne sie dort direkt. Nun weiss ich aber nicht wie ich diese Datei dann per Script öffnen kann.

Bislang habe ich das immer so gemacht:

Dim xlApp As Variant
Set xlApp = CreateObject("Excel.Application")
Set xlsheet = xlApp.Workbooks(1).Worksheets(1)
xlsheet.Name = "DB-Export"

Aber nun muss ich doch den Create-Befehl ersetzen und die Pfadangebae noch mit reinnehmen, oder ?

Wäre echt super wenn ihr mir weiterhelfen könntet.

mfg

Sebastian

mibo11:
Hallo Sebastian,

der Befehl heißt GetObject(filename,"Word.Document").

Du findest die Beschreibung in der Designer Hilfe.

Gruß Sascha

mibo11:

--- Zitat von: mibo11 am 02.01.05 - 09:31:13 ---der Befehl heißt GetObject(filename,"Word.Document").
Gruß Sascha

--- Ende Zitat ---

Nachtrag:

es muss natürlich in deinem Fall lauten:

GetObject(filename,"Excel.Application")

Gruß Sascha

Semeaphoros:
Das ist das eine, dass es Excel.Application heissen muss, das andere, mit dem GetObject wird ein OLE-Objekt geholt, das kann Sinn machen, ist aber leicht was anderes, als Sebastian gefragt hat.


Wenn die Datei im Filesystem liegt (oder von einem Attachement her ins FS gelöst wurde), dann geht es anders:

Dim xlApp As Variant
Set xlApp = CreateObject("Excel.Application")
Call xlApp.Workbooks.Open(Dateiname)

Die Designer-Hilfe hilft da allerdings nicht besonders weiter, wichtiger ist die Hilfe des Zielsystems, in diesem Falle Excel, bzw. ganz genau die in Excel implementierte Version von VBA

mibo11:

--- Zitat von: Semeaphoros am 02.01.05 - 15:34:50 ---Wenn die Datei im Filesystem liegt (oder von einem Attachement her ins FS gelöst wurde), dann geht es anders:

Dim xlApp As Variant
Set xlApp = CreateObject("Excel.Application")
Call xlApp.Workbooks.Open(Dateiname)

--- Ende Zitat ---


Hallo,

ich wollte hier nun nochmals kurz anmerken, dass dieser Code ebenfalls zum gewünschten Ergebnis führen sollte.

   Dim x As Variant
   Set x = getobject(filename)
   x.Application.Visible = True
   x.Parent.Windows(1).Visible = True

Gruß Sascha

Navigation

[0] Themen-Index

[#] Nächste Seite