chaoticshitty:VFP导出到EXCEL文件的另类方法

来源：百度文库 编辑：偶看新闻 时间：2024/04/29 09:33:12

VFP导出到EXCEL文件的另类方法

[ 2005-09-28 08:58:07 | 作者: 花狐狸 ] : | | 论坛中在讨论VFP导出到EXCEL文件的方法,其中的方法以前都有试过,或多或少都有些不近人意的地方,比如字符形数字变成了数字,身份证号码居然是科学计数显示
几年来一直用这样的方法处理,请大家点评

LOCAL lsWJM,OleApp
m.lsWJM=PUTFILE("文件名:","未命名.XLS","XLS")
IF EMPTY(m.lsWJM)
RETURN
ENDIF
USE 数据表
COPY TO SYS(2023)+"\TMP.DBF" FOX2X
USE
OleApp=CREATEOBJECT("Excel.Application")
WITH OleApp
.DisplayAlerts=.F.
.Application.WorkBooks.Open(SYS(2023)+"\TMP.DBF")
.ActiveSheet.UsedRange.Select
.Selection.Copy
.Workbooks.Add
.Range("A1").Select
.Selection.PasteSpecial()
.Selection.Columns.AutoFit
.Range("A1").Select
_CLIPTEXT=""
.Application.Windows("TMP.DBF").Activate
.ActiveWindow.Close
DELETE FILE SYS(2023)+"\TMP.*"
.ActiveWorkbook.SaveAs(m.lsWJM)
.Application.Visible=.T.
.DisplayAlerts=.T.
ENDWITH
RELEASE OleApp
OleApp = Null

如果你是固定的数据,可以将EXCEL文件做成模板,设置纸张大小、页边距、字体字号、标题、表头等，然后在需要导入数据的单元格中输入"开始记录"(不要输入引号)

LOCAL lsWJM,OleApp,YXGZS,H
m.lsWJM=PUTFILE("文件名:","未命名.XLS","XLS")
IF EMPTY(m.lsWJM)
RETURN
ENDIF
IF !FILE("模板文件.XLS")
=MessageBox("请先创建Excel模板文件！",64,"宇星工作室")
RETURN
ENDIF
USE 数据表
COPY TO SYS(2023)+"\TMP.DBF" FIELDS FieldList FOX2X &&选择所需要的字段
USE
OleApp=CREATEOBJECT("Excel.Application")
WITH OleApp
.DisplayAlerts=.F.
.Application.WorkBooks.Open(SYS(2023)+"\TMP.DBF")
.ActiveSheet.UsedRange.Select
.Selection.Copy
.Application.WorkBooks.Open(SYS(5)+SYS(2003)+"\模板文件.XLS") && 模板文件需要路径
.Range("A1").Select
m.YXGZS=.Cells.Find("开始记录",.ActiveCell,-4123)
IF VARTYPE(m.YXGZS)="O"
m.YXGZS.Activate
Release YXGZS
m.H=.ActiveCell.Row
.Selection.PasteSpecial(-4163,-4142,.F.,.F.) &&仅粘贴数值
.Rows(m.H).Select
.Selection.Delete
ELSE
.Selection.PasteSpecial()
.Selection.Columns.AutoFit
ENDIF
.Range("A1").Select
_CLIPTEXT=""
.Application.Windows("TMP.DBF").Activate
.ActiveWindow.Close
DELETE FILE SYS(2023)+"\TMP.*"
.ActiveWorkbook.SaveAs(m.lsWJM)
.Application.Visible=.T.
.DisplayAlerts=.T.
ENDWITH
RELEASE OleApp
OleApp = Null
如何将两个VFP的数据表的不同之处导出到EXCEL表格里 谢谢~~ 关于VB导出到excel文件 vfp中的.dbf格式文件导出到excel 文件后，只在一个单元格中显示所有记录，怎样才能让各个字段对应单元格 ASP导出excel文件的问题 使用eXtremeComponents从页面导出数据到excel文件的时候，如何设置导出的excel文件的列的宽度？ 如何把.DBF文件的表设计器里的资料导出到EXCEL表格？ 怎么样把excel里面的数据导出到txt文件中？急！ VB里DataGird控件中的数据导出到Excel文件详细的代码以及所用到的控件，部件 asp导入导出excel文件 财务软件中导出的excel逗号分隔文件如何加密 用access打开的excel文件能用asp导出么？ 将DataGrid数据导出到Excel文档的问题 如何将ASP页面中的表格导出到Excel文件中？ 怎么从asp导出excel文件 c#导出excel的问题 说出你用Excel的另类用途！ vc导入导出数据到excel表 利用select语句导出数据到EXCEL excel 文件加密方法 VFP调用EXCEL的奇怪问题 asp网页中的表格的数据导出到excel的问题 我的鼠标右键怎么没有“导出到Microsoft Office Excel”啊 在网页中导出数据到EXCEL，求高手的助！！ 将SQL的表头导出EXCEL