社区
PowerBuilder
帖子详情
在PB中怎样调用VBA宏代码?
watyh
2003-08-18 03:53:59
在PB中怎样调用VBA宏代码?
...全文
164
8
打赏
收藏
在PB中怎样调用VBA宏代码?
在PB中怎样调用VBA宏代码?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
rogery
2003-08-19
打赏
举报
回复
?????
我只有望楼兴叹的份了………
runsoft
2003-08-19
打赏
举报
回复
ole_object.application.workbooks.open(book1.xls)
ole_object.application.activeworkbook.worksheets[5]
watyh
2003-08-19
打赏
举报
回复
救救我,要不我明天完了!!!!!!!!!
watyh
2003-08-19
打赏
举报
回复
哪位帮帮忙,要不我明天死定了,
我现在是万事具备,就差这一块了,
谁给我送送东风?
等待............................
watyh
2003-08-19
打赏
举报
回复
比如说,我已经在BOOK1.XLS中录制了一个宏test,
我如何在PB中执行此test过程?
ole_object.Application.run(path + '\book1.xls!test')
执行到此语句时出错,
出错内容:
调用外部对象函数错误!
谁能帮我解决???
可以加到100分!!!!!!!!
liuxhrabbit
2003-08-19
打赏
举报
回复
Integer li_target
OLEObject ole_object
ole_object = Create oleobject //建立OLE对象
IF ole_object.ConnectToNewObject("Excel.Application") <> 0 THEN //连接到Ole
MessageBox('OLE错误','无法建立与Word的连接!')
Else
ole_object.Application.Workbooks.Add() //增加空白工作表
ole_object.Visible = 1
ls_range='A1:B3'
oo=ole_object.Application.WorkSheets(1).Range(ls_range)
oo.Merge()
oo.Value=value
//可以加入任意的EXCEL函数或属性赋值
Ole_Object.DisConnectObject()
End If
Destroy Ole_Object
watyh
2003-08-18
打赏
举报
回复
不懂
dingzhaofeng
2003-08-18
打赏
举报
回复
mark!
VBA
代码为ppt添加页码进度条
用
VBA
实现在 PPT 最下边加进度条,方便查看进行到总长度的多少,根据选择的页面不同,进度条的长度也不同。提示:进度条只是体现已播放的幻灯片张数,不是用于计时。进度条的制作添加方法如下:打开 PPT,按 Alt+F11,打开VBE编辑器,插入——模块,并复制下面的代码,最后单击工具栏的“运行”按钮。Sub AddProgressBar() On Error Resume Next
日常使用------利用
VbA
对Excel
中
的多个sheet工作表排序
在excel工作簿
中
对有多个工作表,由于个人需要,对每个工作表
中
某一值的比较大小后,然后进行排序。 由于
vba
中
字典对应值比较难以排序,所以就分为两步 第一步是提取工作表名和对应字段写到工作表
中
: Sub getname() Dim sheet As Worksheet Dim k As Integer k = 17 For Each sheet In Wo...
PB
对EXCEL的操作
Ole_object.Workbooks.add//新建一个Excel文件 Ole_object.Workbooks.Open( "FileName ")//打开一个已存在Excel文件 Ole_object.ActiveWorkBook.Sheets( "SheetName ").Select//选择文件
中
一个工作表 Ole_object.Application.Run( "MacroName
这四个才是真正的低代码平台
很多人不明白低代码平台怎么莫名其妙就火了。当然,很多人也不明白为啥微软要并购Github。我先卖个关子。我最推崇的低代码平台一共四个:微软Power Platform:开发语言的老玩家搞的...
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,
PowerBuilder
1,075
社区成员
66,437
社区内容
发帖
与我相关
我的任务
PowerBuilder
PowerBuilder 相关问题讨论
复制链接
扫一扫
分享
社区描述
PowerBuilder 相关问题讨论
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章