| 投稿日 | ： 2005/01/13(Thu) 18:18 |
| 投稿者 | ： INA |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 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
みたいに。