Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

48171 / 76732

←次へ　｜　前へ→


	【33498】Re:OPENと配列について

VBAビギナー - 06/1/13(金) 9:28 -


	引用なし

	パスワード

inoueさん、ご指摘ありがとうございます。
>Option Explicit
>Sub FullPath_Get()　　　　　 'ﾊﾟｽ取得用
> Dim path1 As String
> path1 = "C:\Documents and Settings\デスクトップ\temp"
> Dim i As Integer, Dir_Number(6) As String
> For i = 0 To 6
> Select Case i
>　　Case 0
>　　　　　 Dir_Number(i) = "1"
>　　Case 1
>　　　　　Dir_Number(i) = "2"
>　　Case 2
>　　　　Dir_Number(i) = "3"
>　　Case 3
>　　　 Dir_Number(i) = "4"
>　　Case 4
>　　　　Dir_Number(i) = "5"
>　　Case 5
>　　　　Dir_Number(i) = "6"
>　　Case 6
>　　　　Dir_Number(i) = "7"
>　　End Select
> Next i
>End Sub
上記のようにﾌｫﾙﾀﾞの名を配列に入れたものとDir()を使用して
各ファルダ内に存在するすべてのﾌｧｲﾙを開くにはどのようにしたらよろしいでしょうか？お分かりになる方、ご回答よろしくおねがいいたします。

0 hits

▼

【33435】OPENと配列について VBAビギナー 06/1/12(木) 0:39