ファイルを開くダイアログでカレントディレクトリをサーバーに設定させようと下記を参考にしたのですがカレントディレクトリがローカルのままになってしまいます。
https://excwlvba.blogspot.com/2013/07/blog-post_24.html?m=1
VBA
1 2Private Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long 3 4Sub S2_ChDir() 5'変更後パスFilePathの宣言 6Dim FilePath As String 7 '変更するファイルパスの指定 8 FilePath = "¥¥◯◯¥■■¥△△" 9 '変更の実行 10 Call SetCurrentDirectory(FilePath) 11End Sub 12 ' ¥¥◯◯¥■■¥△△~:ネットワークのパス
よろしくお願い致します。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
退会済みユーザー
2018/06/22 06:32 編集