SQL EXCEL VBA 接続
Sub b()
'オブジェクト変数の宣言
Dim rstTMP As ADODB.Recordset ユーザ定義型宣言されていません。
とエラーになります。
Dim cmd As New ADODB.Command
'SQL接続
' 接続文とその他処理を記述
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Extended Properties=Excel 8.0;" & _
"Data Source=" & FileName
上はコピーしてそのまま使用しています。
myCon.Open conStr
'SQLコマンド作成
With cmd
.CommandText = "Select * From テーブル名"
.CommandType = adCmdText
End With
'SQL文実行/レコードセット取得
Set rstTMP = cmd.Execute
End Sub
やりたいこと
1.エクセルのデータ Ver.2016 ファイル bookdata1
抽出先ファイル bookdata2
とにかく接続して抽出したい
抽出したい
助けてください。
上記のこーどはいろんなサイト・このサイトに質問などしてやっています。
コードは標準モジュールに書いています。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
あとは、エクセルのバージョン(8.0って、excel97のこと?)とドライバをあわせないとだめかな?
https://ja.wikipedia.org/wiki/Microsoft_Excel
jetダメだったら、ACEとか。
"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FileName & ";"
とか。
サンプルになるコードを見つける際には、エクセルのバージョンも併せて検索するとよいですよ。
Sub Excelに接続()
Dim myCon As New ADODB.Connection, FileName As String
Dim conStr As String
'接続先のExcelファイル
FileName = "C:\Users\.....\Desktop\DataBook.xlsx"
'接続文字列
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Extended Properties=Excel 8.0;" & _
"Data Source=" & FileName
'接続
myCon.Open conStr
MsgBox "Excelブックに接続完了!"
'接続を解除し、オブジェクトをクリア
myCon.Close: Set myCon = Nothing
End Sub
接続成功です。有難うござました。
明日からSQL文をやります
本かってあるのでうれしいです。
つかれたが
No.3
- 回答日時:
そうだね。
フルパスで書くと変なことになりにくい。 前の行に
filename = "C:\Users\...\sample.xls”
などとしてもよい。
あと、SQLの”テーブル名”とかも実際のものに直さないとね。
No.1
- 回答日時:
アクティブxの参照設定にチェックを入れるのが楽です。
https://msdn.microsoft.com/ja-jp/library/cc36407 …
そうでない場合は、createobjectでできます。
https://ateitexe.com/vba-ado-not-reference/
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
DB接続ができなくなって困って...
-
データベースに接続できません。
-
RDO と DAO の違いについて(S...
-
SQLで同じDBに対し2つのコネク...
-
SQLServer認証とWIndows認証
-
ACCESSからのODBC接続のみ応答...
-
VB6.0(SP6)でMySQLに接続したい
-
drop user できない。ORA-01940
-
ACCESS ODBC 接続ダイアログ 非...
-
クライアントでの処理が遅い
-
SQLServer,接続失敗時のエラー...
-
SQLSERVERへのODBC接続について
-
[Oracle8i]ODBC経由でデータベ...
-
symfowareへのODBC接続方法
-
Excelフィルタ抽出で「検索して...
-
Oracle 8i コンマ(,)を含むデ...
-
異なるサーバーにファイルをエ...
-
GROUP BYでエラーが発生
-
Excel-VBAの「しばらくお待ちく...
-
新規saの作成方法について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
DB接続ができなくなって困って...
-
drop user できない。ORA-01940
-
ACCESSからのODBC接続のみ応答...
-
ACCESSからSQLServerのデータを...
-
Access から SQLserver に接続...
-
SQLで同じDBに対し2つのコネク...
-
ACCESS ODBC 接続ダイアログ 非...
-
SQL Serverの移行について
-
IBM系のDBでIMSに関して
-
VBでODBC接続して更新・削除で...
-
SQLServer,接続失敗時のエラー...
-
SQLserverとMSDEにていて
-
クライアントでの処理が遅い
-
別の所にある(グローバルIPが...
-
ACCESS VBAでサーバー起動して...
-
SQLServer認証とWIndows認証
-
VB6.0(SP6)でMySQLに接続したい
-
cseでロリポップのDBに接続は可...
-
RDO と DAO の違いについて(S...
-
SQLSERVERの接続方法を教えて下...
おすすめ情報
アクティブxの参照設定にチェックを入れました。
myCon.Open conStr黄色に反転
オブジェクトが必要です。となりました。
どういうことでしょぅか。
FileName もしかしてここに元になる
ファイル名を書くのでしょうか
'SQL接続
' 接続文とその他処理を記述
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Extended Properties=Excel 8.0;" & _
"Data Source= "C:\Users\......\Desktop\新しいフォルダー (2).\DataBook.xlsx”
....は自分の名前なので....にしました。
'接続
myCon.Open DataBook
うまくいきません。
おねがいします。
conStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Extended Properties=Excel 8.0;" & _
"Data Source= "C:\Users\......\Desktop\新しいフォルダー (2).\DataBook.xlsx”
....は自分の名前なので....にしました。
'接続
myCon.Open conStr constrtがdata sourceですね
しかしうまくいかないです