摘要：Const ForReading = 1 CLineCount = 14LineCount = 8 LineCount_1 = 2Index = 0 Index_1 = 0row_no=13 strProgramPath = "C:\SUN\config\test.xls"Set objExcel = CreateObject("Excel.Application")objExcel.Visible = falseobjExcel.DisplayAlerts = FALSESet oShell = CreateObject( "WScript.
阅读全文
posted @ 2014-03-17 11:07
浙公网安备 33010602011771号