[已解决]导出工作表名称问题

yjwdjfqb

导出工作表名称问题

.SaveAs Filename:=mypath & "\" & "拆分_" & ActiveWorkbook.Name & ".xls"

我的目的是， 导出的工作表名称，   由    原工作薄名称      +  _拆分     组合

但，结果不是这样的，请老师们指点下，错在哪儿了。
导出工作表名称问题.rar (10.1 KB, 下载次数: 5)

2014-5-14 22:51 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-5-14 23:24

1.     Dim lDot&
   
2.     If InStr(ActiveWorkbook.Name, ".") Then
   
3.         lDot = InStrRev(ActiveWorkbook.Name, ".")
   
4.         .SaveAs Filename:=mypath & "" & Left(ActiveWorkbook.Name, lDot - 1) & "_拆分" & Mid(ActiveWorkbook.Name, lDot)
   
5.     End If

复制代码

跳转到最佳答案楼层

hwc2ycy

1.     Dim lDot&
   
2.     If InStr(ActiveWorkbook.Name, ".") Then
   
3.         lDot = InStrRev(ActiveWorkbook.Name, ".")
   
4.         .SaveAs Filename:=mypath & "" & Left(ActiveWorkbook.Name, lDot - 1) & "_拆分" & Mid(ActiveWorkbook.Name, lDot)
   
5.     End If

复制代码