打开Excel，并读取表格出错，何因？[已解决]

blue_dvd

打开一个Excel，并读取表格出错，何因？

#include <File.au3>
#include <Excel.au3>
#include <Array.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

;打开一个选文件对话框；
Local $sFilePath1=FileOpenDialog("选择导入电子表格文件", @ScriptDir&"", "Microsoft Excel 工作薄 (*.xls)", 1+2+4)

Local $oExcel = ObjGet($sFilePath1, "Excel.Application") 

If @error Then
    MsgBox(0, "警告", "Error Getting an active Excel Object. Error code: " & Hex(@error, 8))
    Exit
EndIf

;读取Excel表格到数组

Local $aArray =_ExcelReadSheetToArray($oExcel)

If @error Then
    MsgBox(0, "警告", "Error Getting an active Excel Object. Error code: " & Hex(@error, 8))
    Exit
EndIf

_ArrayDisplay($aArray, "使用默认参数")  ;检测数组是否正确。
 

错误如下：
H:\autoit3\Include\Excel.au3 (787) : ==> ???????????("Object").:
Local $sLastCell = $oExcel.Application.Selection.SpecialCells($xlCellTypeLastCell).Address(True, True, $xlR1C1)
Local $sLastCell = $oExcel.Application.Selection^ ERROR
->12:23:56 AutoIT3.exe 完成:[CODE]:1
+>12:23:57 ACNWrapper 完成..
>退出代码: 1        运行时间: 10.908 秒
解决方法在11楼！

kevinch

可能你的表格打开后选中的是个图形或者其他什么，而不是单元格，UDF中用的是selection，这个是excel当前选中项，而只有选中单元格区域的时候，后面的specialcells才有效，你可以自己打开excel文件检查一下是不是这个原因

blue_dvd

回复 2# kevinch
把

Local $oExcel = ObjGet($sFilePath1, "Excel.Application") 

换成

$oExcel = _ExcelBookOpen($sFilePath1)

就能运行了，但是却打开了Excel，能否不打开excel，直接ListView显示呢？

blue_dvd

头都爆了，不知道何因？

kevinch

Local $oExcel = ObjGet($sFilePath1) 

objget不用后面的参数试下

blue_dvd

回复 5# kevinch
不用后面的参数
Local $oExcel = ObjGet($sFilePath1)
还是有错
H:\autoit3\Include\Excel.au3 (787) : ==> ???????????("Object").:
Local $sLastCell = $oExcel.Application.Selection.SpecialCells($xlCellTypeLastCell).Address(True, True, $xlR1C1)
Local $sLastCell = $oExcel.Application.Selection^ ERROR
->17:57:17 AutoIT3.exe 完成:[CODE]:1
+>17:57:19 ACNWrapper 完成..
>退出代码: 1        运行时间: 11.893 秒

kevinch

同一个问题出的错，不如楼主把excel文件共享一下看看啦

blue_dvd

回复 7# kevinch

blue_dvd

请kevinch老师帮忙看看怎么回事？打开总出错！

kevinch

把

Local $aArray =_ExcelReadSheetToArray($oExcel)

换成

Local $aArray=$oExcel.activesheet.usedrange.value

就可以了，是因为UDF中的判断方式不太好造成的错误，应该算是个bug吧，其实可以这样直接读取已使用区域的值来获取一个二维数组，但是相对于excel的工作表来讲，得到的行列是反的，这点需要注意

或者用下面这样的方法转置一下

Local $aArray=$oExcel.application.transpose($oExcel.activesheet.usedrange.value)

kevinch

Func _ExcelReadSheetToArray($oExcel, $iStartRow = 1, $iStartColumn = 1, $iRowCnt = 0, $iColCnt = 0, $iColShift = True)
        Local $avRET[1][1]
        
        If Not IsObj($oExcel) Then Return SetError(1, 0, 0)
        If $iStartRow < 1 Then Return SetError(2, 0, 0)
        If $iStartColumn < 1 Then Return SetError(2, 1, 0)
        If $iRowCnt < 0 Then Return SetError(3, 0, 0)
        If $iColCnt < 0 Then Return SetError(3, 1, 0)

        With $oExcel
                $lastcell=.activesheet.cells.SpecialCells($xlCellTypeLastCell)

                If $iStartRow>$lastcell.row Then Return SetError(2, 0, 0)
                If $iStartColumn>$lastcell.column Then Return SetError(2, 1, 0)
                If $iStartRow + $iRowCnt-1 > $lastcell.row Then Return SetError(3, 0, 0)
                If $iStartColumn + $iColCnt-1 > $lastcell.column Then Return SetError(3, 1, 0)
                
                If $iRowCnt=0 Then $iRowCnt=$lastcell.row-$iStartRow+1
                If $iColCnt=0 Then $iColCnt=$lastcell.column-$iStartColumn+1
                
                If .activesheet.cells($iStartRow,$iStartColumn).resize($iRowCnt,$iColCnt).cells.count=1 Then
                        $avRET[0][0]=.activesheet.cells($iStartRow,$iStartColumn).value
                Else
                        $avRET=.activesheet.cells($iStartRow,$iStartColumn).resize($iRowCnt,$iColCnt).value
                        If $iColShift Then $avRET=$oExcel.application.transpose($avRET)
                EndIf
        EndWith
        Return $avRET
EndFunc

改一下那个UDF函数

blue_dvd

回复 11# kevinch
还是报错！是不是用法要改？

Local $aArray =_ExcelReadSheetToArray($oExcel)

我修改了UDF函数为

Func _ExcelReadSheetToArray($oExcel, $iStartRow = 1, $iStartColumn = 1, $iRowCnt = 0, $iColCnt = 0, $iColShift = True)
        Local $avRET[1][1]
        
        If Not IsObj($oExcel) Then Return SetError(1, 0, 0)
        If $iStartRow < 1 Then Return SetError(2, 0, 0)
        If $iStartColumn < 1 Then Return SetError(2, 1, 0)
        If $iRowCnt < 0 Then Return SetError(3, 0, 0)
        If $iColCnt < 0 Then Return SetError(3, 1, 0)

        With $oExcel
                $lastcell=.activesheet.cells.SpecialCells($xlCellTypeLastCell)

                If $iStartRow>$lastcell.row Then Return SetError(2, 0, 0)
                If $iStartColumn>$lastcell.column Then Return SetError(2, 1, 0)
                If $iStartRow + $iRowCnt-1 > $lastcell.row Then Return SetError(3, 0, 0)
                If $iStartColumn + $iColCnt-1 > $lastcell.column Then Return SetError(3, 1, 0)
                
                If $iRowCnt=0 Then $iRowCnt=$lastcell.row-$iStartRow+1
                If $iColCnt=0 Then $iColCnt=$lastcell.column-$iStartColumn+1
                
                If .activesheet.cells($iStartRow,$iStartColumn).resize($iRowCnt,$iColCnt).cells.count=1 Then
                        $avRET[0][0]=.activesheet.cells($iStartRow,$iStartColumn).value
                Else
                        $avRET=.activesheet.cells($iStartRow,$iStartColumn).resize($iRowCnt,$iColCnt).value
                        If $iColShift Then $avRET=$oExcel.application.transpose($avRET)
                EndIf
        EndWith
        Return $avRET
EndFunc

kevinch

那就奇怪了，我这里已经正常了的

lxwlxwayy

学习一下也，

blue_dvd

回复 13# kevinch
确实是可以了，多谢了！但是原来在数组$aArray[0][0]和$aArray[0][1]处放有行数和列数，用了你改的函数后就没有了，能恢复吗？