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

質問

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

回答No.1

chibita_papa · ベストアンサー

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

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

お礼

早速の回答ありがとうございます。
教えてください。
こちらのコードをどうしたらいいでのしょうか。
初心者なのであまりわかっていなくてすいません。

回答No.6

chibita_papa

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

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文を自動編集したり、
ツール　－　マクロ　－　マクロ　－　オプションで
ショートカットを作ると使い勝手が良くなると思います。
また、ワークシートにボタンや画像を配置しそれをクリックすると
データ抽出なんかもできます。

お礼

ありがとうございます。
フィールド名も出力できました。
ショートカットもできました。
クエリを変更した場合は、VBの中身を都度変更すればいいのですね。
ありがとうございました。

回答No.5

chibita_papa

ツール　－　参照設定で
Microsoft ActiveX Data Objects 2.X Library　　(2.1 ～ 2.8)
を参照して下さい。

> 参照設定がグレーアウトになってできませんでした。
なぜ出来なかったのか分かりませんが
新規ワークシートに先に参照設定することは出来ませんか。

お礼

ありがとうございます。
できました。
何回も回答ありがとうございました。

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

回答No.4

chibita_papa

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

十分です。

Sub aaa()　から End Sub までをコピペし
（２）（３）を編集し
実行してみてください。

シートに A2以下に抽出データがあるはずです

もし、エラーが出たらエラー内容を教えてください。

お礼

何度もありがとうございます。

>Sub aaa()　から End Sub までをコピペし
>（２）（３）を編集し
>実行してみてください。

実行したらエラーが出ました。
こんな感じです。
実行のしかたにも自信がないので書いておきます。

VisualBasicEditor
↓
実行
↓
Sub/ユーザフォームの実行
↓
”コンパイルエラー
ユーザ定義型は定義されていません”

のエラーメッセージが出ます。
よろしければご指示ください。

補足

”ユーザ定義型は定義されていません”でググったら、
ツールの参照設定を変更するみたいなことがあったので、
やろうとしたら、参照設定がグレーアウトになってできませんでした。

回答No.3

chibita_papa

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

(1)ＶＢＡは分かりますか。
ここでNOと言われるとちょっと困るのですが・・・

(2)Const connstr = "Provider=sqloledb;" & _
"Data Source=サーバー名;Initial Catalog=データベース名;User Id=ユーザー名;Password=パスワード; "
を
smorgas030さんのデータベースの環境に編集する事が出来ますか。

(3)strSQL = "SSMSE（SQLServerManagementStudioExpress）を使用して作成したクエリ"
これを、SSMSEからコピペし編集することが出来ますか。

以上、よろしくお願いします。

お礼

回答ありがとうございます。
（２）（３）は大丈夫です。できます。

（１）はほとんどわかりません。
エクセル立ち上げて、ツールのマクロからVisualBasicEditorを立ち上げて、いただいたコードをここで使うのかなくらいのレベルです。
すいません。

あきらめたほうがよかったでしょうか。

回答No.2

chibita_papa

NO1です。

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