忙しい現代人の腰&肩のお悩み対策!

EXcel2007でマクロ作成中の初心者です。
 以下のコードを実行すると、追加されたシート名が 「H24年5月度-4143」となってしまいます。
これを「H24年5月度」にするにはどうしたらよろしいでしょうか。

Sub 年間常用シートの保存() 'シートの毎月挿入
Application.ScreenUpdating = False
Dim myPath As String
Dim WBK As Workbook
Dim WBK1 As Workbook
Dim SN As String
myPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\雇用関係\H24年データ"
Set WBK = Workbooks.Open(myPath & "\集計表.xlsm")
Workbooks("24年度計算.xlsm").Activate
Worksheets("集計1").Select
SN = Format(Worksheets("集計1").Range("P3").Value, "ge年m月度") & Excel.XlFileFormat.xlWorkbookNormal
On Error Resume Next
'※既に年間集計表に"ge年m月度"が有れば削除
Application.DisplayAlerts = False
WBK.Worksheets(SN).Delete
Application.DisplayAlerts = True
On Error GoTo 0
'"ge年m月度"シートを年間集計表の最前列のシートの前に追加
Worksheets("集計1").Copy Before:=Workbooks("集計表.xlsm").Sheets(1)
'End With
ActiveSheet.Name = SN
'集計表を上書き保存
WBK.Close True
End Sub

A 回答 (1件)

> SN = Format(Worksheets("集計1").Range("P3").Value, "ge年m月度") & Excel.XlFileFormat.xlWorkbookNormal



Excel.XlFileFormat.xlWorkbookNormalを付けなければ良いのでは。
何か想いがあるなら別ですが。
    • good
    • 0
この回答へのお礼

ありがとうございました

お礼日時:2012/05/25 07:49

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング