运动时出现这些情况怎么办？

红光12 · 发表于 2023-2-28 09:52

红光12 · 发表于 2023-2-28 09:55

求助太神们，这个问题怎样解决？

jiangxiaoyun · 发表于 2023-2-28 10:22

路径有问题，debug出来看看。提示已经说得够清楚的了。

红光12 · 发表于 2023-2-28 10:45

Sub 另存所有工作表为工作簿()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name & ".xls" '(工作表名称为文件名）
'ActiveWorkbook.SaveAs ipath & sht.Name & Trim(sht.[d15]) & ".xls" '（文件名称 & D15单元内容）
'ActiveWorkbook.SaveAs ipath & Trim(sht.[d15]) & ".xls" '（文件名称为D15单元内容）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub

红光12 · 发表于 2023-2-28 10:47

Sub 另存所有工作表为工作簿()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name & ".xls" '(工作表名称为文件名）
'ActiveWorkbook.SaveAs ipath & sht.Name & Trim(sht.[d15]) & ".xls" '（文件名称 & D15单元内容）
'ActiveWorkbook.SaveAs ipath & Trim(sht.[d15]) & ".xls" '（文件名称为D15单元内容）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub

WANT-T · 发表于 2023-2-28 14:55

本帖最后由 WANT-T 于 2023-2-28 15:00 编辑

你可以尝试调用一下我的这个代码：

代码附件：

明细导出.zip (812 Bytes, 下载次数: 1)

洋务德雷 · 发表于 2023-2-28 15:06

按照提示一个一个排除

红光12 · 发表于 2023-2-28 20:21

非常非常感谢

		自动登录	找回密码
密码			免费注册

[求助] 运动时出现这些情况怎么办？