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

给你写写：

    '获取当前工作簿不带后缀的名称

    A = Left(ThisWorkbookName, InStr(ThisWorkbookName, "") - 1)

    '另外一个文件夹，假设是c盘下文件夹aa，你自己改

    path1 = "C:\aa\"

    '取得日期，将日期中的/变成

    dat = Replace(Date, "/", "")

    ThisWorkbookSaveAs path1 & A & Date & "xls"

 End Sub

Sub test() Dim FileName, xlsName As String FileName = ApplicationGetOpenFilename("Excel文件(xls),xls") xlsName = Mid(FileName, InStrRev(FileName, "\") + 1, 100) MsgBox xlsName End Sub

Sub 提取文件名()

Dim iFiles

ChDrive "E:"

ChDir "E:\提取文件名测试\"

iFiles = ApplicationGetOpenFilename(, , , , True)

If IsArray(iFiles) = 0 Then MsgBox "没有选择文件!": Exit Sub

Range("A1")Resize(UBound(iFiles) + 1, 1) = ApplicationWorksheetFunctionTranspose(iFiles)

End Sub

提取当前文件夹下的文件名称并放在A列

Sub 按钮1_Click()

ApplicationScreenUpdating = False

Set fso = CreateObject("scriptingfilesystemobject")

Set ff = fsogetfolder(ThisWorkbookPath) 'ThisWorkbookPath是当前代码文件所在路径，路径名可以根据需求修改

ActiveSheetUsedRangeClearContents

a = 1

For Each f In ffFiles

Rem 如果不需要提取本代码文件名，可以增加if语句 if fname<> thisworkbookname then

Rem 如果值需要提取某类文件，需要对fname的扩展名进行判断

Rem 个人感觉split取 扩展名：split（fname,"")(ubound（split（fname,"")）)，然后再判断，避免文件名还有其他“”

Cells(a, 1) = fName '相对路径名

Cells(a, 2) = f '全路径名

a = a + 1

Next f

ApplicationScreenUpdating = True

End Sub

以上就是关于怎么用VBA自动获取当前工作簿不带后缀名的工作簿名称全部的内容，包括:怎么用VBA自动获取当前工作簿不带后缀名的工作簿名称、VBA，求问如何获取sub的名称、求VBA高手帮忙修改宏，关于获取某文件夹中文件名称等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！