今回は、ここに助けてもらいました。
Excel（vba）から、同じLAN内のSQLのDBサーバにアクセス！
下記を見たら、あっさりできました。（Thank you!!）
エクセルExcel大事典 VBAマクロ応用講座 ADO 接続 SQLサーバServer ODBC
http://home.att.ne.jp/zeta/gen/excel/c04p03.htm
これを見本に、ソースは、下記
================================
Sub Macro1()
‘
‘ Macro1 Macro
‘
Dim oCon As ADODB.Connection
Dim oRS As ADODB.Recordset
‘—–
Set oCon = New ADODB.Connection
oCon.Provider = “SQLOLEDB”
oCon.ConnectionString = “Data Source=10.**.***.14;” & _
“Initial Catalog=***_cav;” & _
“User ID=**_cav_user;” & _
“Password=%*****z$”
oCon.Open
Set oRS = New ADODB.Recordset
oRS.ActiveConnection = oCon
oRS.Source = “SELECT * FROM [Tst_cav].[dbo].[YK00_ダイヤ]”
‘oRS.Source = “SELECT [ダイヤ_ログNo],[毎時] FROM [Tst_cav].[dbo].[YK00_Mマスター] where [ダイヤ_ログNo] = 5”
‘oRS.Source = “SELECT [ダイヤ_ログNo],[毎時] FROM [Tst_cav].[dbo].[YK00_ダイヤ] where [ダイヤ_ログNo] = 5”
oRS.Open
‘—–
Range(“A1”).CopyFromRecordset oRS
‘—–
oRS.Close
oCon.Close
‘—–
If Not oRS Is Nothing Then Set oRS = Nothing
If Not oCon Is Nothing Then Set oCon = Nothing
‘
End Sub
================================
１）サンプル、ただSQL_DBよりテーブルを持ってくるだけ
２）丸四角三角を表示、テーブルから一項目を検索抽出だけ
20161007_3_pass%e3%81%aa%e3%81%97_vba_sql_test1
