Vziiii

摘要： Dim filename,sheetname Dim xlApp Dim xlWorkbook Dim xlWorksheet Dim i,constr,con,rst,iRowCount filename= '此处填写要导入excel的完整文件路径 If filename="" Then Msgbox "还没有选择需要导入的文件!" Else s... 阅读全文

摘要： 1 Dim t 2 '获取系统当前时间 3 t=Year(Now)&"."&Month(Now)&"."&Day(Now)&"-"&Hour(Now)&"."&Minute(Now)&"."&Second(Now) 4 Dim filename,sheetname ,xlApp, xlWorkbook, xlWorksheet 5 Dim i,constr,con,rst,iRow... 阅读全文