|
みなさん ありがとうございます。
こんなに親切に教えていただいているのに
なかなかできないで悲しくなってきます。
エラーがでてしまったのでまた助けていただけると
ありがたく思います。
Sub test_all()
Dim sh As Worksheet
Dim str As String
For Each sh In Worksheets
'シート名取得
str = sh.name
'シートを違うファイルにコピー
ActiveSheets.Select
ActiveSheets.Copy
'保存処理
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\mikan\デスクトップ\" _
& str & ".xls"
Next sh
End Sub
としたのですが、ActiveSheets.Selectでエラーになります。
記録マクロでやるとSheet("みかん").select になってしまい
みかんという名前のSheetしかselectされないですよね。
なのでActiveSheetかな?と思って作ってみたらだめでした。
|
|