ExcelのVBAにてSQLのSELECT文を実行し、取得したデータを一覧表示する仕組みを作っています。
同じプログラムを使用者する者7名の内、1名のみ以下のエラーが発生しています。
どのように対応すればよいか、ご教示ください。
環境 Excel2010
状況 SELECTの実行時
「実行時エラー[80004005]
[Microsoft][ODBC Driver Manager] データ ソース名および指定された既定のドライバーが見つかりません。」
実行ソース
Private Sub exeSelect(sheetNm as string ,sqlSt as String)
Dim i As Integer
Dim j As Integer
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim bookNm As String
bookNm = ThisWorkbook.FullName
Set cn = New ADODB.Connection
cn.Provider = "MSDASQL"
cn.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & "DBQ=" & bookNm & "; ReadOnly=False;"
cn.Open←ここでエラー
Set rs = New ADODB.Recordset
rs.Open sqlSt, cn, adOpenStatic
j = START_ROW
Do Until rs.EOF
For i = 0 To rs.Fields.Count - 1
Worksheets(sheetNm).Cells(j, i + 1).Value = rs(i).Value
Next
j = j + 1
rs.MoveNext
Loop
rs.Close
cn.Close
End Sub
No.1ベストアンサー
- 回答日時:
>[Microsoft][ODBC Driver Manager] データ ソース名および指定された既定のドライバーが見つかりません。
」上記より、ODBC系のエラーというのはわかります
>同じプログラムを使用者する者7名の内、1名のみ以下のエラーが発生しています。
という事を考えれば、その人のPCの問題と考えられます(ほぼ確定)
ので、問題となっているPCにて、ODBC設定を見る必要があります
コントロールパネル - 管理ツール - データソース(ODBC)を開き
正常PCと見比べてください
違いがない場合、一度削除して作り直すことで直る事も有
※削除より今使っているODBCのデータソース名を変えておいて、作り直す
上記でだめなら
Microsoft Excel Driverが壊れているものと思われますので
Excel自体を導入し直せば大抵は直ります。
早速のご回答有難うございます。
ODBC設定に不備は見当たらなく、作り直してみましたが、状況変わりませんでした。
Excelを導入し直してみます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) Excel vbaについての質問 3 2023/04/18 16:14
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
実行時エラー'-2147467259(80004005)':
Access(アクセス)
-
データソース名および指定された既定のドライバが見つかりません。
Oracle
-
ODBCの接続に失敗しました(3146)について
その他(Microsoft Office)
-
-
4
ADOのCursorLocationプロパティ
Visual Basic(VBA)
-
5
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
6
実行時エラー -2147217900 ADODBでレコードセットオープン時エラー
Access(アクセス)
-
7
特定のPCだけ動作しないVBAマクロがあります。その理由は?
Visual Basic(VBA)
-
8
システムエラーです:&H80004005(-2147467259)エラーを特定できません 現在、エク
Excel(エクセル)
-
9
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
10
ACCESSで作成したアプリケーションがACCESSランタイムで動かない?
Access(アクセス)
-
11
実行時エラー80004005
MySQL
-
12
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
13
ウォッチ式の文字数制限について
Visual Basic(VBA)
-
14
ORA-01013のエラーについて経験のある方お願いします。
Oracle
-
15
SQL文で、合計が0のレコードを表示させないようにしたい。
SQL Server
-
16
エクセルVBA ユーザーフォームのtextboxの書式設定って?
Excel(エクセル)
-
17
実行時エラー -'-2147417848
Excel(エクセル)
-
18
VBAでActiveDirectoryのユーザ一覧の取得の仕方
Visual Basic(VBA)
-
19
異なるサーバのDBデータ同士を結合するには?
Oracle
-
20
ExcelVBA ファイルクローズ時にエラーとなる
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
VBAでfunctionを利用しようとし...
-
String""から型'Double'への変...
-
マクロで"#N/A"のエラー行を削...
-
お助けください!VBAのファイル...
-
エクセルVBA 「On Error GoTo...
-
Excel vbaについての質問
-
データベース操作時エラーについて
-
実行時エラー 438 の解決策をお...
-
インポート時のエラー「データ...
-
ACCESSで値を代入できないとは?
-
実行したSQLの結果を返す方法
-
On ErrorでエラーNoが0
-
マクロの「SaveAs」でエラーが...
-
オブジェクト型の変数にフォー...
-
【VB.NET】 パワポ操作を非表示で
-
VB.NETでMessageBoxが表示され...
-
実行時エラー'-2147467259(8000...
-
VB.net 重複チェックがしたいです
-
Filter関数を用いた結果、何も...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
On ErrorでエラーNoが0
-
VBAでfunctionを利用しようとし...
-
マクロで"#N/A"のエラー行を削...
-
VBA データ(特定値)のある最...
-
実行時エラー 438 の解決策をお...
-
お助けください!VBAのファイル...
-
文字列内で括弧を使うには
-
エクセルVBA 「On Error GoTo...
-
【VBA】ワークブックを開く時に...
-
マクロの「SaveAs」でエラーが...
-
ACCESSで値を代入できないとは?
-
実行時エラー'-2147467259(8000...
-
インポート時のエラー「データ...
-
【VB.NET】 パワポ操作を非表示で
-
Filter関数を用いた結果、何も...
-
UBoundに配列がありませんとエ...
-
Excel vbaについての質問
-
メールの件名のセットでエラー...
おすすめ情報