自定义博客皮肤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!

博客等级

码龄21年

7
原创

0
点赞

5
收藏

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: 非常不错

求职

关注

文章平均质量分 85

关注数：文章数：2 文章阅读量：4313 文章收藏量：1

作者: javaxi

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

展开

专栏收录文章