エクセルマクロ初心者です。教えてください。

質問

エクセルマクロ初心者です。
仕事で使うエクセルにマクロを本をまねたりウェブで調べたりして見よう見まねで組んでみました。
稟議書ナンバー（L1)をファイル名として別フォルダに保存してそのまま閉じるマクロを作成できたのですが、別フォルダに保存したときに一緒にマクロも保存されてしまいます。
マクロは保存せずに別フォルダに稟議書シートのみ保存したいのですがどのようにすればよいのでしょうか。

以下がファイル保存のマクロです。
Sub booksave()
'
' booksave Macro
' マクロ記録日 : 2009/3/30 ユーザー名 :
'

'
Dim myFileName As String '稟議No.
myFileName = Range("l1").Value '稟議No.を変数に取得する

ChDir "F:\稟議書"
Sheets("表").Copy
ChDir "F:\稟議書\稟議書保存"
ActiveWorkbook.SaveAs Filename:="F:\稟議書\稟議書保存\" & myFileName & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.Close

End Sub

どうぞよろしくお願いいたします。

回答No.3

hotosys

こんなのではどうでしょうか？
Sub booksave()
Dim myFileName As String '稟議No.
myFileName = Range("l1").Value '稟議No.を変数に取得する
Sheets("表").Copy
With ActiveWorkbook.VBProject.VBComponents("Sheet1").CodeModule
.DeleteLines 1, .CountOfLines
End With
ActiveWorkbook.SaveAs Filename:="F:\稟議書\稟議書保存\" & myFileName
ActiveWorkbook.Close
End Sub

お礼

hotosysさん

こちらも試してみます。
ありがとうございます。
いろいろな方法があるのですね
参考になります。

回答No.2

n-jun

Sub try()
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer

Set ws = ActiveSheet

Workbooks.Add
Set wb = ActiveWorkbook

If wb.Worksheets.Count > 1 Then
For i = wb.Worksheets.Count To 2 Step -1
Application.DisplayAlerts = False
wb.Worksheets(i).Delete
Application.DisplayAlerts = True
Next
End If

ws.Cells.Copy wb.Worksheets(1).Range("A1")
wb.Worksheets(1).Name = ws.Name

wb.SaveAs Filename:="F:\稟議書\稟議書保存\" & ws.Range("l1").Value & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
wb.Close

Set wb = Nothing
Set ws = Nothing
End Sub

ご参考になれば。

お礼

n-junさん

とても参考になります。
明日、会社に行って試してみます。
ありがとうございます。

回答No.1

A88No8

こんにちは
私もマクロ初心者です。
肝心なマクロプログラムが作成されている場所はどこでしょう？
コードから見て、"表"シートにあるような．．
同じブック内でも標準モジュールとかに置いたらコピーされないような気がします。
外していたらごめんなさい。

お礼

A88No8さん
ご回答ありがとうございます。
早速確認してみます。

お礼が遅くなってすみません。