【文件属性】:
文件名称:(转)VBS导excel.txt
文件大小:9KB
文件格式:TXT
更新时间:2017-02-09 18:08:20
VBS
dim oExcel,oWb,oSheet
Set oExcel= CreateObject("Excel.Application")
Set oWb = oExcel.Workbooks.Open("E:\其他\新装电话表.xls")
Set oSheet = oWb.Sheets("Sheet1")
MsgBox oSheet.Range("B2").Value '#提取单元格B2内容
'.....