|
|
|
| 代码名称： |
PB 8.0中结合Formula One将DW存为带中文标题的EXCEL文件 |
|
| 代码语言： |
简体中文 |
| 界面预览： |
|
| 代码类型： |
国产代码 / 其他代码 |
| 运行环境： |
2003, WinXP, 2000, NT, WinME, Win9X |
| 授权方式： |
共享代码 |
| 代码大小： |
21 KB |
| 代码等级： |
 |
| 整理时间： |
2005-11-17 13:33:00 [snowman] |
| 联 系 人： |
无 |
| 开 发 商： |
|
| 演示地址： |
无 |
| 下载次数： |
本日：1 本 周：1 本月：3 总计：103 |
| 简 介： |
用PB8编写，主要程序代码：
file://window open event
DATAWINDOW DW
DW = Message.PowerObjectParm
if Isnull(dw) then close(this)
STRING sData,sPath
sData = DW.describe("datawindow.data")//取得DATAWINDOW数据
ole_1.object.ClearRange( -1, -1, 1, 1, 3)//清除EXCEL数据
ole_1.SetData(ClipFormatText!, sData)//复制数据到EXCEL
ole_1.object.InsertRange(1,1, 1,1,3)//插入一行
string sCloumnCount,sDescribe,sDEsc,sName
long lColumnCount,lColumn
long lPos
string sEnter,sLine,sSemicolon = '"'
sEnter = char(13);sLine = char(10)
sCloumnCount = DW.object.datawindow.Column.count
lColumnCount = long(sCloumnCount)
for lColumn = 1 to lColumnCount
sDescribe = "#" + string(lColumn) + ".Name"
sName = DW.describe(sDescribe)//取得列的名字
sDescribe = sName + "_t.text"//得到对应的标题
sDesc = DW.describe(sDescribe)
if sDesc ='!' or sDesc ='?' then sDEsc = sName
file://去掉回车换行"
lPos = 1;lpos = pos(sDEsc,sEnter,lPos)
do while lPos > 0
sDEsc = Replace (sDEsc, lPos, 1, '');lpos = pos(sDEsc,sEnter,lPos)
loop
lPos = 1;lpos = pos(sDEsc,sLine,lPos)
do while lPos > 0
sDEsc = Replace (sDEsc, lPos, 1, '');lpos = pos(sDEsc,sLine,lPos)
loop
lPos = 1;lpos = pos(sDEsc,sSemicolon,lPos)
do while lPos > 0
sDEsc = Replace (sDEsc, lPos, 1, '');lpos = pos(sDEsc,sSemicolon,lPos)
loop
file://标题放到EXCEL
ole_1.object.textrc%5B;1,lColumn%5D; = sDesc
next
file://保存文件
string sFileName, sFile
integer value
value = GetFileSaveName("另存为",sFileName, sFile, "xls","Excel文件 (*.xls),*.xls" )
IF value = 1 THEN
ole_1.object.write(sFileName,11)
end if
close(this)
|
 点击打开下载页面(Download Now！)
|
 下载帮助(？)
下载链接错误报告或意见反馈 代码论坛讨论 |
| 下载PB 8.0中结合Formula One将DW存为带中文标题的EXCEL文件 说明： |
* 推荐:使用网际快车下载本站代码。
* 任何网站不得非法盗链及抄袭本站资源；如引用页面，请注明来自代码爱好者，谢谢您的支持！
* 本站允许300人同时下载,如果出现该页无法显示,请多试几次,谢谢!
* 请一定升级到最新版[WinRAR]才能正常解压本站提供的软件；如有其它问题,欢迎发信联系管理员 |
|
当前位置：
本日下载排行榜