(转)VBS导excel.txt

dimoExcel,oWb,oSheetSetoExcel=CreateObject("Excel.Application")SetoWb=oExcel.Workbooks.Open("E:\其他\新装电话表.xls")SetoSheet=oWb.Sheets("Sheet1")MsgBoxoSheet.Range("B2").Value'#提取单元格B2内容'.....