VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2004/01/27(Tue) 10:19 |
| 投稿者 | ： ak |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: ShowOpenでのエラーについて |
エラーで止まるのはエラー処理がされていないからです。
下記サンプルを参考にしてください。
Private Sub Command1_Click()
On Local Error GoTo Error_Handler
With CD1 'CD1:コモンダイアログ
.InitDir = "d:\temp"
.FileName = "*.xls"
.Filter = "(*.xls)"
.CancelError = True
.ShowOpen '◎ここでエラーが発生します
End With
Exit Sub
Error_Handler:
If Err.Number = cdlCancel Then
Exit Sub
Else
'通常のエラー処理
End If
Err.Clear
End Sub
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）