tcpuuu 发表于 2012-2-20 15:56:49

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

$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 发表于 2012-2-20 19:39:11

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

tcpuuu 发表于 2012-2-20 19:47:53

謝謝 kevinch

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

kevinch 发表于 2012-2-20 20:42:07

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

tcpuuu 发表于 2012-2-20 22:13:33

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

afan 发表于 2012-2-20 22:43:00

回复 5# tcpuuu


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

tcpuuu 发表于 2012-2-20 23:56:56

本帖最后由 tcpuuu 于 2012-2-21 00:00 编辑

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

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

tcpuuu 发表于 2012-2-22 14:59:44

本帖最后由 tcpuuu 于 2012-2-22 15:01 编辑

遇上問題

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 发表于 2012-2-22 15:11:39

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

tcpuuu 发表于 2012-2-22 15:29:07

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

kevinch 发表于 2012-2-22 15:39:58

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

kevinch 发表于 2012-2-22 17:02:59

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

tcpuuu 发表于 2012-2-22 18:39:22

本帖最后由 tcpuuu 于 2012-2-22 21:51 编辑

{:face (340):}
我不會 看不懂 拜託佔用你一些時間 幫忙我解決

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

jtw 发表于 2012-2-22 19:47:12

学习了。。。。。。。。。。。
页: [1]
查看完整版本: 求助 獲取Excel 儲存格的數據(不加<Excel.au3>)