將多個EXCEL 匯到一個EXCEL的問題 - Excel程式區

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

1^# 跳轉到 »

發表於 2012-4-14 09:05 | 顯示全部帖子

回復 1# yanto913

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

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

2^#

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

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

3^#

發表於 2012-4-14 10:30 | 顯示全部帖子

回復 5# yanto913

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

謝謝...

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

4^#

發表於 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
煩請教導~~謝謝

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

5^#

發表於 2012-4-14 15:21 | 顯示全部帖子

回復 10# LeafYeung

明白了.....謝謝 Hsieh 的指導