VB 中excel的问题，我快要疯了！！！！！！！

来源：百度知道 编辑：UC知道 时间：2024/07/07 14:30:59
我在窗体中用OLE添加了一个excel表格，引用excel也引用了，在表格中输入数据也可读出来。但是但是，只要我用循环读就什么也读不到。代码如下
Private Sub Command2_Click()
Dim ttt As Excel.Workbook
Set ttt = OLE1.object
For j = 2 To 3
A = ttt.Sheets(1).Cells(2, 2).Value
Print A
Next j
End Sub

快要疯了，一下午没弄出来，求高手帮帮我，感激涕零感激涕零！！

Private Sub Command2_Click()
Dim ttt As Excel.Workbook
Set ttt = OLE1.object
For j = 2 To 3
A = ttt.Sheets(1).Cells(2, 2).Value
Print A
Next j
End Sub
和循环没关系也应该能读取数据啊.
你可能是多窗体程序,用print 是打印不出来的.
首先要把窗体 "autodraw"设成"true",
然后把print A,改成,me.print A
这样一定可以打出来的.
当然还可以把OLE的change事件里加上,OLE1.refresh.这样可以保证,在表格中输入数据后可以即时更新.

Private Sub Command1_Click(Index As Integer)
Dim ttt As Excel.Workbook
Set ttt = OLE1.object
Me.Cls
Me.AutoRedraw = True '你的窗体自动重画开了吗？

ttt.Sheets(1).Cells(2, 2).Value = "行2-列2" '单元格中有内容吗？
ttt.Sheets(1).Cells(2, 3).Value = "行2-列3"

For J = 2 To 3
a = ttt.Sheets(1).Cells(2, J).Value '用了循环不用 J 有什么用？
'a = ttt.Sheets(1).Cells(2, J).text'或者这条语句代替上条
Print a
Next J
End Sub

你是不是想用sheets(j).Cells(2,2).value 都表2、表3的数据写成sheets（1）了，而sh