菜鸟问问题：*.csv 的Excel表应该怎么在VB6.0中引用啊？

Question

我这么写总是报错：
    Dim xlApp As New Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
    
    Set xlBook = xlApp.Workbooks.Open("*:\*\*.csv")
    Set xlSheet = xlBook.Worksheets("sheet1")
    
    lblIntensity1.Caption = xlBook.Worksheets("sheet1").Range("E2")
    lblIntensity2.Caption = xlBook.Worksheets("sheet1").Range("E3")
    lblIntensity3.Caption = xlBook.Worksheets("sheet1").Range("E4")
    
    
    Set xlApp = Nothing
    Set xlBook = Nothing
    Set xlSheet = Nothing所报的错误是:Run_time error'9':
             Subscript out of range.
Debug 指向:
Set xlSheet = xlBook.Worksheets("sheet1")
请问各位大侠*.csv 的EXcel表到底应该怎么引用?
用我写的这种方法引用*.xls 的Excel表就没有问题.
多谢各位了!!!!!

Answer 1

又有新问题了:大家帮忙啊!
我自己用VB6.0编了一个程序，在自己的机器上运行的挺正常的，可到了别人的机器上运行时,到了从Excel表取数的那一步就会报错,说:内存出什么问题了.
用Microsoft Visual Studio 6.0 Tools 里的Package&Deployment Wizard做了一个安装程序也是这种情况.
这到底是怎么回事啊?
怎么让自己的程序在没有VB的机器上运行?
那位大侠能指导一下?
不胜感激!!!

Answer 2

没想到与我的问题一样知道了请告诉我一声，谢谢！ [email protected]

Answer 3

操作excel很简单的
网上的例子不是很好的，看office2000(最好是xp)的帮助最有效了，但是帮助默认安装没有装上。

Answer 4

给大家一段生成excel的代码，别的功能什么的查查帮助就会了
    Dim Ex As Object    Set Ex = CreateObject("excel.sheet")
    Ex.Sheets(1).Name = "人员"
    Ex.Sheets(1).Activate
    
    Ex.ActiveSheet.Cells.Font.Size = 10
    Ex.ActiveSheet.Columns("a:i").AutoFit
    Ex.ActiveSheet.Cells.HorizontalAlignment = xlVAlignCenter
    Ex.ActiveSheet.Range("a1").Value = "人员1"
    Ex.ActiveSheet.Range("a2").Value = "姓名"    Ex.SaveAs "c:\111.xls"
    Ex.Application.Quit
    Set Ex = Nothing

Answer 5

csv其实就是文本文件自己解析就可以数据用特定分隔符分隔

Answer 6

CSV 是逗号分割文件
用readtxtfile 的readline一行一行读
用Split(strLine,",")分割成数组来处理，要快得多。用VS installer来打包试试！

Answer 7

Excel的版本不一致会造成内存出现问题吗？怎么解决啊？

Answer 8

VS installer哪里有下载啊？

Answer 9

问题已经解决了，是Office版本不同造成的。感谢大家的帮助