(完整word版)批量将工作表转换为独立工作簿

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

批量将工作表转换为独立工作簿
SubNewbooks
() 'EH
技术论坛。
VBA编程学习与实践。看见星光
Dim
shtAs Worksheet,
strPath
$ With
Application.FileDialog
(msoFileDialogFolderPicker
) '
选择保存工作薄的文件路径
If .Show Then

strPath
= .SelectedItems
(1) '
读取选择的文件路径
Else
Exit Sub
'
如果没有选择保存路径，则退出程序
End If
End With
If Right(
strPath
, 1) <> "\" Then
strPath
=strPath
& "\"
Application.DisplayAlerts
= False
'
取消显示系统警告和消息，避免重名工作簿无 ...

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：WORD版 word 工作表 工作簿 Application