食っちゃ寝システムができるまで

「食っちゃ寝システム」ができるまでの、棚卸&備忘録です。

VBA使用頻度の高いコード(9):フォルダ内の特定ファイル読出し

f:id:taikobox:20181209173448p:plain

フォルダ内の特定ファイル読出し

フォルダ内の特定ファイル読出し用コード

これは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

===============================