在工程中引用Microsoft Excel 14.0 Object Library对象（我的是EXCEL2010，版本号14）
Set ex = CreateObject("excel.application")
Set exwBook = ex.Workbooks.Open(CommonDialog1.FileName)
Set exSheet1 = exwBook.Worksheets(1) '按表序
text1.text = exSheet1.Range("C" & 2) '第三列 第二行
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024