each teacher:
I made a excel file to specify folders below summarize the VBA program code (refer to the other teachers), the idea is:
Function (1) through work thin: first to open the specified file the documents one by one, and keep to today's file (create a new sheet, and the sheet named "work of thin" + "sheet name")
Function 2 (summary sheet) : the current in the excel file, in addition to the content of the "of" the main table sheet, one copy to "the main table sheet inside
"Before deleting function 3 (delete sheet) : in the excel file, in addition to the main table "sheet of all the other sheet

Start, the three can run successfully, but after running for a long time, 1 will not be able to use the function,
Testing for many times, when the preliminary analysis, would be to use the function after 3 (delete sheet) problems, namely the Sht. Copy after:=ThisWorkbook. Worksheets (Sheets. Count) can not run normally, K=K + 1 is a normal

Statements are identical, the newly built excel, you can run normally, but after a few times can't run, troublesome everybody the teacher look, what the causes of the attachment is to run a few times, can't run VBA program (" 3. Summary table (not run) "), the trouble which the master to help have a look, thank you very much,
[/size]

The attachment "3. Summary tables (not run)" : https://download.csdn.net/download/gadengyong/13199309