作者：乔山办公网日期：
返回目录：excel表格制作
Sub 创建新来工作源薄到指定路径百()
'在度"C:\"创建一个名知为"MyExcel.xls"的工作薄道
Path = "C:\"
Name = "MyExcel.xls"
Workbooks.Add
ActiveWorkbook.SaveAs Path & Name
End Sub
用VBA在excel中添加一个工来作表并且对其命名的实现方法和操作步骤如下：
1、首先，在Excel中按快捷键“Alt + F11”，如下图所示。
2、其次，在VBA编辑器中依次单击“插入”-->“模块”，如下图所自示。
3、然后知，在“模块”中输入如下代码：
Option Explicit
Sub addwork()
Sheets.Add after:=Sheets(Sheets.Count)
End Sub
4、接着，在VBA编辑器的左侧输入模块的名称，如下图所示。
5、随后，关闭VBA编辑器，返回到Excel工作表，然后依次单击“视图”-->“宏”-->“查看宏”，如下图所示。
6、最后，在弹出的窗口中单击宏名称，然后单击“执行”按钮即可，如下图所示。这样就实现了道用VBA在excel中添加一个工作表并且对其命名的功能了。
以下代码百，数度据在sheet1的A到D列，表问头在第二行答
取前内三个复制到H列
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select top 3 * from [sheet1$A2:D] order by 销量容 desc"
[H3].CopyFromRecordset conn.Execute(Sql)
conn.Close: Set conn = Nothing
[A2:D2].Copy [H2]
具体操作步骤如下：
1、第百一步，打开Excel表格，在主界面按Alt+f11下快捷键，如图所示。
2、第二步，进入到VBA编辑器，点击上面菜单栏中的插入，再选择【模块】，如图所示。度
3、第三步，在弹出的模块窗口中，输入下面的代内码：
Option Explicit
Sub addwork()
Sheets.Add after:=Sheets(Sheets.Count)
End Sub，
如图所示。
4、第四步，输入好后，在编辑器的左侧，输入模块的名称。如图所示。
5、第五步，关闭编辑器窗口，返回到表格中，点击上方菜单栏中的视图，再点容击下方菜单栏的宏，选择查看宏，如图所示。
6、最后一步，在弹出的宏窗口中，单击宏名，再单击【执行】就可以了，如图所示。