FrontPage 新規 編集 検索 一覧 ヘルプ

BBS-雑談/34

ファイル選択ダイアログ(IE編) - つちや (2004年01月16日 13時46分48秒)

ども、です。Excelの他に、IEを使ってファイル選択ダイアログを出す手もありますね。(細かい指定はできませんが)

'InternetExplorerを利用して、ファイル選択ダイアログを出す。Set objIE = CreateObject("InternetExplorer.Application")

objIE.Navigate "about:blank"Do While objIE.Busy:WScript.Sleep 100:Loop

Set document=objIE.Documentdocument.Write "<html><body><input type=file id=txtFile></body></html>"document.all.txtFile.focusdocument.all.txtFile.click

MsgBox document.all.txtFile.Value

{{comment}}

Yesterday Today Total