31．设置字体 eole.ActiveSheet.Cells(2,1).Font.Name=″黑体″
32．设置字体大小 eole.ActiveSheet.Cells(1,1).Font.Size=25
33．设置字体为斜体 eole.ActiveSheet.Cells(1,1).Font.Italic=True
34．设置整列字体为粗体 eole.ActiveSheet.Columns(1).Font.Bold=True
//区域内的字体居中，1是默认 2是左对齐，3是居中，4是右对齐
eole.ActiveSheet.Range(ls_range).HorizontalAlignment = 3
//颜色(值可取rgb值,我这里随便输入的)
eole.ActiveSheet.Range(ls_range).Font.Color = 333
eole.ActiveSheet.Range(ls_range).Interior.Color = 33
35．清除单元格公式 eole.ActiveSheet.Cells(1,4).ClearContents
36．打印预览工作表
方法一：eole.ActiveSheet.PrintPreview
方法二：eole.ExecuteExcel4Macro("PRINT(1,,,1,,TRUE,,,,,,1,,,TRUE,,FALSE)")
37．打印输出工作表
方法一：eole.ActiveSheet.PrintOut
方法二：eole.ExecuteExcel4Macro("PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)")
38．工作表另为 eole.ActiveWorkbook.SaveAs(″c:\temp\22.xls″)
39．放弃存盘 eole.ActiveWorkbook.saved=True
40．关闭工作簿 eole.Workbooks.close
41．退出Excel eole.quit
42. 合并
string worksheet, beginRowcol, EndRowCol
MyOLE.ActiveWorkBook.Sheets(worksheet).Range( BeginRowCol+":"+EndRowCol).Select
MyOLE.ActiveWorkBook.Sheets(worksheet).Range(BeginRowCol+":"+EndRowCol).Merge
43. sheet改名
MyOLE.ActiveWorkBook.Sheets(olename).select
MyOLE.ActiveWorkBook.Sheets(olename).name=newname
44. 举例
MyOLE=Create OLEObject
ConnectErr = MyOLE.ConnectToNewObject ("excel.Application")
MyOLE.visible=false //打开指定的XLS文件激活workbooks
MyOLE.application.workbooks.Open (FilePath) //对XLS文件进行了改动以后，在关闭该文件时是否需要向用户提出警告。
MyOLE.Application.DisplayAlerts = False
if isnull(MyOLE) then return -1 ;
if ConnectErr <0 then
choose case ConnectErr
case -1
messagebox('错误提示','无效的调用')
case -2
messagebox('错误提示','类名没发现')
case -3
messagebox('错误提示','对象不能创建')
case -4
messagebox('错误提示','文件不能连接')
case -5
messagebox('错误提示','不能连接现在的对象')
case -6
messagebox('错误提示','文件无效')
case -7
messagebox("错误提示","文件不存在或已经打开")
case -8
messagebox("错误提示","服务器不能装载选择的文件")
case -9
messagebox("错误提示","其他错误")
end choose
return -1
End if
2 首页 上一页 1 2 |
