Excel VBA質問箱 IV

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

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


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

43245 / 76735

←次へ　｜　前へ→


	【38540】Re:特定の文字が入ったデータ削除

an - 06/6/6(火) 10:47 -


	引用なし

	パスワード

▼ハチさん：

ありがとうございました。

別トピックを立てたほうがいいと思いますが、
図々しく質問しても良いでしょうか？

テンプレートファイルを作っていろいろなマクロ処理し、
そのテンプレートファイルの中の4枚のシートをコピーして
保存後、特定の数人に添付ファイルで送る操作を毎月しています。
（今回の質問もその処理のうちの一つです）
そこでですが、印刷マクロ（モジュール）も添付ファイルに
コピーして送ることは出来ますか？
ボタンを押したら各シート一度に印刷できるようにしたいのです。
お分かりでしたらアドバイス頂けると助かります。

現在のコピー部分のコード↓

Dim myfolder As String, mycode As String
　　　　　 Const mypath As String = "\\test\"
　　　　
　　　　　 With Sheets(Array("abc", "def", "ghi", "jkl"))
　　　　　　　
　　　　　　　.Copy
　　　　　 End With
　　　　　Dim foldnm As String
　　　　　myfolder = Sheets("abc").Range("D2").Value
　　　　　mycode = Sheets("def").Range("E2") & "-"
　　　　　mycode2 = Sheets("ghi").Range("F2")
　　　　　ActiveWorkbook.SaveAs Filename:=mypath & myfolder & mycode & mycode2 & ".xls"
　　　　　ActiveWorkbook.Close

宜しくお願いします。

0 hits

▼

【38502】特定の文字が入ったデータ削除 an 06/6/5(月) 13:40