Excel2007VBAで開くとOKで、Excel2013VBAだとエラー

Question

SQLSever2008 Express のデータをWin7 32bitパソコンのExcel2007VBAで抽出と貼り付けをしています。
このExcelファイルをWin10 32bitパソコンのExcel2013VBAで開くとエラーになります。

エラー表示は「SQL Server が利用できないか、存在しません。 指定された SQL Server が見つかりません。」
参照設定が間違っているのでしょうか？

参照設定は
・Microsoft Excel 12.0 Object Library
・OLE Automation
・Microsoft Office 12.0 Object Library
・Microsoft ActiveX DATA Objects 2.8 Library
・Microsoft DAO 3.6 Object Library

SQL Server 2008 - Native Client 10.0 インストール済

VBA の記述は以下の通りです。

Dim myCon As New ADODB.Connection, myRS As New ADODB.Recordset
Dim FileName As String

myCon.Open "Provider=SQLNCLI10;" & _
"Data Source=[サーバーIP].\SQLEXPRESS;" & _
"Initial Catalog=[DB名];", "ID", "PW"

myRS.Open "SELECT FLG FROM 出荷 WHERE NO2 = " & NO, myCon, adOpenDynamic, adLockPessimistic

Answer 1

「SQL Server が存在しないか、アクセスが拒否されました」 はsaziさんに提示して頂いたページを参考に、ファイアーウォールに特定プログラム、ポートを許可して解決しました。

その後発生した「ネットワークインターフェイス：指定された Server/Instance の位置を特定しているときにエラーが発生しました」は
よくあるバージョンごとの”方言”が原因で、2005 SQL Sever Expressの指定が異なりました。
クライアントOS:Windows7の場合は、Data Source=[サーバーIP].\SQLEXPRESS;
クライアントOS:Windows10の場合は、Data Source=[サーバーIP]\SQLEXPRESS;
※IPの後にドットなし。
でした。

Answer 2

Provider=SQLNCLI10となっていますから、SQL Server Native Clientが必要だと思われますが、
インストールされていますか？
SQL Server Native Client のインストール

追記

環境的な話なので、文字だけではすぐに解決というのは難しいですね。
以下は確認されてますか？
エラー メッセージ "SQL Server が存在しないか、アクセスが拒否されました" の原因

Comments

[tokyocell]

Native Client 10.0 インストール済です。

[sazi]

追記しました。