Question

用VB如何读取excel表格里的内容，并且表格中的数据赋值给数组

Option Explicit
Dim xlApp As Excel.Application '定义EXCEL类
Dim xlBook As Excel.Workbook '定义工件簿类
Dim xlSheet As Excel.Worksheet '定义工作表类
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "C:\Users\Administrator\Desktop" '要访问的工作簿路径和名称
SheetName = "sheet1" '指定的要访问的工作表名称
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表
xlSheet.Cells(5, 2) = Text1.Text '给单元格B5赋值
xlSheet.Cells(2, 3) = Text2.Text '给单元格C2赋值
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub

只会这些了，而且程序运行老是提示未定义变量Private Sub Command1_Click()这个如何解决？

Answer 1

检查窗体上有没有名为Command1的按钮，名字必须为Command1。另外，看有没有引用OFFICE类

追问

有

窗体有commd1的，也有引用的

追答

按钮的名字到底是Command1还是commd1，弄清楚，这两个是不一样的

追问

是command1，我没打全…

追答

查看出错暂停时光标停在哪一行，电脑上没装VB，无法查看，看提示应该还是按扭名称的问题，否则不会停到这一行

追问

就是我说的那一行…有command那一行

追答

这我就不知道了，机子上没VB，没法试的，不好意思，帮不到你