巧让VFP数据生成Excel报表示例

巧让VFP数据生成Excel报表示例

* 编号：A0027

* 功能：巧让VFP数据生成Excel报表示例

* 说明：不能打印备注型和通用型字段CLOSE DATABASES all

SET DATE YMD

SET CENTURY on

SET PATH TO d:\vfp98

USE RKQK200802 ALIAS FoxTable IN 0

m.outfilename=putfile('输出结果','RKQK','xls')

SELECT FoxTable

&&取导出文件名称

ef=CREATEOBJECT('Excel.application')

&&调用Excel程序

efapp=ef.application

efapp.Workbooks.add

efapp.activewindow.windowstate=2

&&添加工作簿

osheet=efapp.activesheet

&&激活第一个工作表

ef.visible=.t.

&&显示Excel界面

ef.Cells.Select

&&选择整张表

ef.Selection.Font.Size = 11

&&设置整表默认字体大小为11 num=reccount()

&&求导出总记录数

go top

i=5

ef.range("F1:K1").Select

&&选择标题栏所在单元格

ef.Selection.Merge

&&合并单元格

with ef.range("F1 ")

&&设置标题及字体属性

.value='陈集小学各科任课情况一览表'

https://www.wendangku.net/doc/767534406.html,="宋体"

.Font.bold=.t.

.Font.size=18

.Font.Color=RGB(255,0,0)

endwith

with ef.range("A3:P4 ")

&&设置字段名及字体属性

https://www.wendangku.net/doc/767534406.html,="华文新魏"

.Font.bold=.t.

.Font.size=12

endwith

ef.Rows(2).RowHeight=1/0.035

&&设置第二行高度为1cm

ef.range("M2:P2").Select

ef.Selection.Merge

&&合并单元格

ef.range("M2").Font.size=11

ef.range("M2").HorizontalAlignment=4

&&设置内容对齐方式为右对齐,3为居中，2为右对齐

ef.range("M2").value=' 制表日期：

'+SUBSTR(DTOS(date()),1,4)+"年

"+SUBSTR(DTOS(date()),5,2)+"月

"+SUBSTR(DTOS(date()),7,2)+"日"+ ' '

ef.Rows("3:4").Select

with ef.Selection

.HorizontalAlignment = 3

&&设置3、4行为水平对齐

.VerticalAlignment = 2

&&垂直居中

.NumberFormatLocal = "@"

&&设置3、4行为字符型内容endwith

ef.Range("A3:A4").Select

ef.Selection.Merge

&&纵向合并第一列3、4行ef.Range("A3").Value='班级'

&&设置第一列标题内容

ef.Columns("A").Select

&&整列选择

ef.Selection.HorizontalAlignment = 3

&&水平居中

ef.Columns("A:B").Select

ef.Selection.NumberFormatLocal = "@" &&设置A、B列为字符型内容ef.Range("B3:B4").Select

ef.Selection.Merge

&&纵向合并第二列3、4行ef.Range("B3").Value='班主任'

&&设置第二列标题内容

ef.Columns("B").Select

&&整列选择

ef.Selection.HorizontalAlignment = 3 &&水平居中

ef.Range("C3:C4").Select

ef.Selection.Merge

ef.Range("C3").Value='学生数'

ef.Columns("C").Select

ef.Selection.HorizontalAlignment=3 ef.Range("D3:E3").Select

ef.Selection.Merge

ef.Range("D3").Value='品德类课程' ef.Range("D4").Value='品生'

ef.Range("E4").Value='品社'

ef.Range("F3:F4").Select

ef.Selection.Merge

ef.Range("F3").Value='科学'

ef.Range("G3:G4").Select

ef.Selection.Merge

ef.Range("G3").Value='语文'

ef.Range("H3:H4").Select

ef.Selection.Merge

ef.Range("H3").Value='数学'

ef.Range("I3:I4").Select

ef.Selection.Merge

ef.Range("I3").Value='英语'

ef.Range("J3:J4").Select

ef.Selection.Merge

ef.Range("J3").Value='体育'

ef.Range("K3:K4").Select

ef.Selection.Merge

ef.Range("K3").Value='音乐'

ef.Range("L3:L4").Select

ef.Selection.Merge

ef.Range("L3").Value='美术'

ef.Range("M3:O3").Select

ef.Selection.Merge

ef.Range("M3").Value='综合实践活动' ef.Range("M4").Value='劳技'

ef.Range("N4").Value='信息'

ef.Range("O4").Value='综合'

ef.Range("P3:P4").Select

ef.Selection.Merge

ef.Range("P3").Value='科技文体'

nFldCount=AFIELDS(aFldList,"FoxTable")

cRecc=STR(RECCOUNT("FoxTable"))

SCAN

WAIT WINDOW ALLTRIM(STR(RECNO()))+"/"+cRecc NOWAIT

FOR i = 1 TO nFldCount

vValue = .NULL.

IF AT(aFldList[i,2], "CDLMNFIBYT") = 0

LOOP

ENDIF

cFldName = aFldList[i,1]

vValue = EV ALUATE(cFldName)

DO CASE

CASE aFldList[i,2] = "C" && 字符型vValue = TRIM(vValue)

CASE aFldList[i,2] = "D" && 日期型vValue = DTOC(vValue)

CASE aFldList[i,2] = "T" && 日期时间型

vValue = TTOC(vValue)

CASE INLIST(aFldList[i,2], "N", "F", "I", "B", "Y")

&& 数值型

CASE aFldList[i,2] = "L" && 逻辑型CASE aFldList[i,2] = "M" && 备注型OTHERWISE

vValue = .NULL.

ENDCASE

IF V ARTYPE(vValue) = "C" AND EMPTY(vValue) LOOP

