Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


70094 / 76738 ←次へ | 前へ→

【11155】Re:sheetごとに保存したい
質問  みかん  - 04/3/1(月) 15:32 -

引用なし
パスワード
   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でエラーがでてしまいました。。。

よろしくお願いします。
0 hits

【11076】sheetごとに保存したい みかん 04/2/27(金) 12:02 質問
【11077】Re:sheetごとに保存したい IROC 04/2/27(金) 12:33 回答
【11078】Re:sheetごとに保存したい Asaki 04/2/27(金) 12:36 回答
【11088】Re:sheetごとに保存したい みかん 04/2/27(金) 16:08 質問
【11089】Re:sheetごとに保存したい Asaki 04/2/27(金) 16:14 回答
【11097】Re:sheetごとに保存したい アイエネス 04/2/27(金) 23:38 発言
【11114】Re:sheetごとに保存したい Asaki 04/2/28(土) 13:26 回答
【11151】Re:sheetごとに保存したい みかん 04/3/1(月) 14:04 質問
【11152】Re:sheetごとに保存したい Asaki 04/3/1(月) 14:15 回答
【11155】Re:sheetごとに保存したい みかん 04/3/1(月) 15:32 質問
【11156】Re:sheetごとに保存したい Asaki 04/3/1(月) 16:17 回答
【11159】Re:sheetごとに保存したい みかん 04/3/1(月) 16:33 お礼

70094 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free