求助 獲取Excel 儲存格的數據(不加<Excel.au3>)

tcpuuu

$o_Excel=ObjCreate("excel.application")
$o_Excel.visible=True
$o_Workbook=$o_Excel.workbooks.add
with $o_Workbook.activesheet
        for $i_N=1 to 5
                .cells(1,$i_N)=$i_N
        Next
        msgbox(0,"",.range("a1").value & @TAB &.range("c1").value)
EndWith
================================================
以上是 開新的Excel.檔  自動填入12345 獲取 a1 c1的數據(前面不用加#include <Excel.au3>)

要改成 開啟 @DesktopDir & "\01.xls" (開現有的Excel.檔) 獲取a1 c1的數據 這要如何改?

kevinch

$wb=objget(@DesktopDir & "\01.xls")
with $wb.activesheet
  msgbox(0,"",.range("a1").value & @TAB &.range("c1").value)
  .parent.close(false)
endwith
$wb=0

这样试下

tcpuuu

謝謝 kevinch

但是出現以下錯誤,拜託幫忙解決   謝謝啦!

kevinch

你有没有那个文件在桌面上？

tcpuuu

嗯嗯 ! 我真的沒有01.xls  文件   只有 book01.xls
謝謝 啦!
---------------------------------------------------------初步用看看 很不錯
我之前
#include <Excel.au3>
local $NOBER[17]=["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q"]
For $i = 0 To 16
IF $Parameter[5] = $NOBER[$i] THEN $Parameter[5] = $i+1
Next
local $NOBER[17]=["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q"]
For $i = 0 To 16
IF $Parameter[6] = $NOBER[$i] THEN $Parameter[6] = $i+1
Next
local $NOBER[17]=["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q"]
For $i = 0 To 16
IF $Parameter[7] = $NOBER[$i] THEN $Parameter[7] = $i+1
Next
local $NOBER[17]=["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q"]
For $i = 0 To 16
IF $Parameter[8] = $NOBER[$i] THEN $Parameter[8] = $i+1
GUICtrlSetData($EXL[1],Round(_ExcelReadCell(_ExcelBookAttach($Parameter[21],"FileName"),$Parameter[14],$Parameter[6]),3));;;;;;;;;;;;;;;;;;;;;;$excel1
GUICtrlSetData($EXL[2],Round(_ExcelReadCell(_ExcelBookAttach($Parameter[21],"FileName"),$Parameter[15],$Parameter[7]),3));;;;;;;;;;;;;;;;;;;;;;$excel2
GUICtrlSetData($EXL[3],Round(_ExcelReadCell(_ExcelBookAttach($Parameter[21],"FileName"),$Parameter[16],$Parameter[8]),3));;;;;;;;;;;;;;;;;;;;;;$excel3
GUICtrlSetData($EXL[4],Round(_ExcelReadCell(_ExcelBookAttach($Parameter[21],"FileName"),$Parameter[17],$Parameter[9]),3));;;;;;;;;;;;;;;;;;;;;;$excel4
--------------------------------------------------------------------------
這麼長 還要A轉成1   B轉成2..........
還有重復開啟的問題 還有說 <EXCEL.AU3> 第635行錯誤;;;;;;;;;XZZZX
你這個 真好  
希望以後  若遇 excel問題   有請kevinch

afan

回复 5# tcpuuu


    你似乎不愿给别人加分啊，加分是不会扣自己的，是系统配发的。

tcpuuu

嗯嗯!  我要加分   但不知怎 加?
抱歉!   SORRY 我會儘快看看

他寫這個 真是好讚  直接指定 A2 C2 F3  又不用  加 #<excel.au3>

tcpuuu

遇上問題

For $i=1 To 100

$wb=objget(@ScriptDir & "\book1.xls")
with $wb.activesheet
  msgbox(0,"",.range("A2").value & @TAB &.range("F2").value & @TAB &.range("D2").value,5)
  endwith
$wb=0

next
==================================================================

請問可以加個 如果請求動作失敗  就放棄請求  繼續循環請求嗎?
不要因請求失敗就關閉結束

kevinch

先判断下isobj然后再进行下一步操作试下

tcpuuu

我不會怎麼判斷?拜託一下
A2那一格 是 抓網路上的數據 有可能 1秒變動好幾次
要去抓A2這1格 有時 會沒抓到 出現錯誤

kevinch

我也比较遗憾，au3没有类似vb的on error resume next类似的功能，不过好像可以捕捉到出错，然后执行一些操作

kevinch

http://www.autoitx.com/thread-29347-1-1.html
10楼有个捕获错误的例子，是我照帮助里改的，你可以参考一下

tcpuuu

我不會 看不懂 拜託佔用你一些時間 幫忙我解決

等待高手出現相助
高手在那兒ㄚ?

jtw

学习了。。。。。。。。。。。