怎样在vb中导入excel表格数据(vb给excel添加工作表)

内容导航：怎样在vb中导入excel表格数据vb给excel添加工作表excel里编入vb代码一、怎样在vb中导入excel表格数据可以看vb自带的例子visdata，其中对txt文件和对excel文件的操作都有很详细的说明。也可能通过以下方式：引用micsosoft Excel x.0 object LibraryDim xlApp As Excel.ApplicationDim xlBook As Excel.WorkbookDim xlsheet As Excel.WorksheetFileCopy 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 = TrueSet 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 IfEnd Sub