ENDIF

IF NOT ISNULL(vValue)

ef.Cells(RECNO("FoxTable")+4,i).Value = vValue

&& 关键之处

ENDIF

ENDFOR

ENDSCAN

cChrStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" FOR i = 1 TO nFldCount

cColumn =

SUBSTR(cChrStr,INT((i-1)/26),1)+SUBSTR(cChrStr,IIF(MOD (i,26)=0,26,MOD(i,26)),1)

ef.Columns(cColumn + ":" + cColumn).ColumnWidth =12 IF aFldList[i,2] = "M"

oSheet.Columns(cColumn + ":" + cColumn).WrapText = .f.

ENDIF

ENDFOR

for i=3 to reccount()+4

ef.Rows(i).RowHeight=0.68/0.035 && 设置从第3行开始每行高度0.68厘米

endfor

*efapp.Rows.EntireRow.AutoFit

&& 设置行高自动

efapp.Columns.EntireColumn.AutoFit

&& 设置列宽自动

efapp.ActiveSheet.PageSetup.PrintTitleRows="$1:$4"

&& 设置打印的顶端标;题行1-4行

efapp.ActiveSheet.PageSetup.CenterFooter="第&P页

共&N页"

*efapp.ActiveSheet.PageSetup.RightFooter="制表：王咸美" && 设置右页脚

efapp.ActiveSheet.PageSetup.CenterHorizontally=.t. efapp.ActiveSheet.PageSetup.Orientation=2

&& 设置纸张方向：1--竖放2--横放

efapp.ActiveSheet.PageSetup.PrintGridLines=.t.

&& 设置打印网格线

efapp.ActiveWindow.SelectedSheets.PrintPreview && 打印预览

efapp.ActiveWorkBook.SaveAs("E:\Mybook.xls") && 文件另存为

efapp.Quit

ef = .NULL.

efapp = .NULL.

WAIT CLEAR

=MESSAGEBOX("转换完毕！", 64, "OK") CLOSE DATABASES ALL

RETURN

vfp直接读取EXCEL文件示例

vfp直接读取EXCEL文件示例 vfp直接读取EXCEL文件的示例(转)。 M_File=GETFILE('xls','订单文件') IF M_File="" =MESSAGEBOX("请选择待导入的收订单文件！",0+48,"提示") RETURN ELSE IF JUSTEXT(M_FILE)#"XLS" &&获得文件扩展名 =MESSAGEBOX("您选择的不是EXCEL文档！",0+48,"提示") RETURN ENDIF ENDIF USE 图书订单表 ZAP myexcel=createobject('excel.application') &&创建一个对象 myexcel.visible=.f.&&不可见 bookexcel=myexcel.workbooks.open(M_File) &&打开指定文件 o_SheetName=https://www.wendangku.net/doc/767534406.html,&&获取当前激活工作表的名称UsedRange =bookexcel.worksheets(o_SheetName).UsedRange&&返回工作表中可使用的区域，UsedRange表的属性 o_rows=UsedRange.rows.count&&汇总行 o_cols=UsedRange.columns.count&&汇总列 IF o_rows<=1 =MESSAGEBOX("待导入数据行数太少，请检查！",0+16,"提示") ELSE FOR i=2 TO o_rows m1=myexcel.cells(i,1).value &&书号 m2=myexcel.cells(i,2).value &&书名 m3=myexcel.cells(i,3).value &&出版社 m4=myexcel.cells(i,4).value &&作者 m5=myexcel.cells(i,5).value &&定价 m6=myexcel.cells(i,6).value &&数量 APPEND BLANK REPLACE 书号WITH m1,书名WITH m2,出版社WITH m3,作者WITH m4,定价WITH m5,数量WITH m6 ENDFOR ENDIF myexcel.workbooks.close&&关闭工作区 myexcel.quit&&关闭excel brow

intouch 通过Excel 生成报表

1、自动生成需要的标记名 在intouch开发环境中，将向导库中/趋势/历史向导（HistData）放入窗口，这将自动生成若干标记名（如下）。有关标记名以HDW开头，加上他们的DDE的Item命名。 标记名说明如下： HDWDataDir 消息型历史数据文件的目录的路径名，可用函数赋值。 例如：HDWDataDir = HTGetLogDirectory(); HDWDBDir 消息型intouch标记名字典的目录的路径名，可用函数赋值。 例如：HDWDBDir = InfoInTouchAppDir(); HDWStratDate 消息型与$DataString 相同格式的数据采样开始日期。 例如： HDWStartTime 消息型使用24小时时钟的HH：MM：SS 格式的数据采样开始时间 例如：09:45:33 HDWDuration 消息型数据时间长度（报表时间总长度） 可以用星期，天，时，分，秒，等来表示。下面是有效的 字符：W 星期，D 天，H 小时；M 分，S 秒。允许使用 小数值例如：表示500毫秒；若只需要一个样本，请将Duration 设为零。 HDWInterval 消息型采样间隔的时间长度 可以用星期，日，小时，分，秒来表示例如1W 表示一 星期。允许使用小数值例如:.25d 来表示6小时。有效字 符与HDWDuration相同；注意Duration 和Interval允许的最打

