|
Asaki さん 本当にありがとうございます。
Sub test_all()
Dim sh As Worksheet
Dim str As String
For Each sh In Worksheets
'シートを違うファイルにコピー
sh.copy
'シート名取得
str = sh.name
'保存処理
sh.SaveAs Filename:= _
"C:\Documents and Settings\mikan\デスクトップ\" _
& str & ".xls"
Close
Next sh
に直してみたのですが、これだとコピーしたファイルが保存されず
元のファイルがシート名ごとに保存されるままです。
(ファイルには全部のシートがついています。)
そして、同時にシートごとに振り分けられたBook1、Book2ができるのですが
保存できていません。
sh.save がいけないと思うのですが
コピーしたシートを保存するにはどうしたらいいのでしょう。
コピーしたシートを格納し、
例えば
cp=sh.Copy
とかをつくり
cp.SaveAs Filename:=
としようとしたら、cp=sh.Copyでエラーがでてしまいました。。。
よろしくお願いします。
|
|