自定义博客皮肤VIP专享

*博客头图：

点击选择上传的图片

格式为PNG、JPG，宽度*高度大于1920*100像素，不超过2MB，主视觉建议放在右侧，请参照线上博客头图

请上传大于1920*100像素的图片！

博客底图：

点击选择上传的图片

图片格式为PNG、JPG，不超过1MB，可上下左右平铺至整个背景

栏目图：

点击选择上传的图片

图片格式为PNG、JPG，图片宽度*高度为300*38像素，不超过0.5MB

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览取消提交

自定义博客皮肤

-+

上一步保存

NetBug World

Try your Best to do it better!

javaxi 优快云认证博客专家优快云认证企业博客

码龄20年

7: 原创

57万+: 周排名

226万+: 总排名

2万+: 访问

: 等级

352: 积分

5: 粉丝

0: 获赞

2: 评论

5: 收藏

私信

关注

热门文章

分类专栏

.NET 1篇
asp 4篇
Office 1篇
PB
PHP 2篇
求职 2篇
程序员 1篇
widnows 1篇

最新评论

PB读取EXCEL文件
liuyc81: 我取出的中文字符怎么少了，甚至后面变成英文了。不知何故。 path_name = "c:\trqgl\dw.xls" long i,ll_row,i_return oleobject xlapp,xlsub xlapp = CREATE OLEObject i_return = xlapp.ConnectToNewObject( "Excel.Application") if i_return <> 0 then MessageBox( "错误！ ", "无法启动excel程序！ ") return end if xlapp.application.workbooks.open(path_name) xlsub = xlapp.application.activeworkbook.worksheets[1] //do while len(string(xlsub.cells(i,9).value)) > 0 //goods_code = trim(string(xlsub.cells(i,9).value)) //goods_num = double(xlsub.cells(i,5).value) //goods_price = double(xlsub.cells(i,6).value) //goods_sum_value = round(double(xlsub.cells(i,7).value),2) //goods_name = trim(string(xlsub.cells(i,1).value)) //i = i + 1 //loop messagebox(trim(string(xlsub.cells(1,6).value)),trim(string(xlsub.cells(2,6).value))) xlapp.DisplayAlerts = False xlapp.Workbooks.close xlapp.DisplayAlerts = true xlapp.DisconnectObject() //xlapp.quit Destroy xlapp
WORD邮件合并打印EXCEL数据制作大量奖证、奖状、准考证、成绩单、明信片、信封等个人报表
dadifeiyingygdd: 非常不错

最新文章

PB

关注

关注数：文章数：1 文章阅读量：5775 文章收藏量：3

作者: javaxi

这个作者很懒，什么都没留下…

展开

PB读取EXCEL文件

string path_name,file_name if GetFileOpenName( "选择导入的文件... ", path_name, file_name, "XLS ", "Excel Files (*.XLS),*.XLS ") = 1 then else return end if if fileexists(path_name) then else return end if long i,ll_row,i_return oleobject xlapp,

转载 2011-02-09 17:03:00 · 5775 阅读 · 1 评论