Excel VBA创建工作簿的步骤与代码解析

以下是创建包含指定数据的工作表的过程及代码解释：

1. 声明变量

Dim Wb As Workbook, Sht As Worksheet

• Dim 用于声明变量。
• Wb 变量用于存储工作簿对象。
• Sht 变量用于存储工作表对象。

2. 创建工作簿

Set Wb = Workbooks.Add

• Workbooks.Add 方法用于创建新的工作簿。
• Set 关键字用于将创建的工作簿对象赋值给 Wb 变量。

3. 激活工作簿

Wb.Activate

• Activate 方法用于激活工作簿。
• 激活工作簿后，就可以对工作簿进行操作了。

4. 添加工作表

Set Sht = Wb.Worksheets.Add

• Worksheets.Add 方法用于向工作簿中添加新的工作表。
• Set 关键字用于将添加的工作表对象赋值给 Sht 变量。

5. 保存工作簿

Wb.SaveAs "C:\My Documents\MyWorkbook.xlsx"

• SaveAs 方法用于将工作簿保存到指定的位置。
• "C:\My Documents\MyWorkbook.xlsx" 是保存工作簿的路径和文件名。

以下是一些代码示例，供读者参考：

Sub 创建工作簿并添加数据()
Dim Wb As Workbook, Sht As Worksheet

'创建工作簿
Set Wb = Workbooks.Add

'激活工作簿
Wb.Activate

'添加工作表
Set Sht = Wb.Worksheets.Add

'在工作表中添加数据
Sht.Range("A1").Value = "姓名"
Sht.Range("A2").Value = "张三"
Sht.Range("A3").Value = "李四"

'保存工作簿
Wb.SaveAs "C:\My Documents\MyWorkbook.xlsx"

'关闭工作簿
Wb.Close
End Sub

Sub 创建工作簿并设置格式()
Dim Wb As Workbook, Sht As Worksheet

'创建工作簿
Set Wb = Workbooks.Add

'激活工作簿
Wb.Activate

'添加工作表
Set Sht = Wb.Worksheets.Add

'在工作表中添加数据
Sht.Range("A1").Value = "姓名"
Sht.Range("A2").Value = "张三"
Sht.Range("A3").Value = "李四"

'设置工作表的格式
Sht.Range("A1").Font.Bold = True
Sht.Range("A1").Interior.Color = RGB(255, 255, 0)

'保存工作簿
Wb.SaveAs "C:\My Documents\MyWorkbook.xlsx"

'关闭工作簿
Wb.Close
End Sub

Sub 创建工作簿并执行计算()
Dim Wb As Workbook, Sht As Worksheet

'创建工作簿
Set Wb = Workbooks.Add

'激活工作簿
Wb.Activate

'添加工作表
Set Sht = Wb.Worksheets.Add

'在工作表中添加数据
Sht.Range("A1").Value = "数量"
Sht.Range("A2").Value = "10"
Sht.Range("A3").Value = "20"

'在工作表中执行计算
Sht.Range("A4").Value = "=SUM(A2:A3)"

'保存工作簿
Wb.SaveAs "C:\My Documents\MyWorkbook.xlsx"

'关闭工作簿
Wb.Close
End Sub

希望这篇文章对您有所帮助。如果您还有其他问题，请随时与我联系。