For example I want to open a EXCEL, and from the above readings written in VB
Private Sub Command1_Click () Dim excel_App As Excel. Application Dim excel_Book As Excel. The Workbook Dim excel_sheet As Excel. The Worksheet The Set excel_App=CreateObject (" Excel. Application ") Excel_App. Visible=False Set excel_Book=excel_App. Workbooks. Open (App) Path + "\ file A.x LSX") The Set excel_sheet=excel_Book. Worksheets (" Sheet1 ") Dim As Integer I Dim j As Integer
Dim A (1 To 10, 1 To 12) As an Integer For I=1 To 10 For j=1 To 12 A (I, j)=excel_sheet. Cells (I + 1, j + 1) Print A (I, j); If j=12 Then Print
Next j Next I
End Sub
Don't do this way, but the pop-up a open operation box allows users to choose their own open the EXCEL file, how to write ah,