关于新建扩展名是.xlsm的工作簿的问题

weide_yang

想要参考以下代码新建一些.xlsm工作簿,未能成功，恳请高手赐教解决问题的代码，谢谢！


Sub 批量新建簿()
    Dim i&, p$, temp$
    On Error Resume Next    '忽略代码运行中的错误，避免存在异常名称工作簿等问题时，代码运行中断。
    Application.ScreenUpdating = False    '关闭屏幕刷新
    p = ThisWorkbook.Path & "\"    '取得当前工作薄所在路径
    For i = 1 To Cells(Rows.Count, 1).End(3).Row    '循环读取A列数据
        temp = Cells(i, 1) & ".xlsx"    'temp是完整的含文件后缀的工作薄名称

'''''''''修改.xlsx 为.xlsm后不能达成效果
   

     With Workbooks.Add    '新建工作薄
            .SaveAs p & temp    '保存工作薄，p & temp是要保存的文件的名称
            .Close False    '关闭工作薄
        End With
    Next
    MsgBox "同径中批量键簿完成。"
    Application.ScreenUpdating = True    '恢复屏幕刷新
End Sub

perfect131

saveas FileName,FileFormat
FileFormat 没写,还有 后缀也不对


temp = Cells(i, 1) & ".xlsm" ''这里需要改

.SaveAs p & temp , 52  ''要加 52

gwjkkkkk

Sub 批量新建簿()
    Dim i&, p$, temp$
    On Error Resume Next    '忽略代码运行中的错误，避免存在异常名称工作簿等问题时，代码运行中断。
    Application.ScreenUpdating = False    '关闭屏幕刷新
    p = ThisWorkbook.Path & "\"    '取得当前工作薄所在路径
    For i = 1 To Cells(Rows.Count, 1).End(3).Row    '循环读取A列数据
        temp = Cells(i, 1)

'''''''''修改.xlsx 为.xlsm后不能达成效果


     With Workbooks.Add    '新建工作薄
            .SaveAs p & temp, 52    '保存工作薄，p & temp是要保存的文件的名称
            .Close False    '关闭工作薄
        End With
    Next
    MsgBox "同径中批量键簿完成。"
    Application.ScreenUpdating = True    '恢复屏幕刷新
End Sub

gwjkkkkk

请参考XlFileFormat 枚举 (Excel)类型