Ｐａｇｅ 641 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼任意のフォルダ内にある複数のファイルをオープン ntomo 03/1/28(火) 16:38 ┗Re:任意のフォルダ内にある複数のファイルをオープン JuJu 03/1/28(火) 17:00 ┗任意のフォルダ内にある複数のファイルをオープン ntomo 03/1/29(水) 8:46 ┗結局・・・・ ntomo 03/1/30(木) 8:53 ─────────────────────────────────────── ■題名 ： 任意のフォルダ内にある複数のファイルをオープン ■名前 ： ntomo ■日付 ： 03/1/28(火) 16:38 -------------------------------------------------------------------------
| あるフォルダに存在する複数のファイルを開きたいのですが まとめて選択できるようにしたいのですが何かいい方法はあるでしょうか・・ ちなみに指定するフォルダはマクロ実行毎に変わります。 また、フォルダ内のファイルの数も毎回異なり、選択するファイルの数も未定です なにかいい方法があったらよろしくお願いします |
| ntomoさん、こんにちはぁ >あるフォルダに存在する複数のファイルを開きたいのですが >まとめて選択できるようにしたいのですが何かいい方法はあるでしょうか・・ [#3030]同一フォルダ内のファイルを順に見ていく方法 が参考になると思います。 閉じる処理が不要なら、Close の部分を削除すれば可能です。 ではではぁ |
| ▼JuJu さん： >[#3030]同一フォルダ内のファイルを順に見ていく方法 >が参考になると思います。 > >閉じる処理が不要なら、Close の部分を削除すれば可能です。 ちょっとやってみますありがとうございました＾＾ |
| GetOpenFilenameで複数選択ができたのでそっちを使ってしまいました・・・。 こんな感じです Sub ファイル複数選択() Dim vFileName As Variant Dim sDefaultPath As String 'デフォルトパスの設定（必要に応じて） sDefaultPath = "C:\" ChDrive sDefaultPath ChDir sDefaultPath 'Excelファイル名の入力（単一選択） vFileName = Application.GetOpenFilename( _ fileFilter:=StrConv("Microsoft Excel ファイル (*.x*),*.x*," & _ "すべてのファイル (*.*),*.*", vbNarrow), filterIndex:=1, _ MultiSelect:=True) 'キャンセルされたかチェック If VarType(vFileName) = False Then MsgBox "キャンセルされました。" Exit Sub End If Dim i As Integer Dim MSG As String For i = 1 To UBound(vFileName) MSG = MSG & i & "番目のファイル名：" & vFileName(i) & vbCrLf Next i MsgBox "ファイル数：" & UBound(vFileName) & "個 が選択されました。" & vbCrLf & vbCrLf & MSG End Sub |