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

返回列表下一主題上一主題發帖

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

LeafYeung

中學生 Rank: 2

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

謝謝...

TOP

yanto913

中學生 Rank: 2

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

TOP

LeafYeung

中學生 Rank: 2

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

TOP

yanto913