怎么用VBA自动获取当前工作簿不带后缀名的工作簿名称

Question

第一步：需要用VBA自动对当前的工作簿提取到不带后缀名的工作簿名称为“A”；
第二步：在另外一个文件夹内将当前工作簿另存为一个新的工作簿，这个新的工作簿名称以“A+年月日”命名；
我不会写这个代码，请大家帮帮忙吧！

Answer 1

给你写写：

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

Answer 2

Sub 试一试()
工作簿名称 = ThisWorkbook.Name
' 长度 = Len(工作簿名称)
' 名称 = Left(工作簿名称, 长度 - 4)

path1 = "C:\aa\"
dat = Replace(Date, "/", ".")
ThisWorkbook.SaveAs path1 & A & Date & ".xls"

End Sub