社区
DataWindow
帖子详情
快速保存数据窗口中的数据成文本和EXCEL格式?
A_G
2003-02-11 08:57:00
如果有几万条,怎样快速保存?有没有什么好的思路?
...全文
58
11
打赏
收藏
快速保存数据窗口中的数据成文本和EXCEL格式?
如果有几万条,怎样快速保存?有没有什么好的思路?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
11 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
htp_htp
2003-02-11
打赏
举报
回复
saveas
saveasascii
liaolwj
2003-02-11
打赏
举报
回复
都可以的
A_G
2003-02-11
打赏
举报
回复
to shengjinbo(八爪鱼)
这样还是一条一条保存的,速度比较慢!
to liaolwj(风儿)
保存html可以把数据窗口中所有能看到的都保存下来吗?比如计算列,子数据窗口显示的当前列数据!
shengjinbo
2003-02-11
打赏
举报
回复
我从别的地方找过这个函数,增加一个取得显示值的语句,无偿送你
注意两个参数,一个是datawindow型,一个是string型。
/**********************************************
* 函数名称: changexecl(datawindow,tile) *
* 函数用法:datawindow为要转化的数据窗口; *
* tile为数据窗口的标题。 *
* 举例:changexecl(dw_1,"这是我们的世界") *
* li0827@163.com 2002/6/15 *
**********************************************/
long numcols , numrows , c, r
OLEObject xlapp , xlsub
int ret,coli
string colname,colname1
//datawindow dw_data1
//dw_data1 = dw_data
numcols = long(dw_data.Object.DataWindow.Column.Count)
numrows = dw_data.RowCount()
xlApp = Create OLEObject
ret = xlApp.ConnectToNewObject( "Excel.application" )
if ret < 0 then
MessageBox("Connect to Excel Failed !",string(ret))
return
end if
xlApp.Application.Workbooks.add()
xlApp.Application.Visible = true
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
string colnum //判断是A、B...或AA、AB...还是BA、BB、BC...
if integer(numcols) > 26 then
string colnumd,colnumd1
int numcols1,numcols2
numcols1 = mod(numcols,26)
numcols2 = numcols / 26
colnumd = char(numcols1 + 96)
colnumd1 = char(numcols2 + 96)
colnum ="'" + colnumd1 + colnumd + "'"
else
colnum = char(numcols + 96)
end if
xlsub.cells[1,1] = tabname //标题
xlsub.cells[1,1].HorizontalAlignment = 3
xlsub.cells[1,1].VerticalAlignment = 3
xlsub.cells[1,1].Font.Size = 20
xlsub.range("a1:" + colnum + "1").Merge()
string ls_colname,ls_colname1
integer i
for i = 1 to numcols
//得到标题头的名字
ls_colname1 = dw_data.describe('#' + string(i) + ".name")
ls_colname = ls_colname1 + "_t"
xlsub.cells[2,i] = dw_data.describe(ls_colname + ".text")
For r = 1 to numrows
// xlsub.cells[r + 2,i] = dw_data.object.data[r,i] 导出字段值
xlsub.cells[r + 2,i] =
dw_data.describe("Evaluate('Lookupdisplay("+ls_colname1+")',"+string(r)+")") //导出字段的显示值
,对ddw等有特效
Next
next
//画表格线
string ls_range
ls_range = "A2:" + colnum + Trim(string(numrows+2))
xlsub.range(ls_range).borders(1).linestyle = 1
xlsub.range(ls_range).borders(2).linestyle = 1
xlsub.range(ls_range).borders(3).linestyle = 1
xlsub.range(ls_range).borders(4).linestyle = 1
xlapp.Application.ActiveWorkbook.saved = false
xlApp.DisConnectObject()
Destroy xlapp
liaolwj
2003-02-11
打赏
举报
回复
可以先保存为html,然后再用excel转换
A_G
2003-02-11
打赏
举报
回复
就是因为数据比较多,用一行一行速度比较慢
A_G
2003-02-11
打赏
举报
回复
saveas 不能保存计算列!有没有其他方法
liaolwj
2003-02-11
打赏
举报
回复
转入excel如果数据少还可以逐行处理,但文本则没有办法
A_G
2003-02-11
打赏
举报
回复
还有没有其他的?
xiaobzg
2003-02-11
打赏
举报
回复
saveas()最快
liaolwj
2003-02-11
打赏
举报
回复
数据窗口中saveas()速度比较快
word案例yt123
【教学目的、要求】 1、通过学习掌握WORD 2003的
窗口
及基本操作; 2、熟悉制作公文、通知的基本操作步骤及
格式
排版要求 【教学重点、难点】 1、文档输入、字符及段落
格式
设置、页面设置 2、国家公文
格式
的规范 【教学过程设计】
python
保存
到txt_python
保存
成
文本
文件
广告关闭腾讯云11.11云上盛惠 ,精选热门产品助力上云,云服务器首年88元起,买的越多返的越多,最高返5000元!python
保存
文本
文件的方法:使用python内置的open()类可以打开
文本
文件,向文件里面写入
数据
可以用write()函数,写完之后,使用close()函数就可以关闭并
保存
文本
文件了示例代码如下:? 执行结果如下:? 内容扩展:python3将
数据
保存
为txt文件的方法,具体内...
Excel
教程(OFFICE/WPS/表格/
EXCEL
函数/
EXCEL
技巧/
数据
分析/办公软件)
持续更新
中
...
三角计算机器应用试卷,2015年职称计算机考试WPS_Office考前测试题及答案
OFFICE 办公软件试题分享1、在
Excel
数据
清单
中
,安某一字段内容进行归类,并对每一类作出统计的操作是( B )A、排序B、分类汇总C、筛选D、记录单处理2、在
Excel
中
,一个工作簿就是一个
Excel
文件,其扩展名为( C )A、EXEB、DBFC、XLSD、MDB3、
Excel
的
数据
列表又称为
数据
清单,也称为工作表
数据
库,它由若干列组
成
,每列应有( B )A、数字B、字母C、数字+字母D...
Excel
使用技巧集锦——163种技巧
目 录一、基本方法 71.
快速
选
中
全部工作表 72.
快速
启动
Excel
73.
快速
删除选定区域
数据
74. 给单元格重新命名 75. 在
Excel
中
选择整个单元格范围 76.
快速
移动/复制单元格 87.
快速
修改单元
格式
次序 88. 彻底清除单元格内容 89. 选择单元格 810. 为工作表命名 911. 一次性打开多个工作簿...
DataWindow
611
社区成员
20,469
社区内容
发帖
与我相关
我的任务
DataWindow
PowerBuilder DataWindow
复制链接
扫一扫
分享
社区描述
PowerBuilder DataWindow
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章