怎么用VBA自动获取当前工作簿不带后缀名的工作簿名称
发布网友
发布时间：2022-04-21 02:57
共2个回答
热心网友
时间：2022-06-17 15:01
给你写写：
Sub aaa()'获取当前工作簿不带后缀的名称
A = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)
'另外一个文件夹，假设是c盘下文件夹aa，你自己改
path1 = "C:\aa\"
'取得日期，将日期中的/变成.
dat = Replace(Date, "/", ".")
ThisWorkbook.SaveAs path1 & A & Date & ".xls"
End Sub
追问可是我原来的工作簿名称为181333.101文件.xls，名称当中有2个“.”,不知道怎么处理了？
追答Sub aaa()
'获取当前工作簿不带后缀的名称
A = Left(ThisWorkbook.Name, InStrrev(ThisWorkbook.Name, "."))
'另外一个文件夹，假设是c盘下文件夹aa，你自己改
path1 = "C:\aa\"
'取得日期，将日期中的/变成.
dat = Replace(Date, "/", ".")
ThisWorkbook.SaveAs path1 & A & dat & ".xls"
End Sub
热心网友
时间：2022-06-17 15:01
Sub 试一试()
工作簿名称 = ThisWorkbook.Name
' 长度 = Len(工作簿名称)
' 名称 = Left(工作簿名称, 长度 - 4)
path1 = "C:\aa\"
dat = Replace(Date, "/", ".")
ThisWorkbook.SaveAs path1 & A & Date & ".xls"
End Sub
