Sub test_2()
Dim objCn As Object '★参照設定なし版
Dim objRS As Object '★参照設定なし版
Dim i As Integer
Dim strSQL As String
Dim Filename As String
Dim conStr As String
Filename = "C:\Users\fff\Desktop\ttt\ttt.xlsm"
Set objCn = CreateObject("ADODB.Connection") '★参照設定なし版
Set objRS = CreateObject("ADODB.Recordset") '★参照設定なし版
conStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Extended Properties=Excel 12.0 xlsm;" & _
"Data Source=" & Filename & ";" '
objCn.Open conStr
strSQL = ""
strSQL = strSQL & " SELECT 社員No,商品コード,SUM(売上) AS 売上合計"
strSQL = strSQL & " FROM [Sheet1 $]" '★シート名に注意!
strSQL = strSQL & " WHERE 商品コード = 'A-1010'"
strSQL = strSQL & " GROUP BY 社員No,商品コード,売上;"
Set objRS = objCn.Execute(strSQL)
With ActiveSheet '★ActiveSheetを使用
.Range(.Range("A2"), .Range("A2").SpecialCells(xlLastCell)).ClearContents
For i = 0 To objRS.Fields.Count - 1
.Cells(1, i + 1).Value = objRS.Fields(i).Name
Next
.Range("A2").CopyFromRecordset objRS
End With
objCn.Close
Set objCn = Nothing
Set objRS = Nothing
End Sub
インストール可能なISAMドライバ見つかりませんでした。
ドライバ必要なのでしょうか
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
No.1です。
仮にOffice2013、2016だとして
クイック実行形式の Office をインストールすると ODBC / OLEDB が利用できない
https://blogs.technet.microsoft.com/officesuppor …
このような記事があるので
クイック実行形式 (C2R) と Windows インストーラー形式 (MSI) を見分ける方法
https://blogs.technet.microsoft.com/officesuppor …
こちらで『どっちなのか?』を確認されては。
No.1
- 回答日時:
Officeのバージョンの関係(特にAccessをインストールしているか)なのか、Officeが32bit(私)と64bitの違いなのか・・・
ほぼお手上げですね。
取り敢えず私は
Microsoft Access データベース エンジン 2010 再頒布可能コンポーネント
https://www.microsoft.com/ja-jp/download/details …
これを入れたので上記は出来ましたが、Office(特にAccess?)が最新版とかなら、入れると問題になるかもです。
特にOSが64bit・Officeが32bitだと変になるとか何とか。
取り敢えず参照設定で接続は出来たのにSQL文がダメって事は、システム環境の違いで回答しても無理っぽいのかな?
ご自身の環境(OS・Officeのバージョン及び何bitなど)を補足しておいた方が別の回答が付くかもですね。
ここまでお付き合い有難うございました。
なかなかなんでも簡単にはいかないですね
次期冬休みが近いので、その時また、
挑戦します。
有難うございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
SQL Loaderを使いたい
-
「最高気温が35度以上の日を猛...
-
SQL Server 2005 Expressでbcp...
-
SQLServerへのOpen命令でのエラー
-
GROUP BYでエラーが発生
-
アクセスの質問です。
-
DTexec でSSISパッケージを実行...
-
SQLサーバー接続 特定のPCがWin...
-
バッチでのSQL実行結果の分岐処...
-
ユーザー定義関数内でのsp_exec...
-
自作関数を含んだクエリをエク...
-
静的SQL、動的SQL?
-
SQL Serverの移行について
-
既定のインスタンスと名前付き...
-
SQLのエラー(~付近に不適切な...
-
IIS+SQLServer2008(2012,2014,2...
-
Windows認証できない
-
ACCESSで作成したアプリケーシ...
-
Oracle 8i コンマ(,)を含むデ...
-
sql serveについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQL Loaderを使いたい
-
RDOでrowcountが1以上なのに、E...
-
Oracle 11g R2のインストール...
-
SQL Server 2008をインストール...
-
Buffalo "Terastation"にMySQL...
-
インストール可能なISAMド...
-
オラクルのインストール
-
64bitのSQL Server 2005
-
XPにSQLServer2000(StandardE...
-
Access2000のイメージに.jpg
-
OracleJDK17をインストールすれ...
-
SQL Server 2005 EXPRESS イン...
-
インストール後のパッチ適用に...
-
SQLSERVER2008 R2インストール
-
Access2000 を 2000serverに導...
-
SQL SerVer 2008 Express イン...
-
SQLServerのインストールについて
-
オラクルをノートパソコンにイ...
-
SQL Server 2000 の評価版 再...
-
SQL研修で使うSQLツール
おすすめ情報