スポンサーリンク

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

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

関連記事

AI-OCR【Tegaki+Seisho】&RPA【WinActor】!特別定額給付金支給システムへの自動入力!急増シナリオで本格運用開始!

さて、平日週末関係なく、5月は休みなく連続勤務中の管理人です。 特別定額給付金の支給事務で5月のサビ残業が100時間を超過し身体が悲鳴をあげています。 その内に過労死するかもですね・・・ さて、いっき …

RPA・WinActorでGmail操作!ブラウザとの相性は悪い気がする?

絶賛底辺中の地方公務員の管理人です。 さて、今日もWinActorネタです。 本日は、WinActorでのブラウザ操作となります。 職場のグループウエアは、IE11で動くものですが・・・ 仕事の関係で …

EXCELのVBAを使ってPDFを開き指定のページのみを印刷する!

へっぽこヘタレシステム管理者の管理人です。 さて、昨日に引き続き・・・ ある部署からエクセルのマクロの作成を依頼され・・・ その過程で、いくつか部品を作ったので忘備録として掲載します。 スポンサーリン …

EXCELやACCESSの関数やVBA・SQL文等の忘備録まとめ!

このページでは、管理人が良く使う次のソフト MS-EXCEL(エクセル) MS-ACCESS(アクセス) Oracle(オラクル)SQL について、良く使うけれどもすぐに忘れて、何度も調べ「関数やVB …

board-pic1

RPA【WinActor】VSパンチャー!どっちの入力が早いか? PDF化AI-OCRによる電子化に要する時間を含めてもRPAの勝ち!

さて、特別定額給付金【10万円】の支給事務で、日々サビ残に明け暮れる管理人です。 サビ残も130時間越え・・・ 過労死ラインを軽く超えています。 毎日RPA【WinActor】を動かして、申請書をひた …

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