カテゴリー
VBA

【VBA】 既定のプログラムでファイルを開く

指定したファイルを既定のプログラムで開く関数です。

関数概要

  • 関数名: FNCOpenFileUsingDefaultApp
  • 入力引数; P_IN_FilePath ( String 型 ) : 開くファイルのフルパスを指定します。
  • 出力引数: ありません。
  • 返り値:リターンコードが返却されます。

実行例

  • 準備中

ダウンロード

UsefulEdgeではよく使うVBA処理を共通クラスとして提供しています。

以下からダウンロードが可能です。

UEVBACommonClass.cls

使用方法

  • 準備中

ソースコード


'-----------------------------------------------------------------
' 既定のプログラムでファイルを開く
'-----------------------------------------------------------------
Function FNCOpenFileUsingDefaultApp(P_IN_FilePath As String) As Integer
On Error GoTo ErrorHandler
    FNCOpenFileUsingDefaultApp = Me.ReturnError
    Dim WSH
    Set WSH = CreateObject("Wscript.Shell")
    WSH.Run Chr(34) & P_IN_FilePath & Chr(34), 3
    Set WSH = Nothing
    FNCOpenFileUsingDefaultApp = Me.ReturnNomal
    Exit Function
ErrorHandler:
    MsgBox Err.Number & ":" & Err.Description, vbCritical & vbOKOnly, "エラー"
    FNCOpenFileUsingDefaultApp = Err.Number
    Exit Function
End Function

ソースコード説明

  • 準備中
[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]

ExcelVBAを実務で使い倒す技術 [ 高橋宣成 ]
価格:1944円(税込、送料無料) (2019/7/23時点)

作成者: はるお@ライフハックITプレゼンター

仕事や生活がラクになるアプリ・ツールを開発・提案します。社内講師、開発ツール導入、自部品製造・営業購買経理システム開発経験、RPA導入。応用情報技術者、C#,TypeScript,COBOL,PL/SQL,VBAなど。全工程(要件定義〜運用保守)。海外出張経験🇲🇽🇨🇳。1児👧1匹🐱の父。

ご意見など御座いましたら、コメント欄または Twitterまで頂けると幸いです。

詳しいプロフィールはこちら。

https://usefuledge.com/profile-2

コメントを残す

メールアドレスが公開されることはありません。