【VBA】 既定のプログラムでファイルを開く
指定したファイルを既定のプログラムで開く関数です。
目次
関数概要
- 関数名： FNCOpenFileUsingDefaultApp
- 入力引数； P_IN_FilePath ( String 型 ) : 開くファイルのフルパスを指定します。
- 出力引数： ありません。
- 返り値：リターンコードが返却されます。
実行例
- 準備中
ダウンロード
UsefulEdgeではよく使うVBA処理を共通クラスとして提供しています。
以下からダウンロードが可能です。
使用方法
- 準備中
ソースコード
'-----------------------------------------------------------------
' 既定のプログラムでファイルを開く
'-----------------------------------------------------------------
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
ソースコード説明
- 準備中
![[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]](https://hbb.afl.rakuten.co.jp/hgb/156e5f8f.d5d194cd.156e5f90.9ce91fc7/?me_id=1213310&item_id=18413544&m=https%3A%2F%2Fthumbnail.image.rakuten.co.jp%2F%400_mall%2Fbook%2Fcabinet%2F9991%2F9784798049991.jpg%3F_ex%3D80x80&pc=https%3A%2F%2Fthumbnail.image.rakuten.co.jp%2F%400_mall%2Fbook%2Fcabinet%2F9991%2F9784798049991.jpg%3F_ex%3D240x240&s=240x240&t=picttext "[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]")
ExcelVBAを実務で使い倒す技術 [ 高橋宣成 ]
価格：1944円（税込、送料無料) (2019/7/23時点)
[
楽天で購入
](https://hb.afl.rakuten.co.jp/hgc/156e5f8f.d5d194cd.156e5f90.9ce91fc7/?pc=https%3A%2F%2Fitem.rakuten.co.jp%2Fbook%2F14714310%2F%3Fscid%3Daf_pc_bbtn&m=http%3A%2F%2Fm.rakuten.co.jp%2Fbook%2Fi%2F18413544%2F%3Fscid%3Daf_pc_bbtn&link_type=picttext&ut=eyJwYWdlIjoiaXRlbSIsInR5cGUiOiJwaWN0dGV4dCIsInNpemUiOiIyNDB4MjQwIiwibmFtIjoxLCJuYW1wIjoicmlnaHQiLCJjb20iOjEsImNvbXAiOiJkb3duIiwicHJpY2UiOjEsImJvciI6MSwiY29sIjoxLCJiYnRuIjoxfQ==)
