テンプレートからマクロが有効なブックを保存する

Question

マクロが有効なテンプレートからマクロが有効なファイルを保存するためのアクセスを取得しようとしています。

私は、次のエラーを取得：私はマクロを作るために[はい]をクリックした場合
1 - エクセルテンプレートは

2 - その後はThisWorkbookセクションにApplication.visible = Falseのを使用して隠されていますフリーブックに私は何をクリックした場合、私はこの実行時エラー

を取得していない次のランタイムエラー

3-取得します

このは私が使用していますコード：

Workorder = Me.TxtWorkOrder & "_" & Me.TxtActOrder 

Set xlapp = New Excel.Application 

xlapp.Visible = False 
Excel.Application.EnableEvents = False 

Set Wb = xlapp.Workbooks.Open("H:\Template and testers\Template\TabletTemplate.xltm") 
Set ws = xlapp.Worksheets("Profile") 

ws.Activate 
    If Me.TxtWorkOCheck = 1 Then 
     'workorder 
     With ws 
      .Range("B1") = Me.TxtWorkOrder 
      .Range("B2") = Me.TxtUserID 
      .Range("B3") = Me.TxtJobsiteID 
      .Range("B4") = Me.CboPlant.Value 
      .Range("B5") = Me.CboArea.Value 
      .Range("B6") = Me.TxtScaffoldID 
      .Range("B7") = Me.TxtActOrder 
      .Range("B10") = output 
      .Range("B11") = Me.TxtFuncLocation 

     End With 
    Else 
     'sub-workorder 
     With ws 
      .Range("B8") = Me.TxtWorkOrder 
      .Range("B2") = Me.TxtUserID 
      .Range("B3") = Me.TxtJobsiteID 
      .Range("B4") = Me.CboPlant.Value 
      .Range("B5") = Me.CboArea.Value 
      .Range("B6") = Me.TxtScaffoldID 
      .Range("B9") = Me.TxtActOrder 
      .Range("B1") = Me.TxtAssoWorkOrder 
      .Range("B10") = output 
      .Range("B11") = Me.TxtFuncLocation 
      .Range("F1") = 0 
     End With 
    End If 

xlapp.Worksheets("ScaffoldList").Activate 
Wb.SaveAs ("H:\ActiveWorkOrders\ToGather\" & Workorder & ".xlsm") 
Excel.Application.EnableEvents = True 

Wb.Close 
Set xlapp = Nothing 

Answer 1

あなたが実際にあなたがとして保存しているタイプを指定する必要があり、拡張子を指定するだけでは十分ではありません。

次によりエラーを与える行を置き換えます

Wb.SaveAs "H:\ActiveWorkOrders\ToGather\" & Workorder & ".xlsm", xlOpenXMLWorkbookMacroEnabled

はそれが簡単にそれを作る、その後まあ細かいSaveAs方法