[發問] 將多個EXCEL 匯到一個EXCEL的問題

帖子: 7
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: XP
軟體版本: 03
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2012-4-6
最後登錄: 2013-7-28

2^#

發表於 2012-4-14 09:05 | 只看該作者

回復 1# yanto913

可否把 on error goto 改成 on error resume next 試試看?

yanto913

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

3^#

發表於 2012-4-14 09:30 | 只看該作者

回復 2# LeafYeung

抱歉,我試不出來耶!!
on error resume next
應該放在哪裡呢??

YOYO

帖子: 7
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: XP
軟體版本: 03
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2012-4-6
最後登錄: 2013-7-28

4^#

發表於 2012-4-14 09:41 | 只看該作者

回復 3# yanto913

我不能下載你的 file~~ 這裡有個 On Error 用法的例子...你可以看看.....(ref. " followme excel 2007 vba")

Sub On_Error_用法1()
Dim StBase As String, myInc As Integer
Dim mySheet As Worksheet

Set mySheet = Worksheets.Add
StBase = "測試"
myInc = 1
' On Error Resume Next
mySheet.Name = StBase & myInc
Do Until Err.Number = 0
      Err.Clear
      myInc = myInc + 1
      mySheet.Name = StBase & myInc
Loop
End Sub

yanto913

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

5^#

發表於 2012-4-14 10:20 | 只看該作者

回復 4# LeafYeung

on error resume next 剛剛用了一下,可以用
但用了變成全部忽略
但我是比較想要如果錯誤跳到某行執行所以才想用on error go to
但是變成執行第二次錯誤就無法跳過錯誤了

YOYO

帖子: 7
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: XP
軟體版本: 03
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2012-4-6
最後登錄: 2013-7-28

6^#

發表於 2012-4-14 10:30 | 只看該作者

回復 5# yanto913

可否 email 給我看看... [email protected]

謝謝...

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 2012-4-14 10:41 | 只看該作者

回復 1# yanto913

Sub test()
Dim sht()
Application.ScreenUpdating = False '關閉螢幕更新
fd = ThisWorkbook.Path & "\" '檔案所在目錄
fs = fd & "*.xls"
fb = Dir(fs)
Do Until fb = "" '所有xls檔案迴圈
If fb <> ThisWorkbook.Name Then
With Workbooks.Open(fd & fb)
Set sh = .Sheets(1)
ReDim Preserve sht(s) '記住所有工作表名稱
sht(s) = sh.Name
s = s + 1
sh.Copy after:=ThisWorkbook.Sheets(1) '複製工作表
.Close 0 '關閉檔案
End With
End If
fb = Dir
Loop
Sheets(sht).Move '移動所有複製的工作表到新檔案
Application.ScreenUpdating = True '恢復螢幕更新
End Su

複製代碼

學海無涯_不恥下問

yanto913

帖子: 116
主題: 29
精華: 0
積分: 232
點名: 0
作業系統: winXp
軟體版本: office 2003
閱讀權限: 20
性別: 女
來自: 台灣台中市
註冊時間: 2010-9-6
最後登錄: 2023-7-11

8^#

發表於 2012-4-14 12:23 | 只看該作者

回復 7# Hsieh

謝謝Hsieh 版主

請問如果我只想要把sheets("all")中A1~A5為檔名去搜尋xls
而且搜尋到的在sheets("all")中B1~B5標示"OK"該如何做呢?

YOYO

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

9^#

發表於 2012-4-14 12:35 | 只看該作者

回復 8# yanto913

看你A1:A5的檔名樣式為何?是否包含資料夾目錄或副檔名
不同資料有不同處理方式，以樓上的程式碼去加判斷式應該不是很難的

學海無涯_不恥下問

帖子: 7
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: XP
軟體版本: 03
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2012-4-6
最後登錄: 2013-7-28

10^#

發表於 2012-4-14 13:54 | 只看該作者

回復 9# Hsieh

Hsieh 版主
請問以下程序在執行第二次 on error goto 時為何會出現 error 呢??

Sub test1()
For i = 1 To 10
On Error GoTo AAA '錯誤時跳至
B = i / 0 '製造錯誤
AAA:
On Error GoTo 0
Next
End Sub

當 i=1時就可行,但當i=2時就 error
煩請教導~~謝謝