ファイルを開くダイアログボックス

Const ENABLE_WIZHOOK = 51488399 Const DISABLE_WIZHOOK = 0 Dim strFile As String Dim intResult As Integer WizHook.Key = ENABLE_WIZHOOK ' WizHook 有効化 intResult = WizHook.GetFileName(0, "", "タイトル", "", strFile, "", _ "すべてのファイル (*.*)|*.*", 0, 0, 0, True) WizHook.Key = DISABLE_WIZHOOK ' WizHook 無効化 FName = strFile

※GetFileNameについて

プロパティ名	説明	画像
whhwndOwner
whAppName
whDlgTitle	ダイアログのタイトル	画像
whOpenTitle	[開く]ボタンの表示名変更	画像
whFile	選択したファイル名を取得する変数
whInitialDir	デフォルトのフォルダ
whFilter	フィルターの指定
whFilterIndex	whFilterで指定したフィルタのデフォルト表示(0から)
whView	組み合わせで、表示内容が変わる whView,whflags = 説明 0,0 = 直前の実行と同じにする 0,64 = 詳細 1,64 = プレビュー 2,64 = プロパティ 3,64 = 一覧 0,32 = フォルダ選択可能[whfOpen=True にする] 0,1 = 読み取り専用ファイルの選択を不可にし、上書き確認[whfOpen=False にする] 0,8 = 複数ファイル選択可[whfOpen=True にする]	画像
whflags
whfOpen	ダイアログの種類。[開く]ボタンか、[保存]ボタンか。	画像

※キャンセル時はintResultに0が入ります。(変数名をintResultとした場合)

vbaからNotesで文書を開く

Set obj = GetObject("", "Notes.NotesSession") '起動中のLotus.NotesSessionを取得 Set session = CreateObject("Notes.NotesSession") Set ws = CreateObject("Notes.NotesUIWorkspace") Set DB = session.GetDatabase("サーバー名", "データベースファイル名") Set view = DB.GETVIEW("ビュー名") q = "@IsMember(フィールド名1;'文字列') & @IsMember(フィールド名2;'文字列')" Set docs = DB.Search(q, Nothing, 0) If docs.Count <= 0 Then MsgBox "該当番号なし", vbExclamation, "該当なし" Exit Sub End If '検索結果がdocsにあり、その中の最初の文書を取得します。 Set doc = docs.GetFirstDocument Set doc = DB.GETDOCUMENTBYUNID(doc.UniversalID) '編集モードへの切り替えをNGにして開く Set doc = ws.EditDocument(False, doc, True)