|
▼Blue さん:
>マクロのあるBookと、Sheet名にしたいファイルは別なんでしょうか?
>それと、どのようにそれらのファイルを指定するのでしょうか?
>すでに開いているとか、あるフォルダにあるすべてのBookという風に限定できなければ
>難しいと思いますが。
ありがとうございました。
説明不足ですみませんm(__)m
教えを請い、↓このように記述し上手くいきました。
Sub NameSheetCopy()
Dim strName As String
Dim Wst As Worksheet
'On Error Resume Next
Application.ScreenUpdating = False
For Each Wst In ThisWorkbook.Worksheets
strName = "C:\Documents and Settings\My Documents\tarou\" & Wst.Name & ".xls"
Wst.Copy
ActiveWorkbook.Close True, strName
Next Wst
Application.ScreenUpdating = True
End Sub
|
|