
QQ
Sub test() Dim xcel As New excel.Application Dim xwbk As excel.Workbook Dim xsht As excel.Worksheet Set xwbk = xcel.Workbooks.Open(d:xxxmemo+browse.xlsx, 0, 1) Set xsht = xwbk.Sheets(1) MsgBox xsht.Range(a2) xwbk.Close 0 xcel.Quit Set xcel = NothingEnd Sub
这段代码会打开指定路径的excel文件,读取第一个工作表中A2单元格的内容并弹窗显示,之后关闭excel程序。注意要引用excel库,还有路径按需修改哈。
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号