| トップページ |
| ＥＸＣＥＬ ＶＢＡ |
| ＡＣＣＥＳＳ ＶＢＡ |
| ＶＢＡ 開発相談 |
ＶＢＡ開発室 鹿児島ワイズ は、
・ＶＢＡの操作入門
・ＶＢＡの開発代行
をご提供しています。
|
|
トップページ >> ＥＸＣＥＬ ＶＢＡ >> Ａ０１．指定フォルダ内のファイル名を取得し、・・・
|
| 処理内容の分解
|
処理内容は次の３点に分解できる。
①指定フォルダ内のファイル名を取得する
②ファイル名をエクセル上でリスト化する
③そのファイルに対してリンクを貼る
よって、それぞれの処理を書いてみましょう。
①指定フォルダ内のファイル名を取得する
簡易化のために、指定フォルダを当該エクセルブックの “１つ下のフォルダ (フォルダ名 : target)” としましょう。
指定フォルダを当該エクセルブックの“１つ下のフォルダ (フォルダ名 : target)” と指定することで、そのフォルダへの path は 次のようにして取得できます。
Dim FilePath as string
FilePath = ThisWorkbook.Path & "/target/"
Dim maxtype, i As Integer
maxtype = 3
Dim FType(3) As String
'Ftype(3) という 配列を宣言した。その配列には3個の要素 ( maxtype = 3 ) を入れることができる。
'増やしたければ数字の部分を増やせばよい。
'減らしたければ数字の部分を減らせばよい。
FType(0) = "*.xls"
FType(1) = "*.zipp"
FType(2) = "*.pdf" ' 計3要素 0から数えるから maxtype-1 の表記が最大数になる
Dim FileName As String
Dim count As Integer
For i = 0 To maxtype - 1
①指定フォルダ内のファイル名を取得する 部分
FileName = Dir(FilePath & FType(i))
Do While FileName <> ""
If FileName = "." Then
FileName = Dir()
ElseIf FileName = ".." Then
FileName = Dir()
Else
count = count + 1
②ファイル名を取得して Cells(count, 1) に表記する 部分
Cells(count, 1) = FileName
③そのファイルに対してリンクを貼る 部分
ActiveSheet.Hyperlinks.Add Cells(count, 1), Address:=FilePath & FileName
FileName = Dir()
End If
Loop
Next i
|
|
トップページ >> ＥＸＣＥＬ ＶＢＡ >> 次のページへ
|
|
