新手求助，createobject参数不可选

[qq_39977324]

]Dim myworksheet As Object
Dim myworkbook As Object
Dim s(1 To 5, 1 To 6) As Integer
Dim myexcel As Object
Dim i, j As Integer

Private Sub Command1_Click()
Set myexcel = CreateObject.open("d:/test.xls")
Set myworkbook = myexcel.workbooks.Add
Set myworksheet = myworkbook.worksheet1
For i = 1 To 5 Step 1
For j = 1 To 6 Step 1
s(i, j) = myworksheet.activesheet.cell(i, j)
Next j
Next i
For i = 1 To 5 Step 1
For j = 1 To 6 Step 1
text1.Text = s(i, j) + text1.Text
Next j '
Next i
End Sub

[小噤]

    Set myexcel = CreateObject("Excel.Application") '改
    Set myworkbook = myexcel.workbooks.open("d:/test.xls") '改
    Set myworkbook = myexcel.workbooks.Add
    Set myworksheet = myworkbook.Sheets(1) 'worksheet1 不懂你这个

    For i = 1 To 5 Step 1
        For j = 1 To 6 Step 1
            's(i, j) = myworksheet.activesheet.cell(i, j)
            s(i, j) = myworksheet.cells(i, j) '改成这个
        Next j
    Next i

[qq_39977324]

Dim i, j As Integer Dim myworkbook As Object Dim myworksheet As Object Dim s(1 To 5, 1 To 6) As String Dim myexcel As Object Private Sub Command1_Click() Set myexcel = CreateObject("excel.application") Set myworkbook = myexcel.workbooks.Open("d:/1.xls") Set myworkbook = myexcel.workbooks.Add Set myworksheet = myworkbook.worksheets("sheet1") For i = 1 To 5 Step 1 For j = 1 To 6 Step 1 s(i, j) = myworksheet.Cells(i, j) Print s(i, j) Next j Next i End Sub 代码没有问题了，为什么s(i,j)结果出不来，Excel已经引用了，d盘中也有文件

[X-i-n]

Set myworkbook = myexcel.workbooks.Open("d:/1.xls") // 打开D:\1.xls Set myworkbook = myexcel.workbooks.Add //新建一个excel文件（excel 工作簿 ） 看你的需求应该是读里面的内容，删掉后面workbooks.add这一条。

[舉杯邀明月]

引用 3 楼 Runnerchin 的回复:

Set myworkbook = myexcel.workbooks.Open("d:/1.xls") // 打开D:\1.xls Set myworkbook = myexcel.workbooks.Add //新建一个excel文件（excel 工作簿 ） 看你的需求应该是读里面的内容，删掉后面workbooks.add这一条。

+1 有那一句，楼主的代码，后面就是在一个空白工作簿中去读取数据了，当然就会“数据出不来”。

[qq_39977324]

问题解决啦，谢谢各位，