换新版（3.14.2）后问题【已解决】
本帖最后由 duxing 于 2018-5-17 09:54 编辑#include <MsgBoxConstants.au3>
Local $sFileName ="E:\zj\erp\cx.csv"
$xls = ObjGet(@ScriptDir & "\cx.csv")
If NOT IsObj($xls) Then
MsgBox(0, "错误", "ObjGet(\cx.csv不是一个对象.")
Else
EndIf
With $xls.activesheet
$erp_cx = .cells(1, 1).resize(1000, 30).value
$erp_cx = $xls.parent.application.transpose($erp_cx)
EndWith
换了3.14.2版本，以前编好的脚本运行问题很多啊，上面这段，路径没问题，EXCEL文件也没问题，为啥用了新版本，IsObj($xls)就是无法正常通过？
还有：VB脚本以前一些内部变量都不需要先声明，现在都要先声明全局变量
Global $xlEdgeTop
Global $xlContinuous=0
Global $xlEdgeBottom=0
Global $xlEdgeLeft=0
GLOBAL $xlEdgeRight=0
Global $xlInsideHorizontal=0
GLOBAL $xlInsideVertical=0
With $xls.ActiveSheet.Range($az)
.Borders($xlEdgeTop).LineStyle = $xlContinuous ;上边线
.Borders($xlEdgeTop).ColorIndex = 0 ;上边线颜色
.Borders($xlEdgeBottom).LineStyle = $xlContinuous ;下边线
.Borders($xlEdgeBottom).ColorIndex = 0 ;下边线颜色
.Borders($xlEdgeLeft).LineStyle = $xlContinuous ;左边线
.Borders($xlEdgeLeft).ColorIndex = 0 ;左边线颜色
.Borders($xlEdgeRight).LineStyle = $xlContinuous ;右边线
.Borders($xlEdgeRight).ColorIndex = 0 ;右边线颜色
.Borders($xlInsideHorizontal).LineStyle = $xlContinuous ;内横线
.Borders($xlInsideHorizontal).ColorIndex = 0 ;内横线颜色
.Borders($xlInsideVertical).LineStyle = $xlContinuous ;内竖线
.Borders($xlInsideVertical).ColorIndex = 0 ;内竖线颜色
EndWith
有更好的解决办法么?
以前用的一直是3.7.15版本的，有些IE9方面的问题，不得不升
第一个原因估计是我安装好几个版本有哪里冲突上了，全卸了重装就正常了
第二个在老版EXCEL.AU3里有声明，复制出来加脚本里一切正常。
论坛里那个3.14.4 问题好多，试了多次，完全放弃。
3.14.2（5）目前看起来还不错 用3.3.13.x版本，14.x版本对象都有问题。 我一直用 3.12，曾经升级过一次，发现以前写的代码运行出错，又没水平找原因，就又返回 3.12 了。目前坚守 3.12。能用就行了 第2个问题我找到原因了，老版里EXCEL.AU3里有相应的变量声明，弄出来就正常了。
新版毕竟能解决IE9一些点击无效问题，EXCEL功能也加强了，这2样是我主要用到的地方，我还是尽量适应吧 我一直追新，且AU3作品比较少，功能变化对我来说没影响。
页:
[1]