Freigeben über

DocumentFile-Eigenschaft

  • Artikel

Gibt den Namen der Datei zurück, aus der ein verknüpftes OLE-Objekt erstellt wurde. Gibt zur Entwurfszeit den Namen der verknüpften Datei an. Diese Eigenschaft ist zur Enwurfs- und Laufzeit für ein vorhandenes Objekt schreibgeschützt; kann jedoch beim Erstellen eines Objekts eingestellt werden.

Object.DocumentFile[ = cFileName]

Eigenschaftswerte

  • cFileName
    Gibt den Namen der Datei an, mit der das Objekt verknüpft ist. Der Name enthält den vollständigen Pfad zu der Datei.

Hinweise

DocumentFile enthält eine leere Zeichenfolge bei eingebetteten (nicht verknüpften) Objekten.

Sie können die DocumentFile-Eigenschaft für ein verknüpftes Objekt über das Dialogfeld Objekt einfügen zu dem Zeitpunkt einstellen, zu dem Sie den OLE-Container zu einem Formular hinzufügen. Ferner kann diese Eigenschaft eingestellt werden, wenn Sie ein Objekt mit dem APPEND GENERAL-Befehl einfügen, oder wenn Sie das Objekt innerhalb von Programmcode als Teil einer Klassendefinition definieren.

Bevor Sie den Inhalt eines OLE-Objekts mit der DocumentFile-Eigenschaft festlegen, müssen Sie die OLE-Server-Anwendung durch Einstellen der OLEClass-Eigenschaft des Objekts angeben.

Beispiel

Das folgende Beispiel fügt ein OLE-Container-Steuerelement zu einem Formular hinzu und legt mit der DocumentFile-Eigenschaft und der OleClass-Eigenschaft ein Excel-Arbeitsblatt als zu bearbeitende Datei und Excel als OLE-Server fest.

Die DocumentFile-Eigenschaft gibt im Excel-Verzeichnis auf Laufwerk C ein Arbeitsblatt mit dem Namen BOOK1.XLS an. Wenn die in der DocumentFile-Eigenschaft angegebene Datei und das Verzeichnis nicht vorhanden sind, kann dieses Beispiel nicht fehlerfrei ausgeführt werden. Aus diesem Grund ist es möglich, dass Sie die DocumentFile-Eigenschaft so ändern müssen, dass sie auf ein vorhandenes Arbeitsblatt in einem vorhandenen Verzeichnis verweist.

Mit Hilfe der DoVerb-Methode wird das Arbeitsblatt zur Bearbeitung geöffnet.

frmMyForm = CREATEOBJECT('form')  && Create a form
frmMyForm.Closable = .F.  && Disable the Control menu box

frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn')  && Add Command button
frmMyForm.AddObject("oleObject","oleExcelObject")  && Add OLE object

frmMyForm.cmdCommand1.Visible=.T.  && Display the "Quit" Command button

frmMyForm.oleObject.Visible=.T.  && Display the OLE control
frmMyForm.oleObject.Height = 50  && OLE control height

frmMyForm.Show  && Display the form

frmMyForm.oleObject.DoVerb(-1)  && -1 for Edit

READ EVENTS  && Start event processing

DEFINE CLASS oleExcelObject as OLEControl
   OleClass ="Excel.Sheet"  && Server name
   DocumentFile = "C:\EXCEL\BOOK1.XLS"  && This file must exist 
ENDDEFINE

DEFINE CLASS cmdMyCmdBtn AS CommandButton  && Create Command button
   Caption = '\<Quit'  && Caption on the Command button
   Cancel = .T.  && Default Cancel Command button (Esc)
   Left = 125  && Command button column
   Top = 210  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      CLEAR EVENTS  && Stop event processing, close form
ENDDEFINE

Siehe auch

APPEND GENERAL | CREATEOBJECT( ) | OLEClass

Betrifft: Gebundenes OLE-Steuerelement | OLE-Container-Steuerelement