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関連

    クイックアクセスツールバーから履歴を表示するWordテンプレート

    Word MVPの新田さんのブログで「【Word 2013】クイックア…

  2. Office アドイン

    Visio JavaScript APIで遊んでみました。

    前回の記事でプレビュー版がリリースされた「Visio JavaScri…

  3. Office関連

    Excel Web Appのブック埋め込みを試してみました。

    Microsoftが提供しているOffice Web Appsはいわば…

  4. Office関連

    2つの文書を比較するWordマクロ

    先日テキスト比較ソフトの「ちゃうちゃう!」がバージョンアップされたこと…

  5. Office関連

    goo.glで短縮URLを取得するVBAマクロ

    何年か前にHPで「goo.glで短縮URLを取得する」マクロを紹介しま…

  6. Office関連

    指定したセル範囲をUTF-8やEUC-JP等のテキストファイルとして出力するExcelアドイン

    以前この記事で、指定したセル範囲をUTF-8やEUC-JP等のテキスト…

コメント

  • コメント (0)

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

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

Time limit is exhausted. Please reload CAPTCHA.

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

Translate

最近の記事

アーカイブ

PAGE TOP