一、怎样使用vb创建excel文件
测试成功，原码：
Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
Dim xlrange As Excel.range
Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application") '第一层
Set xlbook = xlapp.Workbooks.Add
xlapp.Visible = True
xlbook.sheets(1).range("a1") = "新建成功"
xlbook.SaveAs App.Path & "/测试.xls"
xlbook.Close
End Sub
二、excel里编入vb代码
先点击“开发工具”-“插入”-“表单控件”-“按钮”，用鼠标拖出一个按钮，在弹出来的“指定宏”对话框点击“新建”，输入如下代码：
Sub 按钮1_Click()
If Rows(8).Hidden = True And Rows(10).Hidden = True And Rows(12).Hidden = True Then
Rows(8).Hidden = False
Rows(10).Hidden = False
Rows(12).Hidden = False
Else
Rows(8).Hidden = True
Rows(10).Hidden = True
Rows(12).Hidden = True
End If
End Sub
