在powerbuilder 中向Excel传递数据的问题.

thefishwilldie 2006-08-15 04:55:32
我用DDE打开Excel,写一般的单元格没有问题,但是当遇到合并的单元格时比如:
R21C8,这个单元格是21行H,I合并的单元格
老是抱错"不能对合并单元格做部分更改",请教高手如何解决?
...全文
377 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
thefishwilldie 2006-08-16
  • 打赏
  • 举报
回复
哦~按照你上面这个可以了~~~多谢多谢啊,给你100分~
thefishwilldie 2006-08-16
  • 打赏
  • 举报
回复
range("xx") 这里的XX指的什么啊?什么样的格式?
polestarxu 2006-08-16
  • 打赏
  • 举报
回复
这种没用过。
把我用的写一个吧(设A1:H5区域为合并单元格)
OleObject RepExcel
RepExcel = Create OleObject
If RepExcel.ConnectToNewObject( "Excel.Application" ) <> 0 Then
MessageBox( '提示信息','对不起,PC环境没有正常安装Excel。' )
Return
End If
RepExcel.WorkBooks.Add("文件路径")
RepExcel.WorkBooks(1).sheets(1).range("A1").MergeArea.Cells( 1,1 ).Value = "标题"
thefishwilldie 2006-08-16
  • 打赏
  • 举报
回复
顶~~
thefishwilldie 2006-08-15
  • 打赏
  • 举报
回复
这种有办法吗?
thefishwilldie 2006-08-15
  • 打赏
  • 举报
回复
楼上的,我是用
HANDLE1=OPENCHANNEL("EXCEL","Book1.xls")
SetRemote("R21C8","XXX111",HANDLE1)
//SetRemote("R2C7","YYY",HANDLE1)
CLOSECHANNEL(HANDLE1,HANDLE(testwinchild1child1))
这样写的~
polestarxu 2006-08-15
  • 打赏
  • 举报
回复
cells(1)或者cells(1,1)-----好像都可以。
polestarxu 2006-08-15
  • 打赏
  • 举报
回复
IF xxx.range("xx").MergeCells then
xxx.range("xx").MergeArea.Cells( 1 ).Value = ""
else
xxx.range("xx").Value = ""
end if
polestarxu 2006-08-15
  • 打赏
  • 举报
回复
xxx.range("xx").MergeArea.Cells( 1 ).Value = ""

1,075

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