高手帮忙！求dbf转换到excel的程序

2004-08-04 11:41:47 1.9k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VINS-Fusion实战：从零搭建无人机视觉惯性导航系统（附ROS配置指南）本文提供了一份详尽的VINS-Fusion实战指南，涵盖从硬件选型、传感器标定到ROS节点配置与参数调优的全过程。重点解析了如何将VINS-Fusion视觉惯性里程计系统与PX4飞控深度集成，并实现室外GPS融合，旨在帮助开发者从零搭建稳定、高精度的无人机视觉惯性导航系统。阅读详情

需要将dbf格式的表转换为excel表，可是我不会vfp.很急的，大家帮忙啊

...全文

天线学习笔记——HFSS简单阵列天线在HFSS15.0版本中使用 Radiation --> Antenna Array Setup 设置天线阵列的参数时的设计列表如下：值得注意的是，在该版本中所定义的是:第一个阵元的位置坐标(First Cell Position)、阵元之间的间距(Directions)和阵元的数量(Number of Cells) 这些参数。在ANSYS中的HFSS仿真中定义天线阵列如下：与老版本不同的是：中心点坐标(Center Position)和布局设置(Layout Setting)。在布局设置中阅读详情

fromv

VFP 2,750 成员 29,142 内容

+ 关注 + 加入社区

切换为时间正序

st_2000 2004-08-20

打赏
举报

这个问题已问过很多次了。找找贴子吧

gosea 2004-08-19

打赏
举报

在一个程序中加上定时器,定时执行处理程序不就得了

fromv 2004-08-18

打赏
举报

是要定时对dbf表进行转换。

xclzteb 2004-08-13

打赏
举报

给你讲得很清楚了这位朋友，我不能连续发三次以上的帖子，内容太长。若有需要请把邮件地址发到我的邮箱：RAHQ@SINA.COM

xclzteb 2004-08-11

打赏
举报

那是自然了，已经删除的数据可以在VFP中用Set delete语句来设置是否被访问。谁说的不能脱离VFP运行，做好后生成安装程序就可以了。楼上的几种方法都可以的。

noproblem12 2004-08-11

打赏
举报

呵呵,直接把后缀改成xls就行了,

xclzteb 2004-08-11

打赏
举报

*!* The following code determines the selected range of the print area for *!*
*!* the derived Excel file. This is based on the number of fields in the *!*
*!* source table (columns) and the number of records in the source table *!*
*!* (rows). A range of three rows is added to the number of records. This *!*
*!* allows for the following: *!*
*!* One row is added by the COPY TO process to hold the names of the fields. *!*
*!* One row is inserted as a spacer between the field names and the first *!*
*!* row of data. *!*
*!* One row is added to the bottom to contain a SUM function for numeric, *!*
*!* integer, and/or currency data. *!*
lcTotalRangeExpr = ;
["A1:] + ColumnLetter(FCOUNT()) + ALLTRIM(STR(RECCOUNT() + 3)) + ["]
lcTotalPrintArea = ;
["$A$1:$] + ColumnLetter(FCOUNT()) + [$]+ALLTRIM(STR(RECCOUNT() + 3)) + ["]

*!* The following code will erase any previously created temporary excel *!*
*!* file created by this program *!*
IF FILE(HOME() + "VFP_to_Excel.xls")
ERASE HOME() + "VFP_to_Excel.xls"
endif

*!* The following code creates the temporary Excel file that will be used *!*
*!* for the derived Excel file *!*
COPY TO HOME() + "VFP_to_Excel" TYPE XL5

*!* The following code commences the OLE Automation process. *!*
oExcelObject = CREATEOBJECT('Excel.Application')

*!* The following code opens the "VFP_to_Excel" file that was created by the *!*
*!* "COPY TO" command *!*
oExcelWorkbook = ;
oExcelObject.Application.Workbooks.Open(HOME() + "VFP_to_Excel")

*!* The following code activates the Worksheet which contains the "COPY TO" *!*
*!* data *!*
oActiveExcelSheet = oExcelWorkbook.Worksheets("VFP_to_Excel").Activate
*!*oExcelWorkbook.Worksheets.add
*!*oExcelWorkbook.Worksheets.Item(1).name="rahq1"
&&oExcelWorkbook.Worksheets("VFP_to_Excel").move
oActiveExcelSheet = oExcelWorkbook.Worksheets("VFP_to_Excel").Activate
*!* The following code establishes an Object Reference to the "VFP_to_Excel" *!*
*!* worksheet *!*
oExcelSheet = oExcelWorkbook.Worksheets("VFP_to_Excel")
oExcelSheet.name="示例"

xclzteb 2004-08-11

打赏
举报

PARAMETER lnPaperOrientation

*!* 1 = letter size paper, portrait orientation (1,1) *!*
*!* 2 = letter size paper, landscape orientation (1,2) *!*
*!* 3 = legal size paper, portrait orientation (5,1) *!*
*!* 4 = legal size paper, landscape orientation (5,2) *!*

*!* The following line of code sets a default lnPaperOrientation value of 1 *!*
*!* where no parameter is passed

