摘要：
//新开一个线程去处理新的工作，可以传一个参数class MyClass//自定义一个类{void fun(){}...}MyClass* myObject=newMyClass;AfxBeginThread(myThread, myObject);//新线程工作UINT __cdecl myThread(LPVOID p){MyClass* obj= (MyClass*)p; obj->fun(); ...AfxEndThread(0);//结束线程return 0;} 阅读全文
摘要：
Sub 合并一个文件夹下全部xls文件中sheet到一个xls的sheet()workDir = ThisWorkbook.Path '当前xls文件所在的目录绝对路径'MsgBox workDir, 0, "workDir"bookname = ThisWorkbook.Name '当前xls文件名'MsgBox bookname, 0, "bookname"file = Dir(workDir & "\*.xls") 'workDir目录下第一个文件名'MsgBox file 阅读全文