时间长度为6周，这适用于所有请求类型日，秒，等。例如如 果使用日则最大值为42, 7天*6周=42天。 HDWTags 消息型历史数据的标记名列表（报表中需要的标记名） 以taga,tagb;tagz格式输入，此外采样日期或时间可以通过使用 内部系统标记$Date和$Time来请求。 HDWFileName 消息型规定生成的.CSV文件的路径和名称。 例如：E:\111\ HDWWriteFile 整形当设置为1时，HistData 会将请求数据写入由FileName项目 名指定的文件，当文件更新完成后WriteFile 会自动重置为0 Status 离散型显示最后一次操作的状态 1 表示成功，0 表示出错 Error 消息型包含上次错误说明的字符串，如Status 为1 则表示无，如Status 为0 则表示错误消息字符串。 例如：下面脚本生成一个日期由StartData1规定，但包含两个标记名PI-101；TI-101，日报表。可以复制在脚本中，修改一下就可以形成所需的.CSV文件。 HDWStartDate=StartDate1; HDWStartTime=”00:00:00”; HDWDBDir=InfoIntouchAppDir(); HDWDataDir=HTGetLogDirectory(); HDWFilename=” E:\111\”; HDWTags=”$Date,$Time, PI-101,TI-101”; HDWInterval=”1H”; HDWDuration=”1D”; HDWWritefile=1; 例如：设计一个按钮，当按下按钮时，生成一个.CSV表格。生成表格的起始日期，和起始时间可调，表格时间间隔也可调。 新建内存型标签，标签数据类型为消息型：startdate 消息型；starttime 消息型

在VFP中直接来控制Excel

Example: SET DEFAULT TO c:\ clear oleapp=createobject("excel.application") oleapp.visible=.t. && 显示Excel oleapp.workbooks.add **设单元格的值（报表标题）: oleapp.cells(1,1).value="aaa" oleapp.cells(1,2).value="bbb" oleapp.cells(1,3).value="ccc" oleapp.cells(1,4).value="ddd" oleapp.cells(1,5).value="eee" **打开表并取得记录数 USE c:\bank\data\zyb.dbf SHARED jl=reccount()-1 &&记录数 **将表中的记录数据放到Excel工作簿的单元格中 for i=0 to jl go i+1 &&第i+1条记录 oleapp.cells(2+i,1).value=zyb.bh oleapp.cells(2+i,2).value=zyb.xm oleapp.cells(2+i,3).value=zyb.kl oleapp.cells(2+i,4).value=1+1 endfor oleapp.activeworkbook.saveas("C:\Documents and Settings\Administrator\桌面\KL.xls") * oleapp.activeworkbook.saveas(?) ********************************************************* 利用VFP进行处理数据，而利用Excel的预览打印功能进行报表打印。这就需要我们在VFP中直接来控制Excel。下面就在开发VFP应用项目时对Excel的控制作一下介绍： 1．创建Excel对象 eole=CREATEOBJECT(′Excel.application′) 2．添加新工作簿 eole.Workbooks.add 3．设置第3个工作表为激活工作表 eole.Worksheets(″sheet3″).Activate 4．打开指定工作簿 eole.Workbooks.Open(″c:\temp\ll.x ls″) 5．显示Excel窗口 eole.visible=.t. 6．更改Excel标题栏 eole.Caption=″VFP应用程序调用Microsoft Excel″ 7．给单元格赋值 eole.cells(1,4).value=XM(XM为数据库字段名) 8．设置指定列的宽度(单位：字符个数)

VFP全面控制EXCEL(完全版)

1．创建Excel对象 oExcel=Createobject("Excel.application") 2．添加新工作簿 oExcel.Workbooks.Add 3．设置第3个工作表为激活工作表 oExcel.Worksheets("sheet3").Activate 4．打开指定工作簿 oExcel.Workbooks.Open("c:\temp\ll.xls") 5．显示Excel窗口 oExcel.Visible=.T. 6．更改Excel标题栏 oExcel.Caption="VFP应用程序调用Microsoft Excel" 7．给单元格赋值 oExcel.cells(1,4).Value=XM(XM为数据库字段名) 8．设置指定列的宽度(单位：字符个数) oExcel.ActiveSheet.Columns(1).ColumnWidth=5 9．设置指定行的高度(单位：磅) oExcel.ActiveSheet.Rows(1).RowHeight=1&&(设定行高为1磅，1磅=0.035厘米) oExcel.ActiveSheet.Rows("50:100").RowHeight=1 &&设置第50行至100行的高度 10．在第18行之前插入分页符 oExcel.Worksheets("Sheet1").Rows(18).PageBreak=1 11．在第4列之前删除分页符 oExcel.ActiveSheet.Columns(4).PageBreak=0 12．指定边框线宽度(Borders参数如下) ole.ActiveSheet.Range("b3:d3").BorderS(2).Weight=3 13．设置四个边框线条的类型 oExcel.ActiveSheet.Range("b3:d3").BorderS(2).LineStyle=1 (其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线) 14．设置页眉 oExcel.ActiveSheet.PageSetup.CenterHeader="报表1" 15．设置页眉(字体大小) oExcel.ActiveSheet.PageSetup.CenterHeader="&50报表1" &&'&'后面的50可以自定义，表示字体的大小 16．设置页脚 oExcel.ActiveSheet.PageSetup.CenterFooter="第&P页" 17.设置页脚(字体大小) oExcel.ActiveSheet.PageSetup.CenterFooter="&28第&P页" &&'&'后面的28可以自定义，表示字体的大小 18．设置页眉到顶端边距为2厘米 oExcel.ActiveSheet.PageSetup.HeaderMargin=2/0.035 19．设置页脚到底边距为3厘米 oExcel.ActiveSheet.PageSetup.FooterMargin=3/0.035

在VFP中直接来控制Excel

