VBA使用頻度の高いコード(9):フォルダ内の特定ファイル読出し
フォルダ内の特定ファイル読出し
フォルダ内の特定ファイル読出し用コード
これはjpg読み出しようです。
===============================
Sub フォルダ内Jpeg読込(pkupFolder As String)
Dim pkupPath As String
Dim pkupJpegFile
pkupPath = ""
pkupJpegFile = ""
pkupJpegFile = Dir(pkupFolder & "¥*.Jpg")
Do While pkupJpegFile <> ""
ckCurrentRow = ckCurrentRow + 1
Cells(ckCurrentRow, 2) = pkupFolder & "¥" & pkupJpegFile
pkupJpegFile = Dir()
Loop
End Sub
===============================