pb导出excel(直接导出)_pb导出xlsx,pb导出excel资源-CSDN文库

3星 · 超过75%的资源需积分: 50 188 浏览量 2011-10-26 09:28:18 上传评论收藏 26KB DOC 举报

资源推荐

资源详情

资源评论

基本操作:

Ole_object.Workbooks.add//新建一个 Excel 文件

Ole_object.Workbooks.Open("FileName")//打开一个已存在 Excel 文件

Ole_object.ActiveWorkBook.Sheets("SheetName").Select//选择文件中一个工作表

Ole_object.Application.Run("MacroName")//运行宏

Ole_object.Application.Visible=TRUE//Excel 文件可见

Ole_object.Application.ScreenUpdating=true//设置可见属性

② 格式设置

Ole_object.ActiveSheet.Columns("A:U").AutoFit//列宽自动调整

Ole_object.ActiveSheet.Columns("A:Z").ColumnWidth=6.75//列宽

Ole_object.ActiveSheet.Rows("1:100").RowHeight=12//行高

Ole_object.Application.StandardFont="ArialNarrow";//设置字体

Ole_object.Application.StandardFontSize="8"//设置字号

Ole_object.ActiveSheet.Font.Size="8"//设置字号

Ole_object.ActiveSheet.Font.Bold=True//粗体

Ole_object.ActiveSheet.Font.Italic=True//斜体

Ole_object.ActiveSheet.Font.Underline=True//下划线

Ole_object.ActiveSheet.Font.StrikeThrough=True//删除线

Ole_object.ActiveSheet.HorizontalAlignment=3//水平：4 靠右；3 居中；2 靠左

Ole_object.ActiveSheet.VerticalAlignment=2//垂直：3 靠下；2 居中；1 靠上

Ole_object.ActiveSheet.cells(2,1).font.name=’黑体’//设置字体

Ole_object.ActiveSheet.cells(2,1).font.size=25//设置字体大小

③ 工作区域操作：

Ole_object.ActiveSheet.Range("A1:Z10").Property=value//设置一个工作区域内的属性值

Ole_object.ActiveSheet.Range("A1:Z10").Merge//合并单元格

Ole_object.ActiveSheet.Range("A1:Z10").WrapText=False//自动换行禁止

Ole_object.ActiveSheet.Range("A1:Z10").Borders(b_type).Weight=i_val//b_type:1 左边界；2

右边界；3 上边界；4 下边界；5 左上倾斜；6 右上倾斜(以上为对单元格的操作)7 左边界；8 上边界；9

下边界；10 右边界；11 内部垂直边界；12 内部水平边界（以上为对区域的操作）//i_val:0 无边界线；

然后 1，2，3。。。依次边界线加粗

Ole_object.ActiveSheet.Range("A1:Z10").Borders(b_type).linestyle=1//1 与 7—细实、2—细虚、

4—点虚、9—双细实线

④ 赋值操作

Ole_object.ActiveSheet.range("A1:Z10").Cells.value=“姓名”

Ole_object.ActiveSheet.range("A1:Z10").Cells.value=1

Ole_object.ActiveSheet.range("A1:Z10").Cells.value=“2003-01-01”

Ole_object.ActiveSheet.Range("A1:Z10").Cells(1,2).value=“年龄”//区域内一个单元格的赋值

Ole_object.ActiveSheet.Range("A1:Z1").Cells(1,1).value=“SUM(RC[-9]:RC[-1])”

方法 2

OleObject Loo_Excel

Loo_Excel=create oleobject

if Loo_Excel.ConnectToNewObject("Excel.Application") <> 0 then

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余1页未读，立即下载

内容反馈

wjcjh

2013-07-31

很简单的一程序
iwtynui

2017-12-05

目前够用了
chengzeng

2013-08-19

实现的功能过于简单，不能导出多个sheet！

sapplney

粉丝: 0
资源: 3

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈

feedback-tip