Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
19206 / 76807 ←次へ　｜　前へ→
【63037】複数ファイルの選択について
質問  ミン  - 09/10/3(土) 8:49 -
引用なし
パスワード
   はじめて質問させて頂きます。
複数ファイルの選択についてですが、Application.GetOpenFilename(MultiSelect:=True)を使用すると、確かに複数のファイルを選択し
て開くことができますが、開くファイル数を制限した意場合はどうす
ればよろしいでしょうか？？

２つ以上のファイルは開けないようにするマクロを作成したいのです
が以下のコードでは、うまくいきません・・・・又、エラー処理など
は最初に書くべきではないのでしょうか？ロジックなども含めてよろ
しくお願いします。。

Sub file_find_2()
　　On Error GoTo G1
　　myfile = Application.GetOpenFilename(MultiSelect:=True)
　　For Each mmfile In myfile
　　　　If mmfile >= 3 Then
　　　　　　MsgBox "ファイル選択は２つまで"
　　　　End If
　　　　Workbooks.Open mmfile
　　Next
　　Exit Sub
G1:
　　MsgBox "キャンセル"
　　
End Sub
1 hits
▼ 【63037】複数ファイルの選択について ミン 09/10/3(土) 8:49 質問≪
【63038】Re:複数ファイルの選択について マルチセレクト 09/10/3(土) 9:27 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
19206 / 76807 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free