SSMSEを使ったクエリ結果をエクセルで出力したい

Question

SSMSE（SQLServerManagementStudioExpress）を使用してクエリを作成し、問題なく結果が出ました。そのデータをエクセルなどで出力する方法はあるのでしょうか。現在はコピペでやっています。宜しくお願いいたします。

chibita_papa · Accepted Answer

これで試してみてください。

Sub aaa()

    Const connstr = "Provider=sqloledb;" & _
         "Data Source=サーバー名;Initial Catalog=データベース名;User Id=ユーザー名;Password=パスワード; "

    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    
'コピペして下さい
    strSQL = "SSMSE（SQLServerManagementStudioExpress）を使用して作成したクエリ"
    
    conn.Open connstr
    rs.Open strSQL, conn
    
    Range("A2").CopyFromRecordset rs
    
    rs.Close
    conn.Close
    
    Set rs = Nothing
    Set conn = Nothing


End Sub

chibita_papa · Answer

> ちなみにフィールド名（列名？）も一緒に出力することは可能でしょうか。

Sub aaa()

Const connstr = "Provider=sqloledb;" & _
"Data Source=サーバー名;Initial Catalog=データベース名;User Id=ユーザー名;Password=パスワード; "

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String

'コピペして下さい
strSQL = "SSMSE（SQLServerManagementStudioExpress）を使用して作成したクエリ"

conn.Open connstr
rs.Open strSQL, conn

           If rs.EOF = False Then
       'フィールド名を取得    
      Dim i As Integer

       For i = 0 To rs.Fields.Count - 1
        Cells(1, i + 1) = rs.Fields(i).Name
       Next i

Range("A2").CopyFromRecordset rs

End if

rs.Close
conn.Close

Set rs = Nothing
Set conn = Nothing

End Sub

後は、SQL文を自動編集したり、
ツール　－　マクロ　－　マクロ　－　オプションで
ショートカットを作ると使い勝手が良くなると思います。
また、ワークシートにボタンや画像を配置しそれをクリックすると
データ抽出なんかもできます。

chibita_papa · Answer

ツール　－　参照設定で
Microsoft ActiveX Data Objects 2.X Library　　(2.1 ～ 2.8)
を参照して下さい。

> 参照設定がグレーアウトになってできませんでした。
なぜ出来なかったのか分かりませんが
新規ワークシートに先に参照設定することは出来ませんか。

chibita_papa · Answer

>エクセル立ち上げて、ツールのマクロからVisualBasicEditorを立ち上げて、いただいたコードをここで使うのかなくらいのレベルです。
すいません。

十分です。

Sub aaa()　から End Sub までをコピペし
（２）（３）を編集し
実行してみてください。

シートに A2以下に抽出データがあるはずです

もし、エラーが出たらエラー内容を教えてください。

chibita_papa · Answer

smorgas030さんのレベルが分からないのですが

(1)ＶＢＡは分かりますか。
ここでNOと言われるとちょっと困るのですが・・・

(2)Const connstr = "Provider=sqloledb;" & _
"Data Source=サーバー名;Initial Catalog=データベース名;User Id=ユーザー名;Password=パスワード; "
を
smorgas030さんのデータベースの環境に編集する事が出来ますか。

(3)strSQL = "SSMSE（SQLServerManagementStudioExpress）を使用して作成したクエリ"
これを、SSMSEからコピペし編集することが出来ますか。

以上、よろしくお願いします。

chibita_papa · Answer

NO1です。

言い忘れましたが
参照設定で、
Microsoft ActiveX Data Objects 2.X Library
を参照して下さい。

SSMSEを使ったクエリ結果をエクセルで出力したい

これで試してみてください。

> ちなみにフィールド名（列名？）も一緒に出力することは可能でしょうか。

ツール － 参照設定で

>エクセル立ち上げて、ツールのマクロからVisualBasicEditorを立ち上げて、いただいたコードをここで使うのかなくらいのレベルです。

この回答への補足

smorgas030さんのレベルが分からないのですが

NO1です。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

ツール　－　参照設定で