|
こんにちは。かみちゃん です。
>私の場合は、単純にファイルが開ければいいので
>ファイル名が入力されているセルは1つだけであり
>リストのようなものはありません。
>
>ファイル名はその都度入力しています。
ファイル名が入力されているセルがA1である場合、
先に提示したコードを流用するならば、
Set LastCell = Range("A65536").End(xlUp)
を
Set LastCell = Range("A1")
とするだけでいいです。
ただ、入力されているセルが1つだけですので、For 〜 Nextを使う必要はまったく
ありませんので、
Sub Macro1()
Dim strFileName As String
strFileName = "C:\WINDOWS\デスクトップ\" & Range("A1").Value
If Dir(strFileName) <> "" Then
'ファイル呼び出し
Workbooks.Open Filename:=strFileName
'???開いたあとどうしたいのか???
End If
End Sub
とすればいいです。
さらに、セルに入力せずに、「ファイルを開く」ダイアログボックスを表示して
その都度選択させるということもできます。
その場合は、GetOpenFilaNameメソッドをヘルプで調べてみてください。
|
|