How To Convert VBA to FoxPro for OLE Automation

• Microsoft Visual FoxPro for Windows, versions 3.0, 3.0b, 5.0

SUMMARY

In order to perform OLE Automation with an application that uses Visual Basic for Applications (VBA), it is important to understand how to convert the VBA syntax for each command or function into a syntax that may be used in Visual FoxPro. Below is a list of a few of the most common Visual Basic for Applications (VBA) commands that may be used to perform OLE Automation from Visual FoxPro to Microsoft Excel or Microsoft Word along with the appropriate syntax for use in Visual FoxPro.

Since this list is very limited, it may be helpful to understand some of the points of converting VBA to FoxPro:

1. Use parentheses to surround the list of parameters.

2. Do not use Named parameters. Instead, just pass the value of the parameter in its specified position in the list.

3. You may use FoxPro variables and fields as parameters just as you would in FoxPro commands, as long as they are of the correct type.

4. If you are having problems getting a statement or method to work, make

For a description of the methods and statements listed, along with information about the use of specific parameters, please see the respective Visual Basic Reference file for Microsoft Word or Microsoft Excel.

MORE INFORMATION

General Notes

Variables and parameters are prefixed by a single character indicating the type of the variable or parameter as follows:

• c Character
• n Numeric
• o Object
• l Logical

VBA has many built-in constants that may be used. However, FoxPro does not know the values of these constants. To use them in FoxPro, you need to define them as constants in the scope of your FoxPro program or form, or replace them with their appropriate values.

Object Variables

oWord is the variable used to reference Microsoft WordBasic objects, created with the following command:

   oWord = CREATEOBJECT("Word.Basic")

   oXL = CREATEOBJECT("Excel.Application")

   oXLSheet = CREATEOBJECT("Excel.Sheet")

   -or-

   oXLSheet = oXL.ActiveSheet

   oXLBooks = oXL.Workbooks

   oXLWkBook = oXL.ActiveWorkBook

Directory/File Management Statements

Add Method (Microsoft Excel)

   Syntax:

   oXLBooks.Add([cTemplate])
   oXLSheet.Add([cBefore [, cAfter [,nCount [, nType]]]])
   oXLSheet.Add([oBefore [, oAfter [,nCount [, nType]]]])

   Syntax:

   oXL.Cells([nRowIndex [, nColumnIndex]])
   oXLSheet.Cells([nRowIndex [, nColumnIndex]])

   Syntax:

   oWord.ChDir(cPath)

   Example:

   oWord.ChDir("C:\MY DOCUMENTS")

   Syntax:

   oXLBooks.Close()
   oXLWkBook.Close([lSaveChanges [, cFileName [, lRouteWorkbook]]])

   Syntax:

   oWord.FileClose([nSave])

   Syntax:

   oWord.FileCloseAll([nSave])

   Syntax:

   oWord.FileNew([cTemplate [, nNewTemplate]])

   Example:

   oWord.FileNew("C:\MY DOCUMENTS\MYTEMPLATE.DOT")

   Syntax:

   oWord.FileNewDefault()

   Syntax:

   oWord.FileOpen(cName [, nConfirmConversions [, nReadOnly ;
      [, nAddToMru [, cPasswordDoc [, cPasswordDot [, nRevert ;
      [, cWritePasswordDoc [, cWritePasswordDot]]]]]]]])

   Example:

   oWord.FileOpen("C:\MY DOCUMENTS\MYWORD.DOC")

   Syntax:

   oXLBooks.Open(cFileName [, nUpdateLinks [, lReadOnly [, nFormat ;
      [, cPassword [, cWriteResPassword [, lIgnoreReadOnlyRecommended ;
      [, nOrigin [, cDelimiter [, lEditable [, lNotify ;
      [, nConverter]]]]]]]]]]])

   Example:

   oXLBooks.Open("C:\MY DOCUMENTS\MYSHEET.XLS")

   Syntax:

   object.Value = NewValue

   Example:

   oXL.ActiveWindow.ActiveCell.Value = "Hello"