使用xlsx.format将Excel文档导出到Excel时出错。

Question

目前我需要将我的代码从旧版本的microsoft excel扩展修改为更新版本。这是从.xls到xlsx。我不确定为什么它会给出“找不到文件”的错误。

下面的

是创建Excel工作表的Lotus脚本代理的一部分。

    Dim xl, xlwbk, xlsht, template$, ori$
    Set xl = CreateObject("Excel.Application")
'   ori = "C:\Cargo Reports\importINV - GST.xls"
    ori = "C:\Cargo Reports\importINV - GST.xlsx"
'   template = path + "importINV - GST (" + Format$(Now, "d.m.yyyy-h.nn.ssAM/PM") +").xls"
    template = path + "importINV - GST (" + Format$(Now, "d.m.yyyy-h.nn.ssAM/PM") +").xlsx"
    FileCopy ori, template
    Set xlwbk = xl.Workbooks.open(template)
    Set xlsht = xlwbk.ActiveSheet   

    xlsht.columns("A:T").entirecolumn.autofit

    xl.visible = True 
    Print "Export Invoice - GST complete!"

如果成功创建更改回xls。

有人能指出正确的创建新版excel文件扩展名的方法吗？