- 帖子
- 2808
- 主題
- 10
- 精華
- 0
- 積分
- 2864
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-5-19
|
回復 2# lpk187
'↓由儲存格來指定工作表〔名稱〕
SHN =Range("A1")
'↓〔忽略〕程式錯誤，〔繼續〕往下執行後面的指令
On Error Resume Next
'↓設定 xS 給〔指定工作表〕，如果該工作表不存在，會產生〔錯誤並中斷〕在這一行，
Set xS = Sheets(SHN) '因為有上一句，程式不中斷而往下執行
'↓〔恢復〕程式錯誤處理，亦即 On Error Resume Next 到這行以後就〔失效〕，
' 其後程式若有錯誤，一樣會產生〔中斷〕，不然下方程式有錯誤就無法發現！
On Error GoTo 0
'↓所以，還是要加這行以〔提醒〕使用者，並〔跳離〕程式
If xS Is Nothing Then MsgBox "工作表不存在": Exit Sub
'↓上方都沒問題，才會執行以下的程式碼，以避免無法預知的錯誤，造成資料錯誤
With xS 'xS=Sheets("A公司")
...
End With |
|
發表於 2015-10-3 11:17
| 