lnPaperOrientation = ;
IIF(TYPE("lnPaperOrientation") = "L", 1, lnPaperOrientation)

*!* The following code sets the paper size and orientation variables based *!*
*!* on the lnPaperOrientation value *!*
DO CASE

CASE lnPaperOrientation = 2
lnPaperSize = 1
lnPrintOrientation = 2

CASE lnPaperOrientation = 3
lnPaperSize = 5
lnPrintOrientation = 1

CASE lnPaperOrientation = 4
lnPaperSize = 5
lnPrintOrientation = 2

OTHERWISE

lnPaperSize = 1
lnPrintOrientation = 1

ENDCASE

*!* The following code determines whether or not there is a table open in *!*
*!* the currently selected work area. *!*
lcTableAlias = ALIAS()
IF EMPTY(lcTableAlias)
=MESSAGEBOX("A table must be open in the currently selected work area" + ;
CHR(13) + "in order for this program to work.")
aa=GETFILE("dbf")
IF !EMPTY(aa) AND FILE(aa)
SELECT 0
USE (aa)
else
RETURN && If no table is open, then return *!*
endif
ENDIF

*!* The following code determines the derived Excel file name and location. *!*
lcTablePath = LEFT(DBF(), RAT("\", DBF()))
lcExcelFile = lcTablePath + lcTableAlias + ".xls"
IF FILE(lcExcelFile) && If a file by the derived name already *!*
*!* exists in the derived location *!*
lcMessageText = "An Excel file by the name of " + lcTableAlias + ;
".xls" + CHR(13) + "already exists at location:" + CHR(13) + ;
lcTablePath + CHR(13) + ;
"Do you want to delete it now and replace it?"
lnDialogType = 4 + 32 + 256
lnFirstWarning = MESSAGEBOX(lcMessageText, lnDialogType)
IF lnFirstWarning = 6 && User responds with a "Yes" *!*
lcMessageText = "This will delete the exist file:" + CHR(13) + ;
lcExcelFile + CHR(13) + ;
"Are you certain?"
lnDialogType = 4 + 48 + 256
lnSecondWarning = MESSAGEBOX(lcMessageText, lnDialogType)
IF lnSecondWarning = 6 && User responds with a "Yes" *!*
ERASE (lcExcelFile) && Erase the existing file *!*
ELSE
RETURN
ENDIF
ELSE
RETURN
ENDIF
ENDIF

fromv 2004-08-10

打赏
举报

VFP的DBF文件在转移到msSQL时数据转换不全，老是把做了删除标记的数据漏掉了。用其他的工具都出现这个问题。只好用VFP把他转换为xls之后来处理。
这个问题没有人遇到吗？

十月鹰飞 2004-08-10

打赏
举报

楼主是要这个程序定时对表进行转换？

Keown 2004-08-09

打赏
举报

sorry，不是资源管理器是企业管理器

Keown 2004-08-09

打赏
举报

安装SQL-Server2000后，打开资源管理器--数据转换服务--本地包，右键新建包，新建源连接DBF资料库，建立目的连接xls，然后加入处理动作，具体可以参考帮助文件，待所有工作完成，可以测试封包文件的执行情况，修改达到目的为止
保存封包文件为bas文件，在vb中新建一个project，加入该bas文件，编译成exe文件后，可以使用计划任务排程自动执行
这样应该可以了，因为DTS支援ODBC-ODBC脱离SQL-server运行环境的数据转换
可以试一下

Keown 2004-08-06

打赏
举报

使用SQL-Server中的DTS转换，来源为.dbf文件，目的为.xls文件

流星尔 2004-08-06

打赏
举报

不需要安装VFP

流星尔 2004-08-06

打赏
举报

脱离VFP环境，你只要把那些库放到SYSTEM32下（2000），system(win98)下，就可以运行程序了。

流星尔 2004-08-06

打赏
举报

自动转换，怎么实现，

qufusongyu 2004-08-06

打赏
举报

如果不懂vfp的话，建议使用楼上的。
JohnShen(因果网) ( )
将表aa.dbf转成c:\aa.xls：
Use aa
COPY TO c:\aa.xls TYPE XL5

fromv 2004-08-06

打赏
举报

非常感谢大家的关注。不过还是没有达到要求。难道我说的不清楚吗？
to Keown(坤):
VFP的DBF文件在转移到msSQL时数据转换不全，老是把做了标记的数据漏掉了。用其他的工具都出现这个问题。只好用VFP把他转换为xls之后来处理。这个dbf文件每天都会产生，所以想用程序来进行自动转换。不能每天都手动操作吧。
不要再告诉我用copy 语句，那个必须在vfp环境里执行的；不要再告诉用Excel来转换。我希望的是一个程序，一个可以在windows或dos下执行的程序。

zhaoshaom 2004-08-06

打赏
举报

两种方法，一种是打开一个表，用VFP另存为网页的形式，一个是采用先： USE 表.DBF
COPY TO C:\文件名 type xl5,就可以了.

Keown 2004-08-06

打赏
举报

另：工程中需引用DTS Package Objects

加载更多回复（8）

高手帮忙！求dbf转换到excel的程序

相关推荐