转VBS导excel.txt dimoExcel,oWb,oSheetSetoExcel=CreateObject("Excel.Application")SetoWb=oExcel.Workbooks.Open("E:\其他\新装电话表.xls")SetoSheet=oWb.Sheets("Sheet1")MsgBoxoShe