Excelのマクロについて教えてください。 セル値をファイル名にして指定フォルダ内にマクロ有効方式でファイルを保存する方法を教えてください。 マクロ有効テンプレート方式で保存している作業ブックがあります。 この作業ブックを利用して、受付シートに必要事項を記載して その後、 マクロを実行すると 1.不要なシートを削除し 2.シート名「青紙表」のセル値「CE2」をファイル名にし 3.指定フォルダ「 "\¥nas-sp01\share\確認部\電子申請 関連\★フラット35（設計・中間）\フラット物件データ\"に 4.マクロ有効保存方式で保存でき 5.指定フォルダ内に保存されたファイルは「クローズ」して 6.作業途中のブックは「開いたままの状態にする方法を教えてください。 今まで色々と教えて頂きて、 Sub 電子フラット保存() On Error Resume Next Application.DisplayAlerts = False Sheets(Array("管理表", "青紙表", "青紙裏", "地方照会", "札幌道路", "札幌宅地", "札幌開発", "1", "INDX", "仮使用INDX", "崖", "審査", "旭川市", "釧路市", "札幌市", "室蘭市", "小樽市", "帯広市", "苫小牧市", "函館市", "北見市", "北海道", "江別市", "細則", "1号確認", "4号完了", "角地", "真北", "自衛隊", "消防事", "札幌消防", "消防添", "建蔽・容積按分", "10", "100", "300", "500")).Delete Application.DisplayAlerts = True Application.ScreenUpdating = False Const folder As String = "\¥nas-sp01\share\確認部\電子申請 関連\★フラット35（設計・中間）\フラット物件データ\" Dim newName As Variant newName = folder & Range("CE2").Value & ".xlsm" Dim WS As Worksheet Dim TargetCheck As String Dim List As Variant Dim i As Long For i = 0 To UBound(List) If WS.Name = List(i) Then Chk = True Exit For End If Next i If Chk = False Then TargetCheck = TargetCheck & WS.Name & vbCrLf Application.DisplayAlerts = False WS.Delete Application.DisplayAlerts = True End If ThisWorkbook.SaveAs newName, xlOpenXMLWorkbookMacroEnabled Application.ScreenUpdating = True Application.Quit With ThisWorkbook .Saved = True .Close False End With End Sub を設定しておりますが、上記の「1~6」までが上手く実行できません。 解決方法をお願いいたします。
Visual Basic
