vf6导入导出excel
- 格式:doc
- 大小:41.50 KB
- 文档页数:6
工程中添加对microsoft excel 8.0对象库的引用
为应用程序工作簿工作表对象声明对象变量
dim xlApp as excel.application
dim xlbook as excel.workbook
dim xlsheet as excel.worksheet
将对象引用赋值给变量,用ADD方法创建新的工作簿和工作表对象
set xlapp=new excel.application
set xlbook=slapp.workbooks.add
set xlsheet=xlbook.worksheets.add
将文本框中的值赋给microsoft excel单元
xlsheet.cells(1,1).value=text1.text
xlsheet.cells(2,1).value=text2.text
用formula方法将microsoft excel中的值相加
xlsheet.cells(3,1).formula="=r1c1+r2c1"
text3.text=xlsheet.cells(3,1)
保存工作表
xlsheet.saveas "c:\temp.xls"
关闭工作表
xlbook.close
关闭microsoft excel
xlapp.quit
释放对象
set xlapp=nothing
set xlbook=nothing
set xlsheet=onthing
主要说明了程序中怎样操作Excel
vf6自带有导入导出excel功能,可以先打开dbf文件,导出为excel5.0,打开,将数据输入后,注意还保存为excel5.0格式,打开dbf文件,导入就行了,
Fox中操作Excel
*1.创建Excel对象
eole=CREATEOBJECT('Excel.application')
* 2.添加新工作簿
eole.Workbooks.add
激活指定的工作簿
eole.WorkSheets("工作簿名").Activate
* 3.设置第3个工作表为激活工作表
eole.Worksheets("sheet1").Activate
* 4.打开指定工作簿
eole.Workbooks.add("E:\E_temp\ABC.xls")
* 5.显示Excel窗口
eole.visible=.t.
* 6.更改Excel标题栏
eole.Caption="VFP应用程序调用Microsoft Excel"
* 7.给单元格赋值
* eole.cells(行,列).value=XM(XM为数据库字段名)
eole.cells(1,4).value='ASDFASDFASDFASDFADSF'
* 8.设置指定列的宽度(单位:字符个数)
eole.ActiveSheet.Columns(1).ColumnWidth=5
* 9.设置指定行的高度(单位:磅)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035 && 设定行高为1厘米,1磅=0.035厘米
* (设定行高为1厘米,1磅=0.035厘米)
* 10.在第18行之前插入分页符
eole.Worksheets("Sheet1").Rows(18).PageBreak=1
* 11.在第4列之前删除分页符
eole.ActiveSheet.Columns(4).PageBreak=0
* 12.指定边框线宽度(Borders参数如下)
eole.ActiveSheet.Range("b3:d3").Borders(2).Weight=3
* 13.设置四个边框线条的类型
eole.ActiveSheet.Range("b3:d3").Borders(1).LineStyle=1
* (其中Borders参数:1-左、2-右、3-顶、4-底、5-斜、6-斜/;LineStyle 值:1与7-细实、2-细虚、4-点虚、9-双细实线)
* 14.设置页眉
eole.ActiveSheet.PageSetup.CenterHeader="报表1"
* 15.设置页脚
eole.ActiveSheet.PageSetup.CenterFooter="第&P页"
* 16.设置页眉到顶端边距为2厘米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
* 17.设置页脚到底边距为3厘米
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
* 18.设置顶边距为2厘米
eole.ActiveSheet.PageSetup.TopMargin=2/0.035
* 19.设置底边距为4厘米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035
* 20.设置左边距为2厘米
eole.ActiveSheet.PageSetup.LeftMargin=2/0.035
* 21.设置右边距为2厘米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035
* 22.设置页面水平居中
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
* 23.设置页面垂直居中
eole.ActiveSheet.PageSetup.CenterVertically=.t.
* 24.设置页面纸张大小(1-窄行8?5?11 39-宽行14?11)
eole.ActiveSheet.PageSetup.PaperSize=1
可为下列 XlPaperSize 常量之一(某些打印机可能不支持所有的这些纸张大小);
常量数值意义;
xlPaperLetter 1 Letter (8-1/2 in. x 11 in.)
xlPaperA3 8 A3 (297 mm x 420 mm)
xlPaperA4 9 A4 (210 mm x 297 mm)
xlPaperA4Small 10 A4 Small (210 mm x 297 mm)
xlPaperA5 11 A5 (148 mm x 210 mm)
xlPaperB4 12 B4 (250 mm x 354 mm)
xlPaperB5 13 B5 (182 mm x 257 mm)
xlPaperFanfoldUS 39 U.S. Standard Fanfold (14-7/8 in. x 11 in.) xlPaperUser 用户自定义
* 25.打印单元格网线
eole.ActiveSheet.PageSetup.PrintGridlines=.t.
* 26.拷贝整个工作表
edRange.Copy
* 27.拷贝指定区域
eole.ActiveSheet.Range("A1:E2").Copy
* 28.粘贴
eole.Worksheets("sheet2").Activate