寫VBA依序開啟類似的excel檔

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

8^#

發表於 2011-8-26 03:07 | 只看該作者

回復 7# Hsieh

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

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

Wisad.rar (54.98 KB)

wsiad

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2011-8-25 13:39 | 只看該作者

回復 6# wisad
With....End With
除了不必重複使用物件敘述外，您還看到甚麼不同用法?
小弟見識淺薄，還請兄台指導

學海無涯_不恥下問

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

6^#

發表於 2011-8-25 02:20 | 只看該作者

回復 5# Hsieh
Hsieh大謝謝!

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

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

十分感謝!!!

wsiad

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2011-8-24 08:25 | 只看該作者

回復 4# wisad

Sub Eddie_OTP2()
Application.ScreenUpdating = False
fd = ThisWorkbook.Path & "\" '"C:\OTP\"'以相同目錄測試
obs = Array("OTP1.xls", "OTP2.xls") '檔案列表
r = 6 '寫入起始列位
For i = 0 To 1
With Workbooks.Open(fd & obs(i)) '開啟檔案
For j = 13 To 15
fstr = "CH" & ThisWorkbook.ActiveSheet.Cells(3, j)
Set a = .Sheets(1).Rows("7:7").Find(fstr, lookat:=xlWhole) '搜尋
If Not a Is Nothing Then ThisWorkbook.ActiveSheet.Cells(r, j) = Application.Max(a.EntireColumn)
Next
.Close
r = r + 1
End With
Next
End Sub

複製代碼

學海無涯_不恥下問

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

4^#

發表於 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

3^#

發表於 2011-8-24 02:06 | 只看該作者

回復 2# Hsieh

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

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

wsiad

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-8-23 11:00 | 只看該作者

回復 1# wisad

循序開檔試試

Sub nn()
fd = "D:\" '檔案目錄
obs = Array("ABC1.xls", "ABC2.xls", "ABC3.xls")
For Each ob In obs
Workbooks.Open fd & ob
Next
End Sub

複製代碼

第二個問題看不懂描述

學海無涯_不恥下問