本帖最后由 kingdsq 于 2016-7-2 17:11 编辑
这一段程序中,必须加上“#AutoIt3Wrapper_UseX64=n”,否则可以操作SysTreeView32控件的选择,但取不出节点的文字,加上本句后,顺利解决。#Region ;**** 编译指令由 AutoIt3Wrapper 选项编译窗口创建 ****
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** 编译指令由 AutoIt3Wrapper 选项编译窗口创建 ****
$my = _oper_excel($opfile, 12, 16, "", 0)
MsgBox(0, "", $my)
Func _readcert();从民生U宝管理工具中读出证书号
$nzhenshu_num = ControlTreeView("U宝-民生银行U宝管理工具", "", "SysTreeView321", "GetItemCount", "");获取顶部开始的所有子项目数
$cert_hao = ""
If $nzhenshu_num = 0 Then Return $cert_hao
For $i = 0 To $nzhenshu_num - 1
$cert_hao = $cert_hao & ControlTreeView("U宝-民生银行U宝管理工具", "", "SysTreeView321", "GetText", "#" & $i & "|#0") & "|"
Next
$cert_hao = StringLeft($cert_hao, StringLen($cert_hao) - 1)
Return $cert_hao
EndFunc ;==>_readcert
但上段程序中加上“#AutoIt3Wrapper_UseX64=n”后,下段原本运行正常的EXCEL 控
件程序中$of_excel.cells($oprow, $opcol + $of_i - 1).value = "中国"这句报出错,但只要把这条预编译指令去掉,EXCEL 控件读写都正常了:$opfile = "z:\1.xlsx"
Local $of_excel = ObjCreate("Excel.application") ;VBS中是set oExcel = CreateObject("Excel.application")
$of_excel.workbooks.open($opfile)
$of_excel.visible = False
$of_excel.cells($oprow, $opcol + $of_i - 1).value = "中国"
$of_excel.ActiveWorkbook.saved = True
$of_excel.Workbooks.Close
$of_excel.quit
象这种有的控件需要加,有的控件加上后不能运行,这种冲突怎么解决呢?
多谢大家,换一种访问EXCEL单元格的方法问题已经解决了!但在改帖子的主题中改不成“已解决”呢! |