Question

需要用vb6打开excel工作簿tbl.xls的工作表sheet1的最简单的vb代码

就是打开sheet1,然后第一行第二单元数据赋予label1中。
tbl.xls工作簿的路径为：d:\ss\tbl.xls

Answer 1

最简单的：
Label1 = xlsheet.Cells(1, 2) '赋值。
前提是Excel已经被打开。

完整代码：
'引用MicroSoft Excel对象库。

Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlsheet As Excel.Worksheet '定义工作表类
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '不可见
Set xlBook = xlApp.Workbooks.Open("d:\ss\tbl.xls") '打开Excel文档
Set xlsheet = xlBook.Worksheets(1) '打开sheet1工作表
Label1 = xlsheet.Cells(1, 2) '赋值

''''退出相关
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Set xlsheet = Nothing