|
こんにちは。かみちゃん です。
>マクロの自動書きで別ファイルを呼び出しできるように
>したのですが、このファイル名は固定せずセルに入力
>されている各ファイル名から呼出できるようにしたいです。
「マクロの自動書き」というのは、「マクロの記録」を使ったということでしょうか?
それであれば、その記録したマクロとファイル名を記述したセルのサンプルを提示
できませんか?
>変数?とでもいうのでしょうか。何か代入できるものはある
>のですか。あればその方法を教えてください。
実際の処理とは少し違いますが、こんな感じでできると思います。
Sub Macro1()
Dim LastCell As Range, c As Range
Set LastCell = Range("A65536").End(xlUp)
For Each c In Range("A1", LastCell)
strFileName = c.Value
If c.Value <> "" And Dir(strFileName) <> "" Then
'〜ファイル呼び出し〜
c.Offset(, 1).Value = "成功"
Else
c.Offset(, 1).Value = "失敗"
End If
Next
Range("A1").Select
Set LastCell = Nothing
End Sub
|
|