VBA获取当前工作薄名称2

【2】VBA获取当前工作薄名称  

3）VBA自动获取当前工作簿不带后缀名的工作簿名称

https://wenda.so.com/q/1533920585216051

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

1)/http://www.360kuai.com/pc/9f448e5ccd35b3881?cota=4&tj_url=xz&sign=360_57c3bbd1&refer_scene=so_1

ActiveWorkbook.Name '返回活动工作薄的名称

ThisWorkbook.Name '返回当前工作簿名称

ThisWorkbook.FullName '返回当前工作簿路径和名称

MsgBox "当前工作簿名称 " & ActiveWorkbook.Name

2）/http://club.excelhome.net/thread-413630-1-1.html

Sub aa()

    Dim n As Integer

    n = VBA.InStrRev(ActiveWorkbook.Name, ".")

    MsgBox Left(ActiveWorkbook.Name, n - 1)

End Sub

3）如何在vba中定义 工作薄名称变量

https://wenda.so.com/q/1378835707060378?src=140

dim sheetname as string

　sheetname=sheets(n).name

【】