用宏拆分工作表，独立保存为工作簿

栗子猫

刚刚接触代码的小白，在贴吧找了一段代码，红色字的那部分不是很了解。所有表格中D15单元格都是没有内容的，但是运行宏后，出来的结果是我想要的。但是真的理解不了，百度很久都找不到答案，求大神帮忙看看！！！
这个是为什么！！！
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

xuwanzi0101

trim函数，了解一下。

lsc900707

建议楼主上传附件。

weisilisid

那是去掉空格的意思，在D15单元格的内容 里面有很多空格，所以你看到的是空值，但去掉空格以后，才是你看到的文件名

你到D15单元格里 双击进去看具体内容，就知道了

栗子猫

附件，看了很久，D15单元格是没有数据的

jiangxiaoyun

这点用F8+本地窗口调试就清清楚楚了啊。

栗子猫

jiangxiaoyun 发表于 2018-8-7 09:07
这点用F8+本地窗口调试就清清楚楚了啊。

看不出来，请问要怎么调试