怎样把大量的excel所有表单名称显示在一张表中？

Question

看过了你对这上问题的回答,试着编了下,但没有反映.
比如:我在2.XLS的文件下有张三、李四、王五等三张表格，我想在“统计表名.xls”的文件下把2.xls的三个表格名显示出来，如果做宏？

Answer 1

试试：
Sub 导入工作表名()
Application.ScreenUpdating = False '关闭屏幕刷新
Dim ss As Workbook
wj = ActiveWorkbook.Name '当前工作簿名称
With Application.FileDialog(msoFileDialogOpen) '打开对话框对象
.AllowMultiSelect = True '多选文件
If .Show = -1 Then '打开操作
MsgBox "被选定导入的文件共 " & .SelectedItems.Count & " 个 ！", , "导入数据"
For i = 1 To .SelectedItems.Count '从选定的第1个文件循环到选定的最后一个文件
Set ss = Workbooks.Open(.SelectedItems(i), , ReadOnly) '打开文件并赋值给变量ss
MC = ss.Name '打开的文件名称
GS = Workbooks(MC).Worksheets.Count '打开工作簿中的工作表个数
For j = 1 To GS
hs = Workbooks(wj).ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Workbooks(wj).ActiveSheet.Cells(hs, 1) = Workbooks(MC).Sheets(j).Name
Next j
Workbooks(MC).Close SaveChanges:=False '关闭打开的工作簿文件
Next i
Else
MsgBox "没有指定打开的文件！", , "导入工作表名"
Exit Sub
End If
End With
Application.ScreenUpdating = True '屏幕刷新
End Sub
03版本测试通过！

Answer 2

我们的研究表明，治理中起着长期的税收管理中的重要作用。税收管理的最重要的推动力是薪酬业绩敏感性（PPS）为董事和首席执行官。这些结果是强大的，对税收筹划的各个领域的强大。我们？第二，高PPS导致较低的税收，包括会计准则的有效税率和现金支付的税金。增加一一单位，首席执行官PPS的结果0.541%的减少在行业调整会计准则和行业的出口退税调整出口退税减少0.571%现金。同样，在较低的外国和国内税收高PPS结果。在首席执行官PPS结果在减少工业a0.166 %一一单位增加调整外国税收和减少0.477%的产业调整的国内税，一次？斜面的储蓄。