批量将工作表转换为独立工作簿
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
'
取消显示系统警告和消息，避免重名工作簿无 ...