投稿日 | : 2005/01/13(Thu) 18:18 |
投稿者 | : INA |
Eメール | : |
URL | : |
タイトル | : Re: シートの保護を解除するとエラーが出ます |
>Windows(NITC.csv).Activate
↓
Windows("NITC.csv").Activate では?
Select しないで記述して方が良いですよ。
わざわざ選択しなくても、たいていの処理は出来ますから。
WorkBooks("NITC.csv").Worksheets("Sheet1").Range("A1:B10").Copy
WorkBooks("A.Xls").Worksheets("Sheet1").Range("A1").PasteSpecia
l _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
みたいに。