寫VBA依序開啟類似的excel檔

帖子: 5
主題: 1
精華: 0
積分: 11
點名: 0
作業系統: Win 7
軟體版本: Office2003
閱讀權限: 10
性別: 男
來自: Taiwan/Taipei
註冊時間: 2011-8-22
最後登錄: 2012-4-24

2^#

發表於 2011-8-24 02:06 | 顯示全部帖子

回復 2# Hsieh

首先謝謝Hsieh大的幫忙, 回答一可以用

Wisad.rar (284.22 KB)
至於問題二,麻煩請看壓縮檔內GetData.xls module-housing裡的註解描述,謝謝

wsiad

帖子: 5
主題: 1
精華: 0
積分: 11
點名: 0
作業系統: Win 7
軟體版本: Office2003
閱讀權限: 10
性別: 男
來自: Taiwan/Taipei
註冊時間: 2011-8-22
最後登錄: 2012-4-24

3^#

發表於 2011-8-24 02:22 | 顯示全部帖子

Hsieh大
其實只要GetData.xls的Cell(3,13)儲存格內容能夠被1.xls的Rows("7:7")欄搜尋到,我的問題就解決一半了,我就比較有把握剩下的可以自己來,感謝你的幫忙喔!!!

wsiad

帖子: 5
主題: 1
精華: 0
積分: 11
點名: 0
作業系統: Win 7
軟體版本: Office2003
閱讀權限: 10
性別: 男
來自: Taiwan/Taipei
註冊時間: 2011-8-22
最後登錄: 2012-4-24

4^#

發表於 2011-8-25 02:20 | 顯示全部帖子

回復 5# Hsieh
Hsieh大謝謝!

想請問為什麼13行的".Close"若改成"Close",雖然還是可以取值但原始檔卻沒辦法關掉呢?
Close不就是關掉所有開啟的活頁簿,在這裡是把原始檔關掉?!

另外,可以再請教With....End with的用法嗎?
我一直不是很清楚它的功用或用法,只知道在With...End with區塊內的屬性不用再打一次物件名稱
但看範例或是其他人的好像還有其他用途

十分感謝!!!

wsiad

帖子: 5
主題: 1
精華: 0
積分: 11
點名: 0
作業系統: Win 7
軟體版本: Office2003
閱讀權限: 10
性別: 男
來自: Taiwan/Taipei
註冊時間: 2011-8-22
最後登錄: 2012-4-24

5^#

發表於 2011-8-26 03:07 | 顯示全部帖子

回復 7# Hsieh

是我想錯了,我以為with end with 還有其他用法,因為不熟的關係
今天再研究發現它就只是省略物件名稱方便,就像.Close一樣
sorry

另外,我還想請Hsieh大你再幫我寫兩個判斷式好嗎?在我module1裡面我有註解
再麻煩你了,我的巨集就剩這兩個地方在做一下防呆就解決了
感謝!!!

Wisad.rar (54.98 KB)

wsiad