将 Excel 2010 与 Visual FOXPRO 结合使用答案

【问题标题】：Using Excel 2010 with Visual FOXPRO将 Excel 2010 与 Visual FOXPRO 结合使用
【发布时间】：2016-08-05 12:51:26
【问题描述】：

我被要求通过 Excel 2010 和 Visual FOXPRO 创建一种翻译器，但我不知道 Visual FP，有人可以解释我如何连接它们吗？我用的是WIN10，Office 2010。

【问题讨论】：

你必须解释你究竟需要什么。您是否需要将数据从 Foxpro 导出到 Excel 或 Excel 到 Foxpro？你说的翻译是什么意思？
我需要从 excel vba 应用程序读取/写入此 vpf 数据库中的数据

标签： database excel visual-foxpro

【解决方案1】：

您的问题并不能真正解释您的需求。

如果您不了解 VFP，您将如何使用 VFP 进行连接？您还在要求示例代码连接到 Excel 并做一些事情吗？如果是这样，您不仅需要了解 VFP，还需要了解 Excel VBA。 Excel 使用 VBA 进行自己的处理。下面是一个非常简单的 VFP 代码。检查 cmets 的作用（with ... endwith 块中的代码是 Excel VBA）。

* Select sample data and copy to clipboard as TAB delimited
Select * From (_Samples+'data\customer') ;
    Into Cursor crsMyData ;
    nofilter
Local lcTemp
lcTemp = ForcePath(Sys(2015)+'.tmp', Sys(2023))
Copy To (m.lcTemp) Type Delimited With "" With Tab
_Cliptext = Filetostr(m.lcTemp)
Erase (m.lcTemp)
* Select sample data and copy to clipboard as TAB delimited


* Create Excel Workbook
* and paste the data copied above
* starting at A3
* and autofit columns
oExcel = Createobject('Excel.Application')
With oExcel
  .Workbooks.Add()
  .Activeworkbook.Activesheet.Range('A3').PasteSpecial()
  .Selection.Name = 'myData'
  .Range('A1').Activate()
  .Range('myData').Columns.Autofit()
  .Visible = .T.
Endwith

【讨论】：

我需要从 excel vba 应用程序读取/写入此 vpf 数据库中的数据
您可以使用 VFPOLEDB 从 Excel 读取/写入 VFP 表。您不需要为此了解 VFP。但请注意，您不能使用 64 位 Excel 来执行此操作。一种简单的方法是添加数据源（QueryTables.Add 方法 - 我不知道通过菜单的确切位置）。