在VFP中直接来控制Excel （转载） *!*VFP和Excel都可以用来进行处理数据库表格，如果巧妙地将二者的优点结合起来，将会大大方便我们的工作。比如我们可以利用VFP进行处理数据，而利用Excel的预览打印功能进行报表打印。这就需要我们在VFP中直接来控制Excel。下面就在开发VFP应用项目时对Excel的控制作一下介绍： oExcel=Createobject("Excel.application") &&创建Excel对象 **对象属性 oExcel.Visible=.T. &&显示Excel窗口 oExcel.Caption="VFP应用程序调用Microsoft Excel" &&更改Excel标题栏 oExcel.DisplayAlerts = .F. &&关闭提示和警告消息，运行结束后，应将本属性设置回 True 值 oExcel.cells(1,4).Value=XM(XM为数据库字段名) &&给单元格赋值 **Workbooks属性 oExcel.Workbooks.Add &&添加新工作簿 oExcel.Workbooks.Open("c:\temp\ll.xls") &&打开指定工作簿 oExcel.Workbooks.Close &&关闭工作簿 oExcel.Quit &&退出Excel Release oExcel &&只有释放对象变量, EXCEL进程才会完全关闭 **Worksheets属性 oExcel.Worksheets("sheet3").Activate &&设置第3个工作表为激活工作表 oExcel.Worksheets("Sheet1").Rows(18).PageBreak=1 &&在第18行之前插入分页符 oExcel.WorkSheet("Sheet2").Range("A1").PasteSpecial &&粘贴 **ActiveWorkbook属性

Excel数据处理技巧：PowerQuery插件一键生成报表.doc

Excel 数据处理技巧：Power Query 插件一键生成报表 每个月月底，财务小王都要汇总全国各地区的销售数据做数 据分析。之前他采用的方法就是把各个工作表的数据复制再 粘贴到一个工作表里，然后进行数据透视表分析。可是全国 有那么多城市，复制粘贴太费时间，而且如果中间数据有变 动怎么办？现在不用担心了，今天给大家介绍一个EXCEL 很好用的技能 Power Query，帮助大家实现动态获取多工作表 数据。 一、初识 Power Query 如下图，在这个工作簿里，各个工作表分别列举了全国各个 地区的销售数据，这里为了举例，只列举四个城市的基本数 据。 首先，打开数据选项卡下，在[ 获取与转换 ]组中，新建查询---从文件 --- 从工作簿。

Power Query 本来是 EXCEL 的一个插件，在EXCEL2016 以前版本都需要另外下载，但是在 Excel2016 中，这项技能已经内置在数据选项卡 [ 获取与转换 ] 组中，以供大家直接使用。由此 足以可见 Power Query 的重要性。这里就推荐大家升级到最新的EXCEL 版本， EXCEL2016 以前的版本呢，大家可以自行百度下载安装这个插件。 在弹出的窗口中找到工作簿，导入。 在弹出的导航器界面，勾选“选择多项”，把这几个需要合 并的工作表全部选中，再选择右下角的“编辑”。 这样就进入了POWER QUERY 编辑器界面。 这个界面就是我们进行 Power Query 操作的主要界面，可以看到，上面的菜单栏跟 EXCEL 菜单栏很相似，左侧的查询窗口 显示的是打开的四个工作表，右侧查询设置界面是类似于 PS 一样的可以进行操作的记录和返回。中间区域则显示了表格的 内容。 二、使用 Power Query 汇总数据 点击开始选项卡下[ 组合 ] 组里面的追加查询。

VF中控制EXCEL的常用操作

VF中控制EXCEL的常用操作 myexcel=createobject('excel.application') &&创建一个对象 myexcel.visible=.t.&&可见 &&bookexcel=myexcel.workbooks.add bookexcel=myexcel.workbooks.open("C:\Documents and Settings\Administrator\桌面\学习\dd.xls") &&打开指定文件 nrows=bookexcel.worksheets('sheet1')&&打开工作表 UsedRange =https://www.wendangku.net/doc/767534406.html,edRange&&返回工作表中可使用的区域，UsedRange表的属性 usedrange.columns.count&&计算共几列 r=usedrange.rows.count&&汇总行 c=usedrange.columns.count&&汇总列 with myexcel.application .sheets('sheet3').select .sheets.add&&添加一个工作表 https://www.wendangku.net/doc/767534406.html, = 'ddddd'&&重命名表 endwith myexcel.Worksheets('sheet1').Activate&&选择表为当前工作表 myexcel.cells(1,1).value='sss'&&1,1处的值为 myexcel.activesheet.columns(2).columnwidth=15&&第2列的列宽设myexcel.activesheet.rows(2).rowheight=50&&设第2行的行高 myexcel.activesheet.rows(2).insert&&第2行前插入一行 myexcel.activesheet.columns(2).insert&&第2列前插入一列 myexcel.activesheet.Cells(1,1).Font.size=25&&设置1，1的字体大小myexcel.activesheet.Cells(1,1)https://www.wendangku.net/doc/767534406.html,='黑体'&&设置字体 myexcel.activesheet.Cells(1,1).clear&&清除内容 myexcel.activesheet.range('A1:C2').select&&选择区域 myexcel.selection.merge &&选择区域合并单元格 myexcel.Range('a1').Formula='=sum(b2,b3,b4,b5)'&&在A1中键入一个公式 myexcel.range('a1').ClearContents myexcel.activesheet.Columns('A:B').Select&&整列选中 myexcel.Selection.NumberFormatLocal="@" &&设置选中的区域为字符型数据 myexcel.activesheet.rows(1).select myexcel.Selection.EntireRow.Delete&&删除选中的行 myexcel.Selection.columns(1).Delete&&删除第几的列 myexcel.workbooks.close&&关闭工作区

VFP控制EXCEL的方法(终于找到了)

