使用<em>Excel</em> <em>VBA</em>，如何将某一个

Sub 宏1()
Workbooks.Add
ActiveWorkbook.SaveAs Filename:="C:\test.xlsx", FileFormat:=xlOpenXMLWorkbook
ActiveWindow.Close
End Sub

答：

Sub Demo()
    Dim Sht As Worksheet
    Dim FilePath As String
    FilePath = ThisWorkbook.Path & "\"
    Application.ScreenUpdating = False
    For Each Sht In ThisWorkbook.Sheets
        If Not Sht.Name = "分析" Then
            With Sht
                .UsedRange.Value = .UsedRange.Value
                .Copy
            End With
            With ActiveWorkbook
                .SaveAs Filename:=FilePath & Sht.Name
                .Close
            End With
        End If
    Next Sht
    Application.ScreenUpdating = True
    MsgBox "导出完成e799bee5baa6e997aee7ad94e78988e69d83366"
End Sub

1、如下图所示，我想将桌面上第一章中的每个工作百簿名称放置到工作表中。

2、新建一个工作簿，将其命名为“第一章目录”，按alt+f11组合键，打开宏界面。

3、在VBA中，单击插入按钮，点击插入菜单下度的模块，即可新建模块，系统默认为模块1，当然也可以根据需要重命名。

4、使用do~~loop循环语句，在版VBA中输入如下图所示代码：

5、返回名为“第一章目录”的工作簿中，按alt+f8组合键，弹出宏对话框。

6、点击宏对话框中的执行按钮，宏对话框自动权关闭，代码自动执行，即第一章中的每个文件夹名称全部显示在工作表sheet1中。最后根据自己的需要调整格式。