システムメンテナンスのお知らせ

現在、指定したファイルを開くVBAを書いているのですが、
↓こんなの
-----------------------------------------------------------
Dim vntFileName As Variant

'ファイルを開くダイアログを開きます

vntFileName = _
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
----------------------------------------------------------------
あらかじめ開くディレクトリを、ネットワーク上のフォルダに指定したいのですが、どこにパスを書いたらいいのか、わかりません。
教えていただけますでしょうか。

gooドクター

A 回答 (1件)

こんにちは。



こんな感じになると思います。
(ほかにも方法があるとは思いますが……)

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 = _
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

gooドクター

人気Q&Aランキング