vb中怎么读取excel中的所有有效内容，并获取有效行列数，之后将excel中的全部内容显示到grid中

Question

选择excel文件时能否编写个界面，有下拉菜单选择的那种，谢谢各位高手帮助啦，能否将代码发到我qq:532482705,万分感谢，急！！！

Answer 1

下拉菜单你自己加进去就行了，东西是filelistbox，现在设file1为filelistbox的名字，那么：Dim obj As Excel.Application
Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象
Set ExcelBook = ExcelApp.Workbooks.Open(File1.Path & "\" & File1) '（打开excel文件，这里的file1.path&"\"&file1 指的就是下拉菜单的excel的路径。
Set ExcelSheet = ExcelBook.Worksheets(1)’现在就可以利用将excelsheet来读取所选的excel的行和列了。具体为：设置一个变量 dim k as integer，写一个循环以k=1到k=1000（假如你有1000行数据）比如我们读取b1-b1000的值那么就用text1.text=ExcelSheet.Range("b" & k).Value,然后在后面写一个延时句子，延迟1-2秒，然后完成一个循环，就可以看到text1中的值一直在变化而且是从B1到B1000的值
现在算是吧值取出来了，至于怎么附到grid里应该很容易，自己看着来吧……，希望能多加点分^-^