作者：乔山办公网日期：
返回目录：excel表格制作
Sub 新建()
Dim excelApp, excelWB As Object
Dim savePath As String
Set excelApp = CreateObject("Excel.Application")
Set excelWB = excelApp.Workbooks.Add
excelApp.DisplayAlerts = False
savePath = ActiveWorkbook.Path & "\新建表zd1.xls"
excelWB.SaveAs savePath
excelApp.Quit
Workbooks.Open savePath
End Sub
内容复制：内
Workbooks("计算表.xls").Worksheets("Sheet1").Copy Before:=Workbooks("新建表1.xls").Sheets(1)
把“计算表”的Sheet1整个复制到“新建表1”中，为最前面一个Sheet，默认命名将是“Sheet1(2)”，楼主可以再重新命名Sheet就行了。容
Sub 宏1()
Sheets.Add After:=ActiveSheet
End Sub
1、如下图所示，我想将桌面上第一抄章中的每个工作簿名称放置到工作表中。
2、新建一个工作簿，将其袭命名为“第一章目录”，按alt+f11组合键，打开宏界面。
3、在VBA中，百单击插入按钮，点击插入菜单度下的模块，即可新建模块，系统默认为模块1，当然也可以根据需要重命名。
4、使用do~~loop循环语句，在VBA中输入如下图所示代码：
5、返回名为“第一章目录”的工作簿中，按alt+f8组合键，弹出宏对话框。
6、点击宏对话框中的执行按钮，宏对话框自动关问闭，代码自动执行，即第一章中的每个文件夹名称全答部显示在工作表sheet1中。最后根据自己的需要调整格式。
ALT+F11 或者右键工作表标知签 点查看代码 或者 点 工具-宏-visual basic 编辑器 进入以后插入道一个模块,如果你有别人写好的代码,直接复制进去把相关工作表回名或地址改下就行 .然后在工作表中绘制一个图形或按答钮,指定你复制的代码的宏名就行了,点击就可以运行了