作者：乔山办公网日期：
返回目录：excel表格制作
Option Explicit
Sub test1()
Dim wb As Workbook
Set wb = Workbooks.Add
With wb.Worksheets
.Add After:=wb.Worksheets(.Count), Count:=5 - .Count
End With
'以下是可选代码
'将新建的工7a686964616fe4b893e5b19e362作簿激活为当前窗口
wb.Activate
'将工作簿保存到D盘根目录，名字为newWorkbook.xlsx, 格式为.xlsx格式（excel2007及以上版本默认格式）
wb.SaveAs "D:\newWorkbook.xlsx", 56
End Sub
Sub test2()
'如果是从外部程序创建，如在word中执行操作，则需要先创建个excel对象。
Dim appExcel As Excel.Application
Dim wb As Workbook
Set appExcel = CreateObject("Excel.Application")
Set wb = appExcel.Workbooks.Add
With wb.Worksheets
.Add After:=wb.Worksheets(.Count), Count:=5 - .Count
End With
End Sub
在Excel中用VBA创建文件夹：
1、在excel中创建点击zhidao按钮
2、在按钮上写入如下代专码：
Sub createDir()
If Dir("F:\" & Format(Date, "YYYY-M-D"), vbDirectory) <> "" Then
MsgBox "文件夹存在"
Else
MsgBox "文件夹不存在!,系统将创建一个名属为" & Format(Date, "YYYY-M-D") & "的文件夹"
MkDir "F:\" & Format(Date, "YYYY-M-D")
End If
End Sub
3、点击按钮后就会在f盘下创建目录：
既然都可以说得那么清楚来，我就把说明与注意点，直接备注在代码中了，完整代码如下
Sub admin()
Dim xWk As Workbook, xSh As Worksheet, xRan As Range
Dim nWk As Workbook
'要复制内容为当天工作表
Set xWk = ActiveWorkbook
Set xSh = ActiveSheet
'保存源的文件名为A1单元格里的内容，如果是其它单元格，修改这里
Set xRan = xSh.Range("A1")
Set nWk = Workbooks.Add
xSh.Cells.Copy
nWk.Worksheets(1).Range("A1").PasteSpecial xlPasteValues
'保存在zd与复制内容同一目录下
nWk.SaveAs xWk.Path & "\" & xRan.Value
End Sub
Sub t()
Dim wb As Workbook
ThisWorkbook.Worksheets("Sheet2").Copy
Set wb = ActiveWorkbook
With wb
wb.SaveAs "F:\脚本来自\新文知件道" & Format(Now, "yyyymmddss") & ".xlsx", xlOpenXMLWorkbook
wb.Close True
End With
End Sub