摘要:
http://www.developerfusion.com/toolsSub 删除宏()On Error Resume NextSet fso = CreateObject("Scripting.FileSystemObject")fname = ActiveWorkbook.Path & "\地球物理计算中心"Set fd = fso.getfolder(fname)Set fls = fd.FilesFor Each fl In fls Set wb = Workbooks.Open(fname & "\" &a 阅读全文
posted @ 2012-06-26 23:40
陆
阅读(286)
评论(0)
推荐(0)
摘要:
http://www.yongfa365.com/Item/NPOI-MyXls-DataTable-To-Excel-From-Excel.html 阅读全文
posted @ 2012-06-26 22:46
陆
阅读(176)
评论(0)
推荐(0)

浙公网安备 33010602011771号