Excel VBA質問箱 IV

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

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


70094 / 76734 ←次へ | 前へ→

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

引用なし
パスワード
   みなさん ありがとうございます。
こんなに親切に教えていただいているのに
なかなかできないで悲しくなってきます。
エラーがでてしまったのでまた助けていただけると
ありがたく思います。

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かな?と思って作ってみたらだめでした。
1 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 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free