Compartir a través de

DocumentFile (Propiedad)

  • Artículo

Devuelve el nombre del archivo a partir del cual se ha creado un objeto OLE vinculado. En tiempo de diseño, especifica el nombre del archivo vinculado. Es de sólo lectura en tiempo de diseño y en tiempo de ejecución para un objeto ya existente, pero se puede establecer para un objeto mientras se está creando.

Object.DocumentFile[ = cFileName]

Valores de la propiedad

  • cFileName
    El nombre del archivo al cual se vinculó el objeto. El nombre incluye la ruta de acceso completa del archivo.

Observaciones

DocumentFile contiene la cadena vacía para objetos incrustados (no vinculados).

Puede establecer la propiedad DocumentFile de un objeto OLE vinculado mediante el cuadro de diálogo Insertar objeto cuando agregue, al principio, un contenedor OLE a un formulario. También puede establecer esta propiedad durante la creación de un objeto OLE mediante el comando APPEND GENERAL o durante la definición de un objeto en código como parte de una definición de clase.

Antes de especificar el contenido de un objeto OLE mediante la propiedad DocumentFile, puede especificar la aplicación del servidor de Automatización al establecer la propiedad OLEClass del objeto.

Ejemplo

El ejemplo siguiente agrega un control OLE Container a un formulario, y utiliza las propiedades DocumentFile y OleClass para especificar una hoja de cálculo Microsoft Excel como el archivo que se va a modificar, y Microsoft Excel como el servidor de Automatización.

La propiedad DocumentFile especifica una hoja de cálculo denominada Hoja1.xls en el directorio EXCEL de la unidad C. Este ejemplo no funcionará adecuadamente si el archivo y el directorio especificados en la propiedad DocumentFile no existen; quizás sea necesario modificar la propiedad DocumentFile para especificar un directorio y un archivo de hoja de cálculo existentes.

El método DoVerb se usa para activar la hoja de cálculo para su modificación.

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

Vea también

APPEND GENERAL | CREATEOBJECT( ) | OLEClass

Se aplica a: OLE Bound (Control) | OLE Container (Control)