Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45183 / 76735

←次へ　｜　前へ→


	【36554】みなさんご回答ありがとうございます。。

エラーやだヽ(´･ω･`)ﾉ - 06/4/3(月) 11:58 -


	引用なし

	パスワード

こんな素人に丁寧に解答してくださってありがとうございます。

やはりselect(activate)しないとエラーがでるというのは私の記述ミスということですね・・・＞＜

ちょうどまたエラーだしちゃったので例示にでも

*********************************************************************
　Set wb = ThisWorkbook
　Set Mws = Worksheets("マスター")
　Set SMws = Worksheets("商品マスター")
　
　Application.ScreenUpdating = False
　　SMws.Activate
　　SMws.Cells(1, "C").AutoFilter
　　Range("A2:BA2").Select
　　Range(Selection, Selection.End(xlDown)).Select
　　Selection.ClearContents
　　Workbooks.OpenText Filename:= _
　　mypath & "\Shohin.txt", DataType:=xlDelimited, Tab:=True
　　Workbooks("shohin.txt").Activate
　　With Workbooks("Shohin.txt").Worksheets("Shohin")
　　　.Range(.Cells(1, "C"), .Cells(1, "C").End(xlDown)).Copy
　　　wb.SMws.Cells(2, "A").PasteSpecial Paste:=xlPasteValues←ここでエラー
　　　.Range(.Cells(1, "D"), .Cells(1, "C").End(xlDown)).Copy
　　　wb.SMws.Cells(2, "B").PasteSpecial Paste:=xlPasteValues
　　　.Range(.Cells(1, "O"), .Cells(1, "C").End(xlDown)).Copy
　　　wb.SMws.Cells(2, "D").PasteSpecial Paste:=xlPasteValues
　　　.Range(.Cells(1, "P"), .Cells(1, "C").End(xlDown)).Copy
　　　wb.SMws.Cells(2, "E").PasteSpecial Paste:=xlPasteValues
　　　.Range(.Cells(1, "Y"), .Cells(1, "C").End(xlDown)).Copy
　　　wb.SMws.Cells(2, "F").PasteSpecial Paste:=xlPasteValues
　　End With
***********************************************************************

これはボタンを押したらtxtファイルからデータを読み込んでthisbookのマスターを更新するという部分なんですが、workbookはacivateで切り替えてからでないとコピーペーストできないのでしょうか？

0 hits

▼

【36495】基本なのでしょうが・・・・ エラーやだヽ(´･ω･`)ﾉ 06/4/2(日) 1:48