スポンサーリンク

050-VBA

EXCELのVBAを使って任意のファイルのフルパスを取得する!

へっぽこヘタレシステム管理者の管理人です。

さて、ある部署からエクセルのマクロの作成を依頼され・・・

その過程で、いくつか部品を作ったので忘備録として掲載します。

スポンサーリンク

ブログランキングにご協力ください!
ブログランキング・にほんブログ村へ

エクセルのマクロを使って任意のファイルのフルパスを取得する

まずはコードです。

例では、マクロ1に割り当てています。

Sub Macro1()
'
' Macro1 Macro
'
    'ファイル選択ダイアログを表示する
        With Application.FileDialog(msoFileDialogFilePicker)
            .Title = "ファイルを選択してください"
             
            '初期フォルダ設定(起動しているエクセルファイルのパス)
            .InitialFileName = ThisWorkbook.Path & "\"
             
            'ファイル選択ダイアログ表示
            If .Show = True Then

                '選択されたファイルパスを取得
                selectionfile_name = .SelectedItems(1)

                'セルA1にファイル名
                Cells(1, 1) = selectionfile_name
                
            Else
                selectionfile_name = ""
            End If
        End With


End Sub

コードの処理は次のとおりです。

ファイル選択ダイアログのタイトルを設定する【ファイルを選択してください】

ファイル選択ダイアログの初期フォルダ設定する【起動しているエクセルのパス】

ファイル選択ダイアログを開く

ファイル選択ダイアログで選択したファイルのフルパスを取得する

セル(A1)に取得したファイル名を入力する

ブログ開設に必要なドメイン取得、サーバーレンタル、ASPの登録等は、こちらのサイトから!

スポンサーリンク
スポンサーリンク

-050-VBA

執筆者:


comment

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


関連記事

元祖国内RPAの【RocketMouse Pro】を試す!画像認識クリックはかなりの精度!

へっぽこヘタレ管理者の管理人です。 さて、高価な【WinActor】のライセンス問題があり・・・ 簡単な作業を安価に利用できるツールとして、いろいろと試してみていますが、 完全無料RPAの【マクロマン …

バッチファイル【*.bat】の名前をコマンドと同じにすると無限ループするので注意!

へっぽこヘタレシステム管理者の管理人です。 ひさびさに、システムトラブル(ヒューマンエラー)により・・・ AD【アクティブディレクトリー】のグループポリシーにログオンスクリプとを仕込むことになったので …

Excelで長い「if関数」からおさらば!ユーザー定義関数を使って関数を楽々作る方法!

長い「if関数」は、勘弁してほしい! さて、人事異動等で業務を引き継ぐと、前任者が作ったExcel(エクセル)ファイルを使う場面が良くあります。 そのまま使えれば良いのですが多くの場合、法令変わったり …

RPA・WinActorの練習!暫く使わないとすぐに忘れる!基本操作の習得はエクセルからセクセルの転記から!

物覚えの悪い地方の底辺公務員の管理人です。 今年から、事務の効率化の一環として、RPA・WinActorを使うことになりましたが・・・ 管理人の相場観としては・・・ 手書きの申請書AI-OCRでエクエ …

Accessでユーザー定義関数を作る!基本はエクセルの場合と同じ方法でOK!

エクセル【EXCEL】でユーザー定義関数は、よく使いますが・・・ そういえば、アクセス【ACCESS】では、使った事がないなと思い・・・ 作り方を整理してみました。 基本はEXCELの場合と同じ 試し …

スポンサーリンク
スポンサーリンク
スポンサーリンク