找回密码
 加入
搜索
查看: 2057|回复: 3

[系统综合] 哪位大神帮我这段简单的操作wps表格的代码,转换为永中office的代码

[复制链接]
发表于 2013-10-24 08:18:53 | 显示全部楼层 |阅读模式
Local $obj = regdll()
Func regdll()
        Local $obj = ObjCreate("ET.Application") ;建立ET类
        
                If Not IsObj($obj) Then
                        MsgBox(0, '', '类建立失败')
                        Exit
                Else
                        $obj.visible = True
                        MsgBox(0, '', '完成类建立!   '& $obj.visible )  ;不知道为啥,visible总是不能为True
                EndIf
        
        Return $obj
EndFunc  

Local $objA1 = $obj.Workbooks.open(@DesktopDir &"\123.xls") ;打开工作薄,需要在桌面先建立123.xls文件。

Local $var = $objA1.Sheets.Item(1) ;获取第一个工作表的名字
MsgBox (1,"123", "第一个工作簿的名称为:" & $var.name)
$objA1.worksheets($var).activate() ;激活工作表
$var.Range("A1").Value = 3.141562  ;写入数据到工作表的A1
Local $varA1 = $var.Range("A1").Value()  ;读取A1单元格数据
MsgBox (1,"123", "第一个单元格的值:" & $varA1)

$objA1.save() ;保存工作薄

$obj.Workbooks.close() ;关闭所有工作薄
 楼主| 发表于 2013-11-13 20:40:08 | 显示全部楼层
顶。。。顶。。。顶。。。
发表于 2013-12-4 10:03:54 | 显示全部楼层
学习一下!
发表于 2013-12-5 15:28:37 | 显示全部楼层
顶。。。。。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-15 10:05 , Processed in 0.074115 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表