Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


12282 / 13646 ツリー ←次へ | 前へ→

【11360】ネットワークサーバーのフォルダを開くに... kobasan 04/3/6(土) 16:24 質問
【11364】Re:ネットワークサーバーのフォルダを開く... りん 04/3/6(土) 18:28 回答

【11360】ネットワークサーバーのフォルダを開くに...
質問  kobasan  - 04/3/6(土) 16:24 -

引用なし
パスワード
   Excel VBAの、
Application.Dialogs(xlDialogOpen).Show
を使って,ネットワークサーバー"Server1"のフォルダ"aa"を開くにはどうしたらいいのですか。
sub open1()
  ChDir "\\server1\aa"
  Application.Dialogs(xlDialogOpen).Show
end sub
ではダメでした。

【11364】Re:ネットワークサーバーのフォルダを開...
回答  りん E-MAIL  - 04/3/6(土) 18:28 -

引用なし
パスワード
   kobasan さん、こんばんわ。

>Excel VBAの、
> Application.Dialogs(xlDialogOpen).Show
>を使って,ネットワークサーバー"Server1"のフォルダ"aa"を開くにはどうしたらいいのですか。

APIを使っていいなら。
=====================
Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
'
Sub Test()
  SetCurrentDirectory ("\\server1\aa")
  Application.Dialogs(xlDialogOpen).Show
End Sub
=====================
※宣言部分はVisualBasic5付属のAPIビューアからコピー

12282 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free