エクセルマクロに詳しい方、宜しくお願いしますm(_ _)m
マクロの自動記録後にエラーが出て、自分なりに修正しても
“450”“438”エラーが
出てしまいます。。
何も分かっていない超初心者です。。解決方法を教えてください。
m(_ _)m
マクロ自動記録でしたことは、
①まずsheet1に、C:\買い物リスト\TXT\買い物.csvを、
テキストファイルウィザードでカンマ区切りのみで、「データのプレビュー」を全選択して“文字列”で$A$1に開く。
②次にsheet2に、C:\買い物リスト\TXT\欲しかったもの.csv.を
テキストファイルウィザードでカンマ区切りのみで、「データのプレビュー」を全選択して“文字列”で$A$1に開く。
③sheet1のC2に、=IFERROR(VLOOKUP(A2,Sheet2!$A$2:$C$2976,3,0),20)を入力して実行。
④そのVLOOKUP関数で返ってきた値を、一番下までオートフィル。
⑤sheet1のD2に、=B2&","&C2 を入力
⑥返ってきた値を、一番下までオートフィル。
⑦その返ってきた値を“ctrl+shift+↓”で全選択し(D列のみ全選択)コピー。
これで完了です。
マクロの記録を行ったところ、エラーで返ってきて、デバッグを開いたら、
1行目の
ActiveSheet.QueryTables.Add Destination:=Selection
のところに“450”エラーが返ってきたので、まずActiveSheet.QueryTables.Add(Connection:="C:\買い物リスト\TXT\買い物.csv", Destination:=ws.Range("A1"))
と入力したのですが、
その次は2行目の
ActiveSheet.QueryTables.QueryTable.Refresh
のところで“438”エラー“オブジェクトは、このプロパティーをサポートしていないません。”と返ってきました。ここは何をしてもエラーが直らなかったです。。
Sub Macro2()
'
' Macro2 Macro
' ○○によるマクロの記録、 日付:2018/07/11
'
'
ActiveSheet.QueryTables.Add Destination:=Selection
ActiveSheet.QueryTables.QueryTable.Refresh
ActiveWindow.ScrollRow = 1
Sheets("Sheet1").Activate
Windows("Book17").Activate
Sheets("Sheet2").Activate
ActiveSheet.QueryTables.Add Destination:=Selection
ActiveSheet.QueryTables.QueryTable.Refresh
Sheets("Sheet1").Activate
Range("C2").Select
Selection.FormulaR1C1 = "=IFERROR(VLOOKUP(A2,Sheet2!$A$2:$C$2976,3,0)," & """" & "20" & """" & ")"
Range("C2").Select
Selection.AutoFill Destination:=Range("C2:C513"), Type:=xlFillDefault
Range("C2:C513").Select
ActiveWindow.ScrollRow = 487
Range("D1").Select
ActiveWindow.ScrollRow = 1
Range("D2").Select
Selection.FormulaR1C1 = "=B2&" & """" & "," & """" & "&C2"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D513"), Type:=xlFillDefault
Range("D2:D513").Select
ActiveWindow.ScrollRow = 487
Selection.Copy
End Sub
分からないことだらけなのですが、、
どこを直せば動くのでしょうか?解決方法を教えて下さい!どうぞ宜しくお願いします!!
No.1ベストアンサー
- 回答日時:
> ActiveSheet.QueryTables.Add Destination:=Selection
> ActiveSheet.QueryTables.QueryTable.Refresh
マクロの記録を行っても上の様な内容にはなりませんでした、Excelのバージョンによって異なるのかな?
それに、ActiveSheet.QueryTablesはコレクションなので、後ろにQueryTableがくっつくような書き方はできないと思います。
QueryTables オブジェクト (Excel)
https://msdn.microsoft.com/ja-jp/vba/excel-vba/a …
この部分は↓のようにするのではないでしょうか?
こちらでマクロの記録を行い不要部分を削除して作成しました。
Sheet2へ読む方も同様だと思います。
With Worksheets("Sheet1").QueryTables.Add(Connection:= "TEXT;C:\買い物リスト\TXT\買い物.csv", Destination:=Range("$A$1"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
こちらの環境は、Excel2010ですが動作しました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) Excelのマクロ ブック間である範囲をコピー Workbooks(“a.xlsx“).Sheets 3 2022/05/12 17:02
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Excel(エクセル) エクセル 値をコピペした時に、条件付き書式で塗られた背景色もペーストさせる 2 2023/04/05 17:21
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
pdfの表をexcelにはりつけて計...
-
Excelのデーターを消して保存し...
-
exselの質問です
-
Excelの数式について教えてくだ...
-
エクセルの「赤」の印刷がうま...
-
エクセルで特定のセルに入力が...
-
関数の説明
-
[オプション]の[アクセスビリテ...
-
Excelについて
-
エクセル おすすめフォント
-
CSVファイルについて質問です。
-
エクセルの「入力規則」のプル...
-
Excelにいついて質問です。
-
Excelの関数について教えてくだ...
-
一つのセルに(例えばA1)入力...
-
VBAについての質問です
-
エクセルファイルがファイルの...
-
エクセルであるセルに数字を入...
-
Excelでセルの値が同じか...
-
UNIQUE関数が使えないバージョ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報