ExcelのVBAについて
こんにちは、VBA初心者です。
C:\pictureの中に以下のファイルがあります。
DSC_0134.JPG~DSC_0154.JPG
これらのファイルをExcelのA列1~20行に書かれた文字△○%&◎~▲▽%%★に.JPGをつけて保存したくて以下のコードを書きました。
Dim buf As String
Dim msg As String
Dim i As Integer
Dim A As Variant
i = 1
buf = Dir("dsc*.jpg", vbNormal)
Do While buf <> ""
Do While i < 21
buf = Dir()
msg = buf 'msg=元の名前
A = Worksheets("sheet1").Cells(i, 1).Value
Worksheets("sheet1").Cells(i, 2).Value = msg
Name "C:\picture\msg" As "C:\picture\A.jpg"
i = i + 1
Loop
Loop
Name "C:\picture\msg" As "C:\picture\A.jpg"のところで、「ファイルがありません。」となってしまいます。
あと、Worksheets("sheet1").Cells(i, 2).Value = msgのところで、\pictureの中の最初のファイル(DSC_0134.JPG)を表示しません。
どこを直せばよいのでしょうか?