VBScriptで、ADOを使ってCSVファイルのデータを読み込みたいのですが、
うまういきません。
CSVファイル(Data.csv)の内容は下記です。
item1,item2
AA1,BB1
AA2,BB2
AA3,BB3
プログラムの内容は、下記です。
'ADOオブジェクトを作成
Set objADO = CreateObject("ADODB.Connection")
'ADOを使いCSVファイルを扱う準備(オープン)を行う
objADO.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
"DBQ=C:\Documents and Settings\houjyou-n\デスクトップ;" & _
"ReadOnly=1"
'SQLを実行し、当該タスクのデータを抽出します
Set objRS = objADO.Execute("select * from Data.csv where item1 = 'AA3'")
If Not objRS.Eof Then
If objRS("item2") = "BB3" Then
Flg = True
End If
End If
'レコードセットをクローズobjRS.Close
objRS.Close
'ADOオブジェクトをクローズ
objADO.Close
実行すると、「オブジェクト'Data.csv'が見つかりませんでした。オブジェクトが存在していること、名前やパス名が正しいことを確認してください。」というエラーが出ます。
パスもファイル名も間違っていないのですが、何がいけないのでしょうか。
手がかりになることがあれば、何でも教えていただければ幸いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
Excelでフィルタをかけると警告...
-
「Columns("A:C")」の列文字を...
-
オブジェクトが見つかりません
-
実行時エラー 3265「要求された...
-
エクセルのVBAの標準モジュール...
-
上下の位置揃えについて
-
VBA:オートシェイプの線の長...
-
PowerPointVBAでスライドマスタ...
-
EXCEL VBA オートシェイプナン...
-
[VBA]CDOメッセージ送信エラー
-
VBAで Set wb = Sheets(1).Cop...
-
エクセルマクロエラー「'Cells'...
-
VBAで既に開いている別アプリケ...
-
Shell.ApplicationのNameSpace...
-
ExcelのVBAについて(グラフ操作)
-
VBAからPDFファイルにパスワー...
-
横軸ラベルの追加に関するエラ...
-
VBScriptからDLL参照設定したい
-
【VB】【エクセル操作】 SaveAs...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
worksheetFunctionクラスのVloo...
-
「Columns("A:C")」の列文字を...
-
エクセルのVBAの標準モジュール...
-
実行時エラー 3265「要求された...
-
VBAで既に開いている別アプリケ...
-
Excelでフィルタをかけると警告...
-
オブジェクトが見つかりません
-
EXCEL VBA オートシェイプナン...
-
VBAからPDFファイルにパスワー...
-
エクセルマクロエラー「'Cells'...
-
ある文字列が全て数字であるか...
-
VBAで Set wb = Sheets(1).Cop...
-
AccessVBAで「dim dbs as datab...
-
上下の位置揃えについて
-
Excel VBA Collection.add で R...
-
UserForm1.Showでエラーになり...
-
VBScriptでファイルの日時順(降...
-
テキストボックス中の文字列の...
-
ExcelVBAでのNZ関数について
-
PowerPointVBAでスライドマスタ...
おすすめ情報