UWSCでダイアログを表示し、ユーザーにファイルを選択させ、Excelファイルをオープンしたいと思っています。ファイルダイアログのソースはネットで見つけました。
しかし、APIの知識はまったく無いので下記コードの意味がわかりません。
最終的にやりたいことは、戻値 = XLOPEN( [ファイル名] )
関数を利用して、「ファイル名」の所にユーザーが選択したファイルのフルパスを入力したいです。
下記のAPIのコードを使ってどのようにフルパスを取得することができますでしょうか？
よろしくお願いいたします。
///////////////////////////////////////////////////////////////////////////////
v_Path = FileOpenDLG.Get(v_Path)
Module FileOpenDLG
DEF_DLL GetOpenFileNameA({Long, Long, Long, var string, var string, Long, Long _
, var pchar, Long, var pchar, Long, var string, var string _
, Long, DWORD, var string, Long, Long, var string}): Bool: COMDLG32
CONST STRUCT_SIZE = 76 // 構造体のサイズ
CONST OFN_HIDEREADONLY = $4 // 書き込み禁止(Read Only)のチェックボックスを非表示。
CONST OFN_FILEMUSTEXIST = $1000 // 存在しないファイルを選択できないようにする。
CONST OFN_EXPLORER = $80000 // ダイアログボックスをエクスプローラ風にする。
Dim Flag = OFN_HIDEREADONLY or OFN_FILEMUSTEXIST or OFN_EXPLORER
Dim Len_1024 = $400
Dim Buff_1024 = Format(ChrB(0), This.Len_1024)
Dim Name
Dim Title = "Excelファイルを選択。"
Dim ExtFilter = "Excel (*.xls)" + ChrB(0) + "*.xls" + ChrB(0) _
+ "全て (*.*)" + ChrB(0) + "*"
Dim DefaultDir = null // 初期表示ディレクトリ null は CurrentDirectory。
Function Get(var v_Path)
v_Path = This.Buff_1024
This.Name = This.Buff_1024
Result = GetOpenFileNameA(_
STRUCT_SIZE, 0, 0, This.ExtFilter + ChrB(0), NULL, 0, 0 _
, v_Path, This.Len_1024, This.Name, This.Len_1024, This.DefaultDir, This.Title _
, This.Flag, 0, NULL, 0, 0, NULL)
FEnd
EndModule
///////////////////////////////////////////////////////////////////////////////
お礼
お礼おくれましたすいません。そうです、ＵＷＳＣの落とし物部屋からひろってきて、自分で改造しました。教えていただいた方法で問題なくできました、ありがとうございます！