返回列表 上一主題 發帖

寫VBA依序開啟類似的excel檔

wisad

帖子
5 
主題
1 
精華
0 
積分
11 
點名
0  
作業系統
Win 7 
軟體版本
Office2003 
閱讀權限
10 
性別
男 
來自
Taiwan/Taipei 
註冊時間
2011-8-22 
最後登錄
2012-4-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-8-23 02:28 | 只看該作者

寫VBA依序開啟類似的excel檔

我想寫一個VBA依序開啟檔名為ABC1.xls,  ABC2.xls,  ABC3.xls....的excel檔
我試過用open外加迴圈但不行,有error發生
想請板上各位大大幫忙,感激不盡

另外,我想在有VBA的excel檔某三個儲存格寫113,115,18這三個數字,然後這三個數字會對應到打開的excel檔,如ABC1.xls
然後進行搜尋,當找到這三個數字後,在它們所在的column進行篩選最大值,也想請問版上大大有什麼好意見嗎?
謝謝!!!
收藏 分享
wsiad

wisad

帖子
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

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 2011-8-25 13:39 | 只看該作者
回復 6# wisad
With....End With
除了不必重複使用物件敘述外，您還看到甚麼不同用法?
小弟見識淺薄，還請兄台指導
學海無涯_不恥下問

TOP

wisad

帖子
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

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2011-8-24 08:25 | 只看該作者
回復 4# wisad
  1. Sub Eddie_OTP2()
  2.     Application.ScreenUpdating = False
  3.     fd = ThisWorkbook.Path & "\" '"C:\OTP\"'以相同目錄測試
  4.     obs = Array("OTP1.xls", "OTP2.xls") '檔案列表   
  5.     r = 6 '寫入起始列位
  6.         For i = 0 To 1
  7.         With Workbooks.Open(fd & obs(i)) '開啟檔案
  8.            For j = 13 To 15
  9.               fstr = "CH" & ThisWorkbook.ActiveSheet.Cells(3, j)
  10.                  Set a = .Sheets(1).Rows("7:7").Find(fstr, lookat:=xlWhole) '搜尋
  11.                  If Not a Is Nothing Then ThisWorkbook.ActiveSheet.Cells(r, j) = Application.Max(a.EntireColumn)
  12.            Next
  13.         .Close
  14.         r = r + 1
  15.         End With
  16.         Next
  17. End Sub
複製代碼
學海無涯_不恥下問

TOP

wisad

帖子
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

TOP

wisad

帖子
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

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2011-8-23 11:00 | 只看該作者
回復 1# wisad


    循序開檔試試
  1. Sub nn()
  2. fd = "D:\" '檔案目錄
  3. obs = Array("ABC1.xls", "ABC2.xls", "ABC3.xls")
  4. For Each ob In obs
  5.    Workbooks.Open fd & ob
  6. Next
  7. End Sub
複製代碼
第二個問題看不懂描述
學海無涯_不恥下問

TOP

        靜思自在 : 人生沒有所有權，只有生命的使用權。
返回列表 上一主題