Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16342 / 76807

←次へ　｜　前へ→


	【65934】シートコピーで、シートの値を取得したい

ゆめこ - 10/7/9(金) 4:28 -


	引用なし

	パスワード

ウィンドウスXP　エクセル2007、ＶＢＡ初心者です。

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

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

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

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

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

0 hits

▼

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

≪