ネットワークドライブ接続・切断。Excelマクロ編

ホント、なんだかメモ帳代わりになってますが、
次やりたい時にまた忘れてそうだからメモっとこう。
Ｅｘｃｅｌマクロです。VBA、でいいんかな？

しかし、どうでもいいがカラオケ行きたいなあ・・・・。
どうですか、姐さん。カラオケとか。（一体誰に向かって）

∥Ｅｘｃｅｌマクロでネットワークドライブ接続・切断


★ とにかく、ネットワークドライブ接続して色々やりたい場合に便利。

私はExcelマクロと、バッチファイルやVBSを組み合わせる際、

Call Shell("X:\yyyyyy\xxxxx.bat", 1)

とかで呼び出したいファイルがサーバ上にあったりすると、パスを指定するのに
案外接続が必要だったりするのでよく使います。

まあ、もしかすると他にやりかたがあるのかもしらんですが。


 サーバー名   ： ServerName
 共有フォルダ ： ShareName

 --------------------------------------------------------------------
  Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" _
      (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal _
      lpszLocalName As String) As Long
 --------------------------------------------------------------------
  
  ↑こいつをsub ()の前に放り込む。
　EndSubの後とかに放り込んだら、後々エラーがでますので注意。
　・・・で、

 --------------------------------------------------------------------
  　Sub ネットワークドライブ接続()
     　Dim x As Long
     　x = WNetAddConnection("\\ServerName\ShareName", "", "X:")
 　 End Sub
 --------------------------------------------------------------------
 
　↑こいつの太字部分を環境に合わせて変更してやる。
　　 主にはサーバ名とフォルダパス。あと接続させたいドライブ。
　　 当然やけども、変数名とか関数名とかも自由。好きに変更する。

　↓ほんでもって、切断。
 --------------------------------------------------------------------
  　Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" _
        (ByVal lpszName As String, ByVal bForce As Long) As Long
 --------------------------------------------------------------------
 
　例によって、放り込む場所を間違えないように。

 --------------------------------------------------------------------
  Sub ネットワークドライブの切断()
　　Dim x As Long
　　x = WNetCancelConnection("X:", False)
　End Sub
 --------------------------------------------------------------------
 
　こんな感じで完了です。
　
　マクロって、ちゃんと動いてくれると妙にうれしい・・・。