Word 2013新建后缀为“.xlsx”的Excel工作薄的代码

ke3088

以下代码是Word 2003新建后缀为“.xls”的Excel工作薄：
    If Dir("D:\PROTTPLO.xls", vbDirectory) = "" Then
       Dim ymExcel, xnXls As Object
       Set ymExcel = CreateObject("Excel.Application") '利用标识符启动Excel
       ymExcel.Visible = False 'True 显示 False 隐藏
       Set xnXls = ymExcel.Workbooks.Add '新建工作簿
       xnXls.SaveAs FileName:="D:\PROTTPLO.xls"
       xnXls.Sheets.Add
       With xnXls.Sheets("sheet3").Range("A1")
           .ColumnWidth = 33 '列宽
           .Value = "配置文件数据"
       End With
       With xnXls.Sheets("sheet3").Range("B1")
           .ColumnWidth = 22 '列宽
       End With
       With xnXls.Sheets("sheet3").Range("C1")
           .ColumnWidth = 22 '列宽
       End With
       With xnXls.Sheets("sheet3").Range("D1")
           .ColumnWidth = 22 '列宽
       End With
       With xnXls.Sheets("sheet3").Range("E1")
           .ColumnWidth = 36 '列宽
       End With
       With xnXls.Sheets("sheet3").Range("F1")
           .ColumnWidth = 8.5 '列宽
       End With
       xnXls.Sheets("sheet3").Visible = False '工作表，True 显示 False 隐藏      
       xnXls.Sheets("sheet1").Activate
       xnXls.Save '保存
       ymExcel.Quit '关闭Excel
       Set ymExcel = Nothing '释放引用Excel
    End If
以上代码在Word 2003能正常建立、保存和打开
将代码移植到Word 2013，并将代码中后缀“.xls”改为“.xlsx”，运行代码后新建的是后缀为“.xls”的Excel工作薄，打开时显示“文件是否存在或损坏”内容。
现向您请教：如何修改代码，才能中Word 2013使用？谢谢！

ke3088

通过网上查找代码，已经搞掂

相见是缘8

ke3088 发表于 2018-2-22 17:01
通过网上查找代码，已经搞掂

朋友、你好！

既然以搞定，何不贴出来让大家分亨一下，“众人拾柴火焰高”！这个论坛就是一个“人人帮我、我帮人人”的平台，大家“互通有无、共同提高”！我以前在另一个类似的论坛上，看到过一个 VBA 技术很高的大神曾经怒斥：那些帮别人写了代码又要密码打开，用图片形式贴出代码，不给代码只贴 gif 动画，动不动就训斥 VBA 小白，不给代码只留联系方式的人，是多此一举！故弄玄虚！装逼显耀！耍大牌！奸商！不愿帮别人可以不帮，弄这些没用的干什么？又想显耀又不想帮别人，怎么看都是欠揍！引起70多位坛友跟帖声讨这些人。也是、现在还有什么密码破解不了？训斥别人、忘了自己是小白的时候？真正有本事的人大多都很低调、谦和、乐于助人！！！

ke3088

相见是缘8 发表于 2018-2-23 08:04
朋友、你好！既然以搞定，何不贴出来让大家分亨一下，“众人拾柴火焰高”！这个论坛就是一个“人人帮我、 ...

在xnXls.SaveAs FileName:="D:\PROTTPLO.xls"之后直接加上
, FileFormat:=xlOpenXMLWorkbook '即可，要包含逗号哟

13907933959

相见是缘8 发表于 2018-2-23 08:04
朋友、你好！既然以搞定，何不贴出来让大家分亨一下，“众人拾柴火焰高”！这个论坛就是一个“人人帮我、 ...

网友好！
说得好！确实如此！！！

ke3088

补充一点：
把r所有的.xls改成.xlsx，然后：
在xnXls.SaveAs FileName:="D:\PROTTPLO.xlsx"之后直接加上
, FileFormat:=xlOpenXMLWorkbook '即可，要包含逗号哟

相见是缘8

ke3088 发表于 2018-2-23 10:25
补充一点：
把r所有的.xls改成.xlsx，然后：
在xnXls.SaveAs FileName:="D:\PROTTPLO.xlsx"之后直接加上
...

好的、谢谢！