VFP控制EXCEL的常用方法 oExl=CREATEOBJECT('Excel.application') oExl.Visible=.T. oExl.DefaultSaveFormat=39 oExl.SheetsInNewWorkbook=1 oExl.Workbooks.Open(cXLS) oExl.WindowState=-4140 &&窗口最小化 oExl.WindowState=-4143 &&窗口正常化 oExl.WindowState=-4147 &&窗口最大化 *------------------------------------------------------* &&页面设置 oExl.ActiveSheet.PageSetup.PrintTitleRows="$1:$3" &&打印标题 oExl.ActiveSheet.PageSetup.Orientation=2 &&页面方向:1纵向/2横向 *oExl.ActiveSheet.PageSetup.PaperSize=11 &&纸张尺寸:9-A4/11-A5 oExl.ActiveSheet.PageSetup.TopMargin=0.8/0.035 &&顶边距 oExl.ActiveSheet.PageSetup.BottomMargin=0.8/0.035 &&底边距 oExl.ActiveSheet.PageSetup.LeftMargin=0 &&左边距 oExl.ActiveSheet.PageSetup.RightMargin=0 &&右边距 oExl.ActiveSheet.PageSetup.CenterHorizontally=.T. &&页面居中 oExl.ActiveSheet.PageSetup.HeaderMargin=0.5/0.035 oExl.ActiveSheet.PageSetup.FooterMargin=0.5/0.035 oExl.ActiveSheet.PageSetup.LeftHeader="&9表格"”9是字号” oExl.ActiveSheet.PageSetup.CenterHeader="" oExl.ActiveSheet.PageSetup.RightHeader="&9" oExl.ActiveSheet.PageSetup.LeftFooter="" oExl.ActiveSheet.PageSetup.CenterFooter="&9第&P页,共&N页" oExl.ActiveSheet.PageSetup.RightFooter="&9制表人:'+代码+' 制表时间:"+TTOC(DATETIME()) *------------------------------------------------------* &&整体格式设置 oExl.ActiveSheet.Rows.Font.Size=9 https://www.wendangku.net/doc/767534406.html,='宋体' oExl.ActiveSheet.Rows.RowHeight=0.5/0.035 oExl.ActiveSheet.Rows.NumberFormatLocal="0.00_ ;[红色]-0.00" oExl.ActiveSheet.Rows.VerticalAlignment=2 &&单元格内容垂直居中 *------------------------------------------------------* &&获取最大行号和最大列号 Local nMaxRow,nMaxCol nMaxRow=https://www.wendangku.net/doc/767534406.html,edRange.Rows.Count nMaxCol=https://www.wendangku.net/doc/767534406.html,edRange.Columns.Count &&表头格式设置 oExl.ActiveSheet.Rows(1).Font.Size=16

Intouch报表-EXCEL报表制作教程

用EXCEL打印报表 1.原理 首先根据报表要求，用INTOUCH的附件HISTDATA软件形成一个有规定数据的.CSV 文件（逗号分隔文件，可用EXCEL打开）。这个.CSV文件是英文的，不符合一般报表的要求，只能提供数据。所以需要另设计一个空的EXCEL报表模版，再将.CSV文件的数据复制到报表中，形成完整的报表。 通过INTOUCH可以自动产生.CSV，再通过EXCEL的宏程序打印报表，可以完成招呼打印和定时自动打印。 如果有多个报表，需要形成多个.CSV文件和设计多个EXCEL报表。 大致步骤如下：

2.生成.CSV文件 Step1: 自动生成需要的标记名 在INTOUCH开发环境中，将向导库中\趋势\历史趋势向导（HistData）放入窗口。这将自动形成若干标记名（Tag）。有关标记名以HDW开头加上它们的DDE的ITEM命名。 这些标记名说明如下： HDWDATADIR 消息型历史数据文件的目录的路径名，可用函数赋值 例如HDWDataDir = HTGetLogDirectory(); HDWDBDIR 消息型InTouch 标记名字典的目录的路径名，可用函数赋值 例如HDWDBDir = InfoInTouchAppDir(); HDWSTARTDATE 消息型与$DateString相同格式的数据采样开始日期HDWSTARTTIME 消息型使用24 小时时钟的HH:MM:SS 格式的数据采样开始时间HDWDURATION 消息型数据时间长度（报表时间总长度） 可以用星期，天时，分，秒，等来表示下面是有效的字 符：w 星期，d 天，h 小时，m 分，s 秒。允许使用 小数值例如扩.5s 表示500 毫秒若只需一个样本请 将DURATION 设为0 零 HDWINTERVAL 消息型采样间隔的时间长度 可以用星期日小时分和秒来表示例如1W 表示一星期 允许使用小数值例如用.25d 来表示6小时 有效字符与HDDURATION相同 注意DURATION 和INTERVAL 允许的最大时间长 度均为6 周这适用于所有请求类型日秒等例如如果 使用日则最大值为42，7 天x 6 周= 42

VFP全面控制EXCEL

找出其存在的问题，并提出解决方案。针对要开发的系统进行人事系统调研，提出开发系统的可行性分析。在系统结构设计中先后用数据流图、数据字典、系统的功能结构图分析了系统所需的各种数据。在系统的设计中，详细的展现了系统的各个功能模块、所需的数据库表及表字段、系统菜单的设计等。 在系统的实现中，给出了系统的界 最近正好有空，看到不少人对VFP控制EXCEL有兴趣，现将上次的“精华贴”重新整理一下，供各位爱好者参考！ oExcel.Selection.NumberFormatLocal = "@" &&把被选定的单元格设为文本格式 1、对象的创建与关闭 ******************************* eole=CREATEOBJECT('Excel.application') && 创建Excel对象 eole.Workbooks.add && 添加新工作簿 eole.Worksheets("sheet3").Activate && 设置第3个工作表为激活工作表 eole.Workbooks.Open("D:\ABC\11.xls") && 打开指定工作簿 eole.visible=.t. && 显示Excel窗口 eole.visible=.F. && 不显示Excel窗口 eole.Caption="VFP应用程序调用Microsoft Excel" && 更改Excel标题栏 eole.ActiveWorkbook.SaveAs("D:\ABC\22.xls") && 工作表另为 eole.ActiveWorkbook.saved=.t. && 放弃存盘 页脚内容1

