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

関連記事

  1. Office関連

    セル内の改行をカウントするExcelマクロ

    「Excel セルの内容 改行を数える VBA」といったキーワード検索…

  2. Office アドイン

    [Office用アプリ]マニフェストファイルをSharePointに配置する。

    今更になりますが、今回はマニフェストファイルをSharePoint上に…

  3. Office関連

    [Excel Services ECMAScript]タイマーでグラフを描画する。

    タイマーで特定のセルの値を増やしていき、それに合わせてグラフを描画して…

  4. Office関連

    [PowerShell]iTextSharpを使ってPDFファイルを結合する

    mougにあった質問「2つのPDFファイルを結合するには」の回答用に書…

  5. Office関連

    メールアドレスからExchangeUserを取得するOutlookマクロ

    mougに“メールアドレスをキーとしてExchangeグローバルアドレ…

  6. Office関連

    Officeの新製品発売記念イベントに参加してきました。

    今月16日に開催された、Officeの新しい製品の発売記念イベント「平…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

最近の記事

アーカイブ

RapidSSL_SEAL-90x50
PAGE TOP