一、怎样在vb中导入excel表格数据
可以看vb自带的例子visdata，其中对txt文件和对excel文件的操作都有很详细的说明。
也可能通过以下方式：
引用micsosoft Excel x.0 object Library
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
FileCopy App.Path + "rpf.xlt", App.Path + "tmp.xlt"
FileName = App.Path + "tmp.xls"
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(FileName)
xlApp.Visible = True
Set xlsheet = xlBook.Sheets("sheet1")
with xlsheet
.Cells(1, 1) =变量
end with
二、vb给excel添加工作表
Excel中的VB语言叫做VBA，在VBE中使用代码新建即可。
Excel版本参考：2010
演示：新建一个表名为test的工作表。
1、ALT+F11，进入VBE窗口。
2、右击工作表标签-插入-模块。
3、输入代码：
Sub test()
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "test"
End Sub
4、按下F5执行，查看工作表，新建的test表 已新建好。
三、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