VFP全面控制EXCEL(完全版)

VFP全面控制EXCEL VFP和Excel都可以用来进行处理数据库表格，如果巧妙地将二者的优点结合起来，将会大大方便我们的工作。比如我们可以利用VFP进行处理数据，而利用Excel的预览打印功能进行报表打印。这就需要我们在VFP中直接来控制Excel。下面就在开发VFP应用项目时对Excel的控制作一下介绍： *!*1．创建Excel对象 oExcel=Createobject("Excel.application") *!*2．添加新工作簿 oExcel.Workbooks.Add *!*3．设置第3个工作表为激活工作表 oExcel.Worksheets("sheet3").Activate *!*4．打开指定工作簿 oExcel.Workbooks.Open("c:\temp\ll.xls") *!*5．显示Excel窗口 oExcel.Visible=.T. *!*6．更改Excel标题栏 oExcel.Caption="VFP应用程序调用Microsoft Excel" *!*7．给单元格赋值 oExcel.cells(1,4).Value=XM(XM为数据库字段名) *!*8．设置指定列的宽度(单位：字符个数) oExcel.ActiveSheet.Columns(1).ColumnWidth=5 *!*9．设置指定行的高度(单位：磅) oExcel.ActiveSheet.Rows(1).RowHeight=1 (设定行高为1磅，1磅=0.035厘米) oExcel.ActiveSheet.Rows("50:100").RowHeight=1&&设置第50行至100行的高度 *!*10．在第18行之前插入分页符 oExcel.Worksheets("Sheet1").Rows(18).PageBreak=1 *!*11．在第4列之前删除分页符 oExcel.ActiveSheet.Columns(4).PageBreak=0

Excel自动生成员工简历表

Excel自动生成员工简历表 我们可以用Excel自动提取“员工基本情况登记表”中的信息，生成并打印员工简历表……[编者]前面我们介绍了《Excel常用函数的功能和使用方法》，现在我们学以致用，介绍一系列用这些函数实现的数据统计实例解析。今天我们介绍用Excel自动提取“员工基本情况登记表”中的信息，生成并打印员工简历表。 朋友在做人事工作，常常要打印指定员工的简历表，由于“员工基本情况登记表”是用Excel制作的，我们可以用Excel来自动提取“员工基本情况登记表”中的信息，生成并打印员工简历表，十分方便。文章末尾提供.xls文件供大家下载参考。 本文涉及的Excel函数如下，点击可查看详细信息： 1、IF (Logical,Value_if_true,Value_if_false) 2、ISERROR (value) 3、VLOOKUP (lookup_value,table_array,col_index_num,range_lookup) 应用过程： 1、启动Excel2003（其他版本请仿照操作），打开“员工基本情况登记表”工作簿（如图1）。 2、切换到Sheet2工作表中，仿照图2的样式制作好简历表的框架。

3、分别选中需要填写内容的单元格（除B2单元格外，如D2、F2等），输入公式：=IF(ISERROR(VLOOKUP(B2,简历!A3:K12,*,FALSE)),"",VLOOKUP(B2,简 历!A3:K12,*,FALSE))。 注意：①上述公式中的“*”号，表示“简历”表中，相应的数据所对应的列数：如“出生时间”在第“5”列（参见图1），在J2单元格中输入公式时，将“*”修改为“5”，即： =IF(ISERROR(VLOOKUP(B2,简历!A3:K12,5,FALSE)),"",VLOOKUP(B2,简 历!A3:K12,5,FALSE))。 ②公式的含义是：如果公式“VLOOKUP(B2,简历!A3:K12,5,FALSE)”返回错误（ISERROR），则有显示“空”（""），反之显示公式的返回结果。 4、选中J2单元格，再按住Ctrl键，点击C3单元格，同时选中J2和C3单元格，执行“格式→单元格”命令，打开“单元格格式”对话框（如图3），在“数字”标签中，选中“分类”下面的“日期”选项，然后在右侧选定一种日期类型，确定返回。

Excel如何设置自动生成分页报表

Excel如何设置自动生成分页报表 篇一：exceL表格分页技巧 经常在excel中制作表格时，我们不可能仅仅只作一个表格，有时可能会在一个工作簿中制作多个表格。但我们又希望将所有的表格分别打印到每一张纸上面，每张纸上面只打印一个表格，那么，我们应该如何实现呢?有许多朋友都是重建新工作簿，再将表格一个一个的剪切到新工作簿中，每个工作簿里面放一个表格，最后再一个个的打印出来。虽说这种方法可以实现，但是操作比较繁琐。其实有更好更简单的方法，利用excel中的分页功能，在一个工作簿中打印出多个表格，每张纸上面打印一个表格。 excel中如何设置手动分页打印 现在工作簿中有4个表格，我希望每张纸上面打印一个表格，分别用4张纸打印出来。 ①进入视图选项卡，单击工作簿视图选项组中的分页预览; ②上图分页预览中只有2页，分别是第1页和第2页。我们将光标移动右下角边框处，当鼠标变成双箭头时，按住左键不放，拖动边框，直到看见第3页和第4页的时候就放开鼠标;(如下图) ③现在excel就可以打印4个页面出来了，但我们还需要将上面两个表格剪切到下面来才行，剪切完成如下图： 好了，现在分页已经完成了，打印工作簿的话，会打印4张纸，每张

