Excel VBA工作簿操作

1、打开文件与新建文件

'打开文件
Application.ScreenUpdating = False  '关闭屏幕更新
Application.DisplayAlerts = False '关闭警告
Workbooks.Open Filename:="D:\XSL\文件夹\1.xls"
ActiveWorkbook.Sheets(1).Range("a2") = "又到此一游"
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True '打开警告
Application.ScreenUpdating = True '打开屏幕更新

'新建文件
Application.ScreenUpdating = False  '关闭屏幕更新
Application.DisplayAlerts = False '关闭警告
Workbooks.Add
ActiveWorkbook.Sheets(1).Range("a1") = "哈哈，这是我自动创建出来的"
ActiveWorkbook.SaveAs Filename:="D:\XSL\文件夹\1.xlsx"
ActiveWorkbook.Close
Application.DisplayAlerts = True '打开警告
Application.ScreenUpdating = True '打开屏幕更新
           

2、一文件（多表）拆为多文件

'一文件（多表）拆为多文件
Dim sht As Worksheet
Application.ScreenUpdating = False  '关闭屏幕更新
For Each sht In Sheets
    sht.Copy
    ActiveWorkbook.SaveAs Filename:="D:\XSL\" & sht.Name & ".xls"
    ActiveWorkbook.Close
Next
Application.ScreenUpdating = True '打开屏幕更新