|
こんな素人に丁寧に解答してくださってありがとうございます。
やはり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で切り替えてからでないとコピーペーストできないのでしょうか?
|
|