纸上面一个表格，下面再来说说如何自动分页打印! excel中自动分页页面设置 纵向/横向设置：单击页面布局选项卡，单击页边距，选中最下面的自定义边距，在弹出的页面设置中可以选中纵向或横向; 分页的页边距设置：然后进入页边距设置上、下、左、右的边距大小; 所以页面的页眉页脚设置：你也可以自定义页任意设置眉和页脚。excel中快速插入分页符和删除分页符 先将光标定位到需要加分页的位置，然后单击页面布局选项卡中的分隔符，选中插入分 页符或者删除分页符。如果想重新设置所以的分页效果，可以选中重设所有分页符。 篇二：如何设置电子表格分页相同的标题行 如何设置电子表格分页相同的标题行 20XX-07-0209:49:49|分类：|标签：|字号大中小订阅要想电子表格每而显示和第一页相同的标题，用以下方法： 页面设置——工作表——顶端标题行——输入第一页标题行的代码。如A2：D2如果是两行标题：用（A1：D1）：（A2：D2）格式。 注意中间用冒号。 篇三：excel小计自动分页打印的方法 excel小计自动分页打印的方法 在使用excel处理数据的时候，我们常常遇到小计的问题；即：间断性的对部分数据进行合计；

巧将Excel建立的工作簿文件转成VFP成绩报表

巧将Excel建立的工作簿文件转成VFP成绩报表 图1找到需导入的电子工作簿 能否将Excel 2000建立的工作簿文件转化成Microsoft Excel 5.0和97(XLS)格式？启动Excel 2000，打开“另存为”对话框，发现保存类型可以保存为Microsoft Excel 5.0/95工作簿，于是将Excel 2000建立的工作簿文件保存为Microsoft Excel 5.0/95工作簿，再进行VFP中的“导入”操作，工作簿被成功导入了。 在“命令”窗口中，输入“list”，查看导入的结果，无误！用“list stru”，发现“字段名”、类型、字段“宽度”不合要求，在“命令”窗口使用“modi stru”命令分别按要求对“字段名”、类型、字段“宽度”进行修改，如图2所示。 图2对字段宽度进行修改 修改完毕，用VFP进行“导出”操作，如图3所示，至此符合要求的VFP成绩报表制作完成了。 图3用VFP进行导出 利用VFP制作财务报表——谈VFP与Excel的交互操作 在VFP中制作财务报表（或者是其他报表），通常的方法是利用VFP的报表生成器一步一步地生成，这种方法用起来很麻烦，

而且打印出来的报表格式也不能尽如人意。提到制作报表，你可能够马上想到大名鼎鼎的Excel，我们能不能将二者结合起来——利用VFP的数据处理的结果，再使用Excel排版并且打印输出，而且还要让二者结合得天衣无缝呢？答案是肯定的，利用OLE技术，你能够很容易地实现上述想法。 大家对VFP的CreateObject函数可能不会陌生，利用CreateObject函数，你能够在VFP中创建并使用任何在你计算机上注册了的类（通常在安装应用程序时，应用程序都会向注册表里添加类信息）。也就是说你能够在VFP中调用任何应用程序为你的数据处理服务。CreateObject的具体用法如下： CREATEOBJECT（ClassName[eParameter1，eParameter2，...]） 其中，ClassName指明欲建立对象的类名。eParameter1，eParameter2……是用来传递参数给OLE对象的（OLE对象进行初始化时要用要到的）。例如，在VFP中欲建立一Excel工作簿对象，只须在程序中加入下列语句：MySheet=CREATEOBJECT（′Excel.Sheet′）就行了。 要在VFP中灵活地调用Excel为你服务，首先你应该对Excel提供的各类对象进行深入了解。Excel为我们提供了一百多种对象，如应用程序对象、图表对象、工作簿对象等等。对于每种对象调用，你得遵循一定的规则（也就是说你必须熟悉VBA 编程）。接下来介绍Excel常见对象的调用方法。

使用VBA实现EXCEL批量生成图表并发送

使用EXCEL VBA实现图表批量生成并发送 业务需求 office word2007的邮件合并功能是财务、文秘类工作经常使用的功能之一，该功能可以生成包含可变内容的批量邮件文档，广泛适用于发送工资条、成绩单、通知书等，这里不再赘述。笔者所在单位最近为加强员工考核管理工作力度，提出了一个类似于邮件合并功能，但使用邮件合并功能却不能实现的需求，下面用文字结合图表描述： 1.将员工百分制考核结果批量以图表(折线图)反应出来，每一条员工数据均生成一个类似于下图右侧的图表。 （图1） 2.使用类似于邮件合并方式实现员工考核图表的批量发送，将生成的图表插入邮件正文分别发送给每位员工。 （图2） 解决思路 思路一：使用https://www.wendangku.net/doc/767534406.html,+Sqlserver（或ACCESS等，下同）开发一个网站，设置好权限，允许员工查看自己的反馈结果。 思路评价：可行，但达不到设想中的推送效果。 思路二：使用https://www.wendangku.net/doc/767534406.html,+Sqlserver开发一个系统，内置图表模板，图表基于固定区域数据生成；为每位员工复制一份作为报表，将该员工数据填写到固定区域；将每位员工的报表作为附件发送给每位员工。 思路评价：可行，但开发量大，效果不直观。

