Office関連

指定したファイルをエクスプローラーで開いて選択するVBAマクロ

マクロから直接ファイルを開くこともできるけどファイルの操作はユーザーに任せたい、そんなときによく使うのが下記マクロです。
この記事で解説されている、EXPLORER.EXEの「/select」スイッチを使うことでファイルを選択しています。

Option Explicit

Public Sub Sample()
  SelFileInExplorer "C:\wk\Test\あ い う え お\Test0 0 2.txt"
End Sub

Private Sub SelFileInExplorer(ByVal TargetFilePath As String)
'指定したファイルをエクスプローラーで開いて選択する
  With CreateObject("Scripting.FileSystemObject")
    If .FileExists(TargetFilePath) = True Then
      Shell "EXPLORER.EXE /select,""" & TargetFilePath & """", vbNormalFocus
    End If
  End With
End Sub

「VBAで頑張れば自動化処理を書けなくはないけれど、メチャクチャ複雑になってしまう!」なんてときは、上記のような簡単なマクロに留めておいて、マクロでは厳しい処理をユーザーにお願いする、というのも実務上では大切だと思います。

Visio Onlineで図の作成・編集ができるようになりました。前のページ

外部アプリケーションのコンボボックスの内容を取得するVBAマクロのサンプル次のページ

関連記事

  1. Office関連

    [リボン・カスタマイズ]アクティブシートにより表示するグループを切り替える。

    Excelで、選択しているシートによって表示するグループを切り替えたい…

  2. Office関連

    Office 365 APIをVBAから呼び出す(1)

    2015年4月に公開されたOffice Teamのブログ記事「Toda…

  3. Office アドイン

    [Office用アプリ]「あいさつ文の挿入」を作業ウィンドウアプリに移植してみる。

    ※ この情報はOffice 2013 カスタマー プレビュー版を元にし…

  4. Office関連

    VBA Word 97/98ハンドブックを購入しました。

    ブックオフにあった「VBA Word 97/98ハンドブッ…

  5. Office関連

    Office 365 APIをVBAから呼び出す(3)

    前々回の記事でOffice 365とAzure ADの紐づけを、前回の…

  6. Office アドイン

    Ignite 2016で発表されたOffice アドイン関連の情報

    米国時間の9月26~30日にMicrosoftのビッグイベント「Ign…

コメント

  • コメント (0)

  • トラックバックは利用できません。

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

※本ページはプロモーションが含まれています。

Translate

最近の記事

アーカイブ

PAGE TOP