Excel VBA質問箱 IV

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

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


16267 / 76732 ←次へ | 前へ→

【65934】シートコピーで、シートの値を取得したい
質問  ゆめこ  - 10/7/9(金) 4:28 -

引用なし
パスワード
   ウィンドウスXP エクセル2007、VBA初心者です。

あるエクセルファイルの中の、任意の1枚のシートをシートコピーして独立させ、メールで各部署に回覧したいので、以下の用なマクロを設定してみました。
====================

Sub ワークシートを新規ブツクにコピー()
 
  Worksheets("元のsheet").Copy
 
  ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & fn & "新しいsheet 回覧用.xlsx " 
  
End Sub
====================
シートコピーや、ファイル名の取得は上手くいくのですが、
元シートが、vlookupなど、他シートを参照して作成されているため、
回覧用のシートにも参照式がコピーされてしまいます。
計算式はコピーせずに、シート全体の値のみをコピーしたいと思い、
以下のように変更してみましたが、デバックとなりました。

====================

Sub ワークシートを新規ブツクにコピー()
 
  Worksheets("元のsheet").Copy
  Selection.PasteSpecial Paste:=xlPasteValues

  ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & fn & "回覧用.xlsx "
 
End Sub

====================

どこを直せばよいのか分からず、困っています。
コピー元と、コピー先がきちんと指定できていないということでしょうか。

どうぞ宜しく御願いします。

1 hits

【65934】シートコピーで、シートの値を取得したい ゆめこ 10/7/9(金) 4:28 質問
【65938】Re:シートコピーで、シートの値を取得したい Abebobo 10/7/9(金) 9:35 発言
【65939】Re:シートコピーで、シートの値を取得したい 超初心者 10/7/9(金) 9:59 発言
【65940】Re:シートコピーで、シートの値を取得したい teian 10/7/9(金) 10:12 発言
【65966】Re:シートの範囲コピーで、セルの値を取得... ゆめこ 10/7/11(日) 4:32 質問
【65967】Re:シートの範囲コピーで、セルの値を取得... りん 10/7/11(日) 7:31 発言
【65982】Re:シートの範囲コピーで、セルの値を取得... ゆめこ 10/7/12(月) 21:30 質問
【65985】Re:シートの範囲コピーで、セルの値を取得... りん 10/7/13(火) 7:01 発言
【66004】Re:シートの範囲コピーで、セルの値を取得... ゆめこ 10/7/14(水) 19:56 お礼

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