Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34721 / 76807

←次へ　｜　前へ→


	【47292】ファイル名の取得について。

sakura - 07/3/7(水) 15:56 -


	引用なし

	パスワード

初めて書き込みさせていただきます。

最近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に表示し、集計するというマクロを製作するに当たり、
元データのファイル名に日付が入るため、日々変わるので、特定のファイル名を指定し、マクロを組むということが困難なため、このようなマクロを組もうと思った次第です。

初心者なため、お見苦しいマクロかもしれませんが

なにとぞご教授のほど宜しくお願いいたします。

0 hits

▼

【47292】ファイル名の取得について。 sakura 07/3/7(水) 15:56

≪