工作簿对象workbook的52段基本vba代码

1. 打开工作簿：

Workbooks.Open 'C:\example.xlsx'

2. 关闭工作簿：

Workbook.Close SaveChanges:=False

3. 保存工作簿：

Workbook.Save

4. 另存为工作簿：

Workbook.SaveAs 'C:\new_example.xlsx'

5. 设置工作簿密码：

Workbook.Password = 'your_password'

6. 解除工作簿密码：

Workbook.Unprotect

7. 保护工作簿：

Workbook.Protect

8. 取消工作簿保护：

Workbook.Unprotect

9. 设置工作簿属性：

Workbook.Title = 'New Title'

10. 获取工作簿属性：

Dim title As String

title = Workbook.Title

11. 设置工作簿可见性：

Workbook.Visible = True

12. 获取工作簿可见性：

Dim visible As Boolean

visible = Workbook.Visible

13. 设置工作簿窗口状态：

Workbook.WindowState = xlMaximized

14. 获取工作簿窗口状态：

Dim windowState As XlWindowState

windowState = Workbook.WindowState

15. 设置工作簿激活：

Workbook.Activate

16. 获取工作簿激活状态：

Dim active As Boolean

active = Workbook.Activate

17. 设置工作簿默认工作表：

Workbook.Sheets('Sheet1').Move Before:=Workbook.Sheets(1)

18. 获取工作簿默认工作表：

Dim defaultSheet As Worksheet

Set defaultSheet = Workbook.ActiveSheet

19. 添加新工作表：

Workbook.Sheets.Add After:=Workbook.Sheets(Workbook.Sheets.Count)

20. 删除工作表

Workbook.Sheets('Sheet1').Delete

21. 重命名工作表：

Workbook.Sheets('Sheet1').Name = 'NewName'

22. 复制工作表：

Workbook.Sheets('Sheet1').Copy Before:=Workbook.Sheets(2)

23. 移动工作表：

Workbook.Sheets('Sheet1').Move Before:=Workbook.Sheets(2)

24. 设置工作表属性：

Workbook.Sheets('Sheet1').Tab.ColorIndex = 3

26. 设置工作表可见性：

Workbook.Sheets('Sheet1').Visible = xlSheetHidden

27. 获取工作表可见性：

Dim visible As XlSheetVisibility

visible = Workbook.Sheets('Sheet1').Visible

28. 设置工作表打印区域：

Workbook.Sheets('Sheet1').PageSetup.PrintArea = 'A1:D10'

29. 获取工作表打印区域：

Dim printArea As String

printArea = Workbook.Sheets('Sheet1').PageSetup.PrintArea

30. 设置工作表页边距：

Workbook.Sheets('Sheet1').PageSetup.LeftMargin = Application.InchesToPoints(1)

31. 获取工作表页边距：

Dim leftMargin As Double: leftMargin = Workbook.Sheets('Sheet1').PageSetup.LeftMargin

32. 设置工作表纸张大小：

Workbook.Sheets('Sheet1').PageSetup.PaperSize = xlPaperA4

33. 获取工作表纸张大小：

Dim paperSize As XlPaperSize

paperSize = Workbook.Sheets('Sheet1').PageSetup.PaperSize

34. 设置工作表打印标题：

Workbook.Sheets('Sheet1').PageSetup.PrintTitleRows = '$1:$1'

35. 获取工作表打印标题：

Dim printTitleRows As String

printTitleRows = Workbook.Sheets('Sheet1').PageSetup.PrintTitleRows

36. 设置工作表打印标题列：

Workbook.Sheets('Sheet1').PageSetup.PrintTitleColumns = '$A:$B'

37. 获取工作表打印标题列：

Dim printTitleColumns As String

printTitleColumns = Workbook.Sheets('Sheet1').PageSetup.PrintTitleColumns

38. 设置工作表打印网格线：

Workbook.Sheets('Sheet1').PageSetup.PrintGridlines = True

39. 获取工作表打印网格线：

Dim printGridlines As Boolean

printGridlines = Workbook.Sheets('Sheet1').PageSetup.PrintGridlines

40. 设置工作表打印行号：

Workbook.Sheets('Sheet1').PageSetup.PrintRowsAndColumnsNumbers = True

41. 获取工作表打印行号：

Dim printRowsAndColumnsNumbers As Boolean

printRowsAndColumnsNumbers = Workbook.Sheets('Sheet1').PageSetup.PrintRowsAndColumnsNumbers

42. 设置工作表打印区域颜色：

Workbook.Sheets('Sheet1').PageSetup.PrintAreaStyleColorIndex = 3

43. 获取工作表打印区域颜色：

Dim printAreaStyleColorIndex As Integer

printAreaStyleColorIndex = Workbook.Sheets('Sheet1').PageSetup.PrintAreaStyleColorIndex

44. 设置工作表打印区域边框线条样式：

Workbook.Sheets('Sheet1').PageSetup.PrintAreaStyleLineStyle = xlContinuous

45. 获取工作表打印区域边框线条样式：

Dim printAreaStyleLineStyle As XlLineStyle

printAreaStyleLineStyle = Workbook.Sheets('Sheet1').PageSetup.PrintAreaStyleLineStyle

46. 设置工作表打印区域边框线条粗细：

Workbook.Sheets('Sheet1').PageSetup.PrintAreaStyleLineWidth = Application.InchesToPoints(0.5)

47. 获取工作表打印区域边框线条粗细：

Dim printAreaStyleLineWidth As Double

printAreaStyleLineWidth = Workbook.Sheets('Sheet1').PageSetup.PrintAreaStyleLineWidth

48. 设置工作表打印区域边框线条颜色：

Workbook.Sheets('Sheet1').PageSetup.PrintAreaStyleColorIndex = 3

49. 获取工作表打印区域边框线条颜色：

Dim printAreaStyleColorIndex As Integer

printAreaStyleColorIndex = Workbook.Sheets('Sheet1').PageSetup.PrintAreaStyleColorIndex

50. 设置工作表打印区域边框线条透明度：

Workbook.Sheets('Sheet1').PageSetup.PrintAreaStyleTransparency = 0.5

51. 获取工作表打印区域边框线条透明度：

Dim printAreaStyleTransparency As Double

printAreaStyleTransparency = Workbook.Sheets('Sheet1').PageSetup.PrintAreaStyleTransparency

52. 设置工作表打印区域边框线条宽度单位：

Workbook.Sheets('Sheet1').PageSetup.PrintAreaStyleLineWeightUnits = xlMiterLimit