|
ウィンドウス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
====================
どこを直せばよいのか分からず、困っています。
コピー元と、コピー先がきちんと指定できていないということでしょうか。
どうぞ宜しく御願いします。
|
|