思路三：使用https://www.wendangku.net/doc/767534406.html,+Sqlserver开发一个系统，使用VS2008版以上自带控件或第三方控件如dotnetcharting，为每位员工生成一张图片，将该图片插入邮件发送给每位员工。 思路评价：可行，但开发量大。 思路四：使用excel VBA为每位员工生成一张图片，将该图片插入邮件发送给每位员工。这个思路一开始并没有列入考虑范围，主要原因是当时认为在excel中为每位员工生成一个图表是不可能的，即使能生成也没办法脱离excel工作薄，分别和员工对应起来并发送。最终采用本思路，是缘于笔者发现VBA可以非常容易地把图表导出为图片。 思路评价：可行，事实证明，开发量比想象的小很多。 开发环境准备 1.在运行该程序的电脑上安装Office Excel2007或以上版本； 2.正确配置OUTLOOK使之能够正常发送邮件； 3.打开Excel2007新建工作薄，把测试数据输入到sheet1工作表，把工作薄保存到工作目录（为方便后文描述，这里的目录设为“E:\excel-vba”），在该目录下新建“imgfile”子目录，以存放图片。示例数据如下： 注意：附件路径是个公式：=concatenate(“E:\excel-vba\imgfile\”,A1,”.jpg”) 含义是图片以员工姓名命名，这意味着员工姓名不可重复。 4.完成宏安全设置，如图所示： （图3） 实现过程 这个业务需求实现包含两个难点，一是为每位员工生成对应的图片；二是批量发送带图片的邮件。基于这两点，笔者在excel工作薄中设置了两个按钮，编写了两段代码，分别对应上述两个问题。事实上，这两段代码完全可以整合到一起，这里为了方便理解，还是分开介绍。笔者采取代码中加入注释的方式帮助大家理解代码含义。

用excel自动生成《国资委企业财务决算报表》数据

用exceｌ自动生成《国资委企业财务决算报表》数据 《国资委企业财务决算报表》系统,一下简称《系统》，表格较多，填报工作量大,相关表之间又存在勾稽关系，在实际填报时即麻烦又容易出错，现在我介绍一种简便填报方法,能够达到既快又准的效果，极大程度提高了工作效率。 一、导出Excel报表 《系统》，提供了报表数据于Eｘceｌ的连接,可直接将已有的报表数据导入到Eｘcｅｌ中，生成Eｘcel表格。其格式和《系统》内报表完全相同。 为了方便操作，我尽量详细说明,并附《系统》相同图示。 1、启动《系统》(如图１)

图1 ２、单击“传送”菜单下的“导出到Exceｌ”子菜单，出现如下窗口(如图2）

图２ ３、在弹出的窗口中选择要导出数据的单位,单击“确定”按钮；出现如下窗口（如图3)

图3 4在弹出的窗口中单击按钮，选择导出Excｅl文件的保存路径； ５、选择要导出Eｘcel的报表（点全选)，单击“确定”按钮即可。 到此《系统》内部报表已完整成功导出来了。为了方便叙述，我们导出的国资委ｅxｃeｌ报表定名称为《国资委excｅl表》。 二、数据采集

1、首先导出一个年度《科目发生额及余额表》 成功导出《国资委excel报表》才算顺利完成了第一步,接下来就是数据的采集问题，既如何快速完成数据的录入工作。 此方法技术含量较低，不使用连接数据库技术，一般人员都能够掌握,如果你现在使用了财务软件,那更方便数据的采集了。 打开财务软件导出一个年度《科目发生额及余额表》，设定会计科目为二级，导出格式为excｅl,(具体方法不在赘述） 把年度《科目发生额及余额表》插入到《国资委excｅl报表》工作簿中,成为《国资委ｅxｃel报表》中的一个工作表。把《科目发生额及余额表》命名为“基本数据”。

VFP操作Excel命令大全

VFP和Excel都可以用来进行处理数据库表格，如果巧妙地将二者的优点结合起来，将会大大方便我们的工作。比如我们可以利用VFP进行处理数据，而利用Excel的预览打印功能进行报表打印。这就需要我们在VFP中直接来控制Excel。下面就在开发VFP应用项目时对Excel的控制作一下介绍： *!* 1．创建Excel对象 oExcel=Createobject("Excel.application") *!* 2．添加新工作簿 oExcel.Workbooks.Add *!* 3．设置第3个工作表为激活工作表 oExcel.Worksheets("sheet3").Activate *!* 4．打开指定工作簿 oExcel.Workbooks.Open("c:\temp\ll.xls") *!* 5．显示Excel窗口 oExcel.Visible=.T. *!* 6．更改Excel标题栏 oExcel.Caption="VFP应用程序调用Microsoft Excel" *!* 7．给单元格赋值 oExcel.cells(1,4).Value=XM(XM为数据库字段名) *!* 8．设置指定列的宽度(单位：字符个数) oExcel.ActiveSheet.Columns(1).ColumnWidth=5 *!* 9．设置指定行的高度(单位：磅) oExcel.ActiveSheet.Rows(1).RowHeight=1 (设定行高为1磅，1磅=0.035厘米) oExcel.ActiveSheet.Rows("50:100").RowHeight=1 &&设置第50行至100行的高度 *!* 10．在第18行之前插入分页符 oExcel.Worksheets("Sheet1").Rows(18).PageBreak=1 *!* 11．在第4列之前删除分页符 oExcel.ActiveSheet.Columns(4).PageBreak=0 *!* 12．指定边框线宽度(Borders参数如下) ole.ActiveSheet.Range("b3:d3").BorderS(2).Weight=3 *!* 13．设置四个边框线条的类型 oExcel.ActiveSheet.Range("b3:d3").BorderS(2).LineStyle=1 (其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线) *!* 14．设置页眉 oExcel.ActiveSheet.PageSetup.CenterHeader="报表1" *!* 15．设置页眉(字体大小) oExcel.ActiveSheet.PageSetup.CenterHeader="&50报表1" &&'&'后面的50可以自定义，表示字体的大小 *!* 16．设置页脚 oExcel.ActiveSheet.PageSetup.CenterFooter="第&P页" *!* 17.设置页脚(字体大小) oExcel.ActiveSheet.PageSetup.CenterFooter="&28第&P页" &&'&'后面的28可以自定义，表示字体的大小