No.1ベストアンサー
- 回答日時:
これで試してみてください。
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
- 回答日時:
> ちなみにフィールド名(列名?)も一緒に出力することは可能でしょうか。
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
- 回答日時:
ツール - 参照設定で
Microsoft ActiveX Data Objects 2.X Library (2.1 ~ 2.8)
を参照して下さい。
> 参照設定がグレーアウトになってできませんでした。
なぜ出来なかったのか分かりませんが
新規ワークシートに先に参照設定することは出来ませんか。
ありがとうございます。
できました。
何回も回答ありがとうございました。
ちなみにフィールド名(列名?)も一緒に出力することは可能でしょうか。
No.4
- 回答日時:
>エクセル立ち上げて、ツールのマクロからVisualBasicEditorを立ち上げて、いただいたコードをここで使うのかなくらいのレベルです。
すいません。
十分です。
Sub aaa() から End Sub までをコピペし
(2)(3)を編集し
実行してみてください。
シートに A2以下に抽出データがあるはずです
もし、エラーが出たらエラー内容を教えてください。
この回答への補足
”ユーザ定義型は定義されていません”でググったら、
ツールの参照設定を変更するみたいなことがあったので、
やろうとしたら、参照設定がグレーアウトになってできませんでした。
何度もありがとうございます。
>Sub aaa() から End Sub までをコピペし
>(2)(3)を編集し
>実行してみてください。
実行したらエラーが出ました。
こんな感じです。
実行のしかたにも自信がないので書いておきます。
VisualBasicEditor
↓
実行
↓
Sub/ユーザフォームの実行
↓
”コンパイルエラー
ユーザ定義型は定義されていません”
のエラーメッセージが出ます。
よろしければご指示ください。
No.3
- 回答日時:
smorgas030さんのレベルが分からないのですが
(1)VBAは分かりますか。
ここでNOと言われるとちょっと困るのですが・・・
(2)Const connstr = "Provider=sqloledb;" & _
"Data Source=サーバー名;Initial Catalog=データベース名;User Id=ユーザー名;Password=パスワード; "
を
smorgas030さんのデータベースの環境に編集する事が出来ますか。
(3)strSQL = "SSMSE(SQLServerManagementStudioExpress)を使用して作成したクエリ"
これを、SSMSEからコピペし編集することが出来ますか。
以上、よろしくお願いします。
回答ありがとうございます。
(2)(3)は大丈夫です。できます。
(1)はほとんどわかりません。
エクセル立ち上げて、ツールのマクロからVisualBasicEditorを立ち上げて、いただいたコードをここで使うのかなくらいのレベルです。
すいません。
あきらめたほうがよかったでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- Word(ワード) LibreOfficeで数年保存しているデータの変更作業 4 2022/07/08 17:15
- Access(アクセス) お世話になっています いまクエリを作っています。。 デザインビューの画面の集計の欄で、「グループ化」 4 2022/09/17 17:03
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Excel(エクセル) Powershell エクセル検索 完全一致の方法 1 2022/06/05 20:19
- その他(データベース) Accessフォームにて指定のフィールドの平均値を小数点第一位で表示できない 2 2022/08/30 17:19
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- Excel(エクセル) Excelで在庫表(クエリ、ピボット) 2 2022/04/11 17:11
- Access(アクセス) Accessのリンクテーブルのパスを相対パスにする方法について教えて頂きたいです 1 2023/02/08 13:29
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
MS-Accessのエクスポートで異常...
-
SSMSEを使ったクエリ結果をエク...
-
SQLite3にて重みづけを行った抽...
-
データファイルに書き込まれる...
-
1回目の実行に3分、2回目の実行...
-
会社の諸事情により全システム...
-
警察はスマホに保存した動画や...
-
DATファイルをEXCELで開きたい
-
【DB】同じトランザクション内...
-
エクセルのフィルタ抽出が固まる
-
マスタメンテとは?
-
制御ファイルの多重化の意味に...
-
postgresql についてです
-
mdfファイルの残骸について
-
期限切れのバックアップの削除
-
tempdb の適切なサイズ
-
SQLLDRで、10M程度のテキストの...
-
UDBログとは何のことでしょう
-
accessの処理が遅い
-
ログの圧縮が出来ません。また...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSのデータをWebブラウザで...
-
MS-Accessのエクスポートで異常...
-
1回目の実行に3分、2回目の実行...
-
ACCESS2010 Excelエクスポート ...
-
accessの上限容量2Gでは容量が...
-
業務用のデータベースサーバー...
-
ACCESSのクエリからORACLEのDB...
-
ツリー情報のデータをSQLで取得...
-
会社の諸事情により全システム...
-
Sqliteで使えない文字。
-
SQL文で、重複データの上書きは...
-
oracleデータベースの更新履歴
-
SQLServerのDBのうちテーブルを...
-
別サーバーへのデータの同期更...
-
SQLSERVERのテーブルにデータを...
-
PL/SQLで複数のFor文を解除したい
-
暗号化したDBのデータ移行
-
データベース
-
検索システムでDBを使用しない...
-
ACOSのRDBについて教え...
おすすめ情報