ActiveWorkbook.Save

　　ActiveWorkbook.Close

　　End If

　　End If

　　Exit Sub

　　errhandler1:

　　Select Case Err

　　Case 53

　　Workbooks.Open FileName:=modulefile

　　s3 = s1 + "年" + s2 + "月"

　　Sheets("資產(chǎn)負(fù)債表").Range("e4").FormulaR1C1 = "'" + s3

　　ActiveWorkbook.SaveAs FileName:=staticsfile, FileFormat _

　　:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _

　　False, CreateBackup:=False

　　For i = 0 To companynum - 1

　　For j = 0 To tablenum - 1

　　dbfstring = dbfpre + Trim(Str$(j + 1)) + s2

　　sqlstring = sqlstringfunc(dbfstring, fieldlist(), tablefieldnum(j))

　　Call dbftoxls(s(i, j), sqlstring)

　　Next j

　　Next i

　　ActiveWorkbook.Save

　　ActiveWorkbook.Close

　　End Select

　　End Sub

　　`dbftoxls子程序

　　Sub dbftoxls(activesheetname, sqlstring)

　　Sheets(activesheetname).Activate

　　Cells.Select

　　Selection.Clear

　　Range("a1").Select

　　With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _

　　"ODBC;CollatingSequence=ASCII;DBQ=C:\T\palm1;DefaultDir=C:\T

　　\palm1;Deleted=1;Driver={Microsoft dBase Driver (*.dbf)};DriverId=533;FIL" _

　　), Array( _

　　"=dBase III;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=

　　8;PageTimeout=600;SafeTransactions=0;Statistics=0;Threads=3;Use" _

　　), Array("rCommitSync=Yes;")), Destination:=Range("A1"))

　　.Sql = Array( sqlstring)

　　2011年上半年計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等考二級(jí)VB輔導(dǎo)知識(shí)技巧匯總