Malay
颜色选择
阳光橙
深夜黑
天空蓝
葡萄紫
薄荷绿
深海蓝
首页
论坛
佳礼报道
新闻
搜索
21
查看
0
回复

[求助] 请问正确的方法是怎样的?:split excel workbook 去 multiple sheet?

[复制链接]

楼主: wain       显示全部楼层   阅读模式

楼主
发表于 21-5-2019 11:57 AM | 显示全部楼层 |阅读模式

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAsFilename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


我把这上面的coding ".xlsx" 换去 ".xls" 就会出现这下面的信息,请问怎样避免这个信息呢?

Capture.JPG
[size=13.3333px]
[size=13.3333px]

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册 | 登入

本版积分规则

 WeChat
 CARI App
Get it FREE Google play
 Instagram
cari_malaysia
FOLLOW
- 版权所有 © 1996-2019 Cari Internet Sdn Bhd 佳礼网络有限公司 (483575-W) -
Private Cloud provided by IPSERVERONE
0.230189s Gzip On
快速回复 返回顶部 返回列表