vba08---工作簿

1、

workbook表示一个工作簿

workbooks表示多个工作簿

workbooks（2）表示指定位置的工作簿

workbooks（”名称“）表示指定名称的工作簿

thisworkbook表示代码所在的工作簿

2、工作簿常用属性----fullname=path+name

3、创建工作簿和创建已有工作簿

4、打开工作簿

5、保存

ThisWorkbook.Save

这段代码所在工作簿保存

6、另存为 saveas filename:""

7\workbooks.close   所有工作簿都关闭

thisworkbook.close     代码所在的这一个工作簿关闭

workbooks（“文件名称”）.close     关闭指定名称的工作簿

Workbooks("8888.xlsx").Close True     保存修改后关闭

Workbooks("8888.xlsx").Close False    不保存修改关闭

9实战---打开已有工作簿、修改、保存关闭工作簿

Sub x()
Excel.Application.DisplayAlerts = False

Workbooks.Open "C:\Users\windows\Desktop\8888.xlsx"
ActiveWorkbook.Sheets(1).Range("a1") = "qwe"
Workbooks("8888.xlsx").Close True

Excel.Application.DisplayAlerts = True
End Sub

凡是涉及文件打开和写入的时候，最好把关闭开启提示框写上

10实战----新建工作簿、修改、并另存为、关闭

Sub a()
Excel.Application.DisplayAlerts = False
Workbooks.Add
ActiveWorkbook.Sheets(1).Range("a1") = "李小龙"
ActiveWorkbook.SaveAs Filename:="C:\Users\windows\Desktop\李小龙.xlsx"
ActiveWorkbook.Close
Excel.Application.DisplayAlerts = True

End Sub

11、拆分一个excel下sheet形成独立excel

遍历工作表、工作表复制形成独立excel、独立excel另存为、关闭工作簿

Sub a()
Excel.Application.ScreenUpdating = False

Dim i
For Each i In thisworkbook.Sheets
i.Copy
ActiveWorkbook.SaveAs Filename:="C:\Users\windows\Desktop\" & i.Name & ".xlsx"
ActiveWorkbook.Close

Next

Excel.Application.ScreenUpdating = True

End Sub