| 子按钮j |
| 读首页 |
| mxl新Excel应用 |
| mxlwexcel.Workbook |
| 打开exce文件 |
| setxlw=xl.Workbook.Open∖用户群∖ELEC462.xlsx |
| Xlw.Sheets (ELEC462)选择 |
| '从工作表单元格2至3获取值 |
| MsgBoxxlw应用cells(3,2)value |
| 范围 (C6).value=xlw.Application.Cells(19,9).value |
| 范围 (d6).value=xlw.Application.Cells(20,9).value |
| 范围 (E6).value=xlw.Application.Cells(21,9).value |
| 范围 (F6).value=xlw.Application.Cells(25,7) |
| 关闭工作表不保存修改 |
| '如果想保存修改,用 True替换False |
| slw.Close假 |
| 自由存储器 |
| setxlw=无 |
| setxl=无 |
| 读取二叉文件 |
| mxl2新Excel应用 |
| mxlw2excel.Workbook |
| 打开exce文件 |
| setxw2=xl.Workbook.Ope∖用户群∖ELEC562.xlsx |
| xlw2.Sheets("ELEC562").Select |
| '从工作表单元格2至3获取值 |
| MsgBoxxlw应用cells(3,2)value |
| 范围(C7).value=xlw2应用.Cells(19,9).value |
| 范围(D7).value=xlw2应用.Cells(20,9).value |
| 范围(E7).value=xlw2应用.Cells(21,9).value |
| 范围(F7).value=xlw2应用.Cells(25,7) |
| 关闭工作表不保存修改 |
| '如果想保存修改,用 True替换False |
| slw2.Close假 |
| 自由存储器 |
| setxlw2=无 |
| setxl2=无 |
| 结束子 |
