VBA，如何取电子表格的文件名？及电子表格的表格名？

第1个回答 2012-02-08

Sub test()
Dim a$, b$
a = ActiveSheet.Name
MsgBox "此工作表的名称为： " & a, vbOKOnly, "工作表的名称"

b = ThisWorkbook.Name
MsgBox "此工作簿的名称为： " & b, vbOKOnly, "工作簿的名称"
End Sub

第2个回答 2012-02-06

a = ActiveSheet.Name
MsgBox a
b = ThisWorkbook.Name
MsgBox b本回答被提问者采纳

第3个回答 2012-02-06

ThisWorkbook.name

相似回答

...怎么用VBA ,公式表述工作簿名称, 与工作表名称?答：代码应该是这样：private sub workbook_open()appilcation.visible=flase userform1.show end sub

EXCEL如何使用VBA打开相对路径下的文件或文件夹?答：打开文件如下：Workbooks.Open ("C:\对账单\对帐单.xlsx")这里你可以把“C:\对账单\”换成你的绝对路径，你可以用：a = ThisWorkbook.Path a = ThisWorkbook.Path Workbooks.Open ("" & a & "&" \ "&对帐单.xlsx")来获取你当前表的绝对路径，然后再打开，因为不知道你的具体情况，如果有问...

如何使用excel提取文件夹中的所有文件名称?答：打开1.txt文件，将其中的内容粘贴到Excel中，数据——分列处理就可以得到你要的文件名列表了！2、VBA（2003版）在那个文件夹下新建Excel文件，打开新建的Excel文件，右击工作表标签（如Sheet1），查看代码——在代码编辑器中输入以下代码 Sub Test()Dim i As Integer Dim strPath As String strPath =...

如何用宏批量提取指定文件夹中所有excel表格中指定sheet的内容?答：Set wsDestination = ThisWorkbook.Sheets("汇总表") ' 将"汇总表"替换为实际的目标工作表名称 ' 打开文件夹中的每个Excel文件 FileName = Dir(FolderPath & "*.xlsx") ' 可根据实际文件类型进行更改 Do While FileName <> ""Set wbSource = Workbooks.Open(FolderPath & FileName)' 提取每个...

excel 提取所有文件中第二个工作表名并保存到它自身的表格中 VBA答：Sub test()Dim fn As String, mPath As String, wb As WorkbookIf Workbooks.Count > 1 Then MsgBox "关闭其他文件后重试！": Exit SubWith Application.FileDialog(msoFileDialogFolderPicker) .Title = "---选择csv文件所在的文件夹---" .AllowMultiSelect = False .Show If .Select...

VBA如何汇总其他工作表数据同时生成工作表名?答：If Sht.Name <> ActiveSheet.Name And Sht.Name Like "*月" Then '如果表格名称不等于当前表名则进行复制数据……Set Rng = Sht.UsedRange '定义rng为表格已用区域,已用区域尾部有时尾部有空行的，用Find更好 Rng.Offset(Trow).Copy k = ActiveSheet.UsedRange.Rows.Count + 1 + Krow '表间...