特定のシートをフォルダに保存中にエラーが発生しました。

Question

シートBUがあります。シートBUには4つのボタンがあります。 4つのボタンのうち、Saveというボタンがあります。

この保存ボタンを使用して、シートBUを特定のフォルダに保存しています。

BUはXlsmファイルで、同じシートBUをxlsxとして保存します。

以下のコードがあります。しかし、私が実装しようとするたびにエラーが表示される

次のマクロはマクロのフリーブックに保存することはできません。

誰でもこの問題を解決するのに役立つでしょうか？

私は、以下のプログラムを使用しています、私もXLSMに保存しようとした、そのくぼみ仕事

Sub save() 
Dim myWorksheets() As String 
Dim newWB As Workbook 
Dim CurrWB As Workbook 
Dim i As Integer 
Dim path1, Path2 As String 
path1 = ThisWorkbook.Path 
Path2 = path1 & "\Arc\Mat\" 
Set CurrWB = ThisWorkbook 
myWorksheets = Split("BU", ",") 
For i = LBound(myWorksheets) To UBound(myWorksheets) 
Set newWB = Workbooks.Add 
CurrWB.Sheets(Trim(myWorksheets(i))).Copy Before:=newWB.Sheets(1) 
newWB.SaveAs filename:=Path2 & Format(Now(), "ww") & myWorksheets(i) & ".xls" 
newWB.Close SaveChanges:=False 
Next i 
Application.ScreenUpdating = False 
MsgBox ("File Saved") 
End Sub 

Answer 1

ので、同様：

Sub save() 
    Dim newWB As Workbook 
    Dim CurrWB As Workbook 
    Dim i As Integer 
    Dim path1, Path2 As String 
    path1 = ThisWorkbook.Path 
    Path2 = path1 & "\Arc\Mat\" 
    Set CurrWB = ThisWorkbook 
    myWorksheets = Split("BU", ",") 
    For i = LBound(myWorksheets) To UBound(myWorksheets) 
     Set newWB = Workbooks.Add 
     CurrWB.Sheets(Trim(myWorksheets(i))).Copy Before:=newWB.Sheets(1) 
     'Prevent message about VBA: 
     Application.DisplayAlerts = False 
     newWB.SaveAs Filename:=Path2 & Format(Now(), "ww") & myWorksheets(i) & ".xlsx", FileFormat:=xlOpenXMLWorkbook 
     Application.DisplayAlerts = True 
     newWB.Close SaveChanges:=False 
    Next i 
    Application.ScreenUpdating = False 
    MsgBox ("File Saved") 
End Sub 

それは常にBUシートである場合、これが可能短縮されたもの：

ThisWorkbook.Worksheets("BU").Copy 
Application.DisplayAlerts = False 
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Arc\Mat\" & Format(Now(), "ww") & " BU.xlsx", FileFormat:=xlOpenXMLWorkbook 
Application.DisplayAlerts = True 
ActiveWorkbook.Close SaveChanges:=False