質問: _ application.getopenfilename( _ filefilter:="エクセルファイル(*.xls),*.xls" & _ ",csvファイル(*.csv),*.csv" _ , filterindex:=1 _ , title:="開けゴマ" _ , multiselect:=false _ ) 'ファイルが選択されているときは '選択したファイルをworkbooks.openメソッドで開きます if vntfilename <> false then workbooks.open filename:=vntfilename end if ---------------------------------------------------------------- あらかじめ開くディレクトリを、ネットワーク上のフォルダに指定したいのですが、どこにパスを書いたらいいのか、わかりません。 教えていただけますでしょうか。
回答: こんにちは。 こんな感じになると思います。 (ほかにも方法があるとは思いますが......) private declare function setcurrentdirectory lib "kernel32" alias _ "setcurrentdirectorya" (byval currentdir as string) as long sub test1() dim vntfilename as variant dim mydir as string 'あらかじめはっきりしていればよいですが、場合によって、 'ここに、ネットワーク・ドライブ・チェックのコードが必要になります。 mydir = "\\public\excel" 'ネットワークドライブ setcurrentdirectory mydir '変更可能 'ファイルを開くダイアログを開きます vntfilename = _