Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44872 / 76735

←次へ　｜　前へ→


	【36872】Re:みなさんありがとうございました。

Jaka - 06/4/17(月) 10:53 -


	引用なし

	パスワード

▼カドさん：
>残念ながら色々簡単に試せる状況になく、今回は諦めます。
どういうう風に試していたのか解りませんが、JuJuさんの方法で出来ませんでしたか？
JuJuさんのを勝手にいじってみました。

Private Type NETRESOURCE
　　dwScope As Long
　　dwType As Long
　　dwDisplayType As Long
　　dwUsage As Long
　　lpLocalName As String
　　lpRemoteName As String
　　lpComment As String
　　lpProvider As String
End Type
Private Declare Function WNetAddConnection3 Lib "mpr.dll" Alias "WNetAddConnection3A" (ByVal hWndOwner As Long, lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
Private Const RESOURCETYPE_ANY = 0&
Private Const CONNECT_INTERACTIVE = &H8

Sub hoge()
　　Dim udtResource As NETRESOURCE
　　Dim lngRet As Long
　　
　　With Worksheets("Sheet1").OLEObjects("ComboBox1").Object
　　　　 If .ListIndex >= 0 Then
　　　　　　CpmNam = .List(.ListIndex)
　　　　 Else
　　　　　　MsgBox "コンボボックスで選択"
　　　　　　End
　　　　 End If
　　End With
　　
　　With udtResource
　　　　.dwType = RESOURCETYPE_ANY
　　　　.lpLocalName = vbNullString
　　　　.lpRemoteName = CpmNam '"\\ComputerName"
　　　　.lpProvider = vbNullString
　　End With

　　'一応ログイン名とパスワード
　　SendKeys CreateObject("WScript.Network").UserName
　　'SendKeys "({Tab})"　　'必要に応じて
　　'SendKeys "パスワード"　'　同じ
　　
　　'無理やりSendKeys..。
　　'私の所では、これだけで何もせず直に入れました。
　　'そちらのログインの許可状況？っていうのかが、わかっていませんが...。
　　SendKeys "({ENTER})"
　　
　　lngRet = WNetAddConnection3(0&, udtResource, vbNullString, vbNullString, CONNECT_INTERACTIVE)
　　If lngRet = 0 Then
　　　 MsgBox "接続成功"
　　Else
　　　 MsgBox "失敗"
　　End If
End Sub

0 hits

▼

【36579】サーバーにアクセスする時に、パスワードを問い合わせるダイアログを出すに... カド 06/4/4(火) 13:29