Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12301 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11360】ネットワークサーバーのフォルダを開くに... kobasan 04/3/6(土) 16:24 質問
【11364】Re:ネットワークサーバーのフォルダを開く... りん 04/3/6(土) 18:28 回答
【11360】ネットワークサーバーのフォルダを開くに...
質問  kobasan  - 04/3/6(土) 16:24 -
引用なし
パスワード
   Ｅｘｃｅｌ ＶＢＡの、
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 さん、こんばんわ。

>Ｅｘｃｅｌ ＶＢＡの、
> 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ビューアからコピー
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12301 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free