把以下代码放入代码窗口中运行即可:Option ExplicitDim mxlApp As Excel.ApplicationDim mxlBook As Excel.WorkbookDim mxlSheet As ObjectDim H As IntegerPrivate Sub Command1_Click() '下一行If H < 4 Then
H = H + 1
Text1.Text = mxlSheet.Cells(H, 1)
Text2.Text = mxlSheet.Cells(H, 2)
Text3.Text = mxlSheet.Cells(H, 3)
Te...
'添加引用:microsoft excel 11.0 object libraryDim xlsApp As Excel.ApplicationDim xlsBook1 As Excel.WorkbookDim xlsSheet1 As Excel.WorksheetDim i As IntegerDim fileName As Stri...