|
初めて書き込みさせていただきます。
最近VBAの勉強を始めたばかりでわからないことがありまして投稿させていただきます。
お忙しいとは思いますがどなたかご教授願えましたら幸いです。
ファイル名を取得する方法についてお聞きしたいことがございます。
ファイルをダイアログボックスから選択し、そのファイル名を取得し
あるシートのセルに表示するというマクロを組みたく、自分で調べ作成してみた
マクロが下記のマクロなのですが
sub CommandButton_Click()
ChDir "フォルダ指定"
FileToOpen = Application.GetOpenFilename("*.xls")
If FileToOpen <> Flase Then
Cells(1,1).value = FileToOpen
Open FileToOpen For Random As FreeFile
End If
End Sub
このマクロだとアドレスもすべて表示されるマクロになってしまいます。
ファイル名のみ、取得する方法はなにかありますでしょうか?
あるファイルの必要なデータだけを別Bookに表示し、集計するというマクロを製作するに当たり、
元データのファイル名に日付が入るため、日々変わるので、特定のファイル名を指定し、マクロを組むということが困難なため、このようなマクロを組もうと思った次第です。
初心者なため、お見苦しいマクロかもしれませんが
なにとぞご教授のほど宜しくお願いいたします。
|
|