vfp控制excel的方法(最全)

《vfp控制excel的方法(最全)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、新编VFP控制EXCEL的方法最近正好有空，看到不少人对VFP控制EXCEL有兴趣，现将上次的"精华贴"重新整理一下，供各位爱好者参考！1、对象的创建与关闭*******************************eole=CREATEOBJECT('Excel.application')&&创建Excel对象eole.Workbooks.add&&添加新工作簿eole.Worksheets("sheet3").Activate&&设置第3个工作表为激活工作表eole.Workbooks.Open("D:ABC11.xls")&&打开指定工作簿eole.visible=.t.&&显示

2、Excel窗口eole.visible=.F.&&不显示Excel窗口eole.Caption="VFP应用程序调用MicrosoftExcel"&&更改Excel标题栏eole.ActiveWorkbook.SaveAs("D:ABC22.xls")&&工作表另为eole.ActiveWorkbook.saved=.t.&&放弃存盘eole.ActiveSheet.UsedRange.Copy&&拷贝整个工作表eole.ActiveSheet.Range("A1:E2").Copy&&拷贝指定区域eole.WorkSheet("Sheet2").Range("A1").PasteSpe

3、cial&&粘贴eole.Sheets.Count&&sheets的数量eole.Sheets.item(1).cell(1,1)&&sheet1的单元格存取（无需激活）eole.ActiveWorkbook.Save&&存盘（自动存盘不提问）eole.Workbooks.close&&关闭工作簿eole.quit&&退出Excel2、单元格的设置***********************************eole.ActiveSheet.Columns("D:D").Delete&&删除列eole.ActiveSheet.Columns("A:B").Delete&&删除列eol

4、e.ActiveSheet.Columns(1).ColumnWidth=20&&列的宽度(单位：字符个数)eole.ActiveSheet.Columns(2).ColumnWidth=30eole.ActiveSheet.Columns("C:BE").ColumnWidth=9.5eole.Selection.Columns.AutoFit&&最适合的列宽eole.ActiveSheet.Range("b3:d3").Borders(2).Weight=3&&指定边框线宽度(其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2

5、－细虚、4－点虚、9－双细实线)eole.ActiveSheet.Range("A1:BE29").Borders(1).LineStyle=1&&设置四个边框线条的类型eole.ActiveSheet.Range("A1:BE29").Borders(2).LineStyle=1&&设置四个边框线条的类型eole.ActiveSheet.Range("A1:BE29").Borders(3).LineStyle=1&&设置四个边框线条的类型eole.ActiveSheet.Range("A1:BE29").Borders(4).LineStyle=1&&设置四个边框线条的类型eole.Ac

6、tiveSheet.Rows(1).Insert&&在第1行之前插入一行eole.ActiveSheet.Columns(2).Insert&&在第2列之前插入一列eole.cells(1,2).value="ABTMC"&&给单元格赋值eole.cells(2,2).value="&BBBB"&&给单元格赋值eole.ActiveSheet.Cells(1,4).ClearContents&&清除单元格公式eole.cells(1,2).value="ABTMC"+CHR(10)+"ABTMC"&&单元格内强制换行eole.ActiveSheet.Rows(1).RowHeight=1/0

7、.035&&设置指定行的高度(单位：磅)*(行高为1厘米，1磅=0.035厘米)eole.ActiveSheet.ROWS(1).Font.Name="黑体"&&设置字体eole.ActiveSheet.ROWS(1).Font.Size=14&&设置字体大小eole.ActiveSheet.ROWS(1).Font.Bold=.t.&&设置整行字体为粗体eole.ActiveSheet.Cells(1,1)