2011年计算机等考二级VB辅导知识技巧总结(23)

　　ActiveWorkbook.Save

　　ActiveWorkbook.Close

　　End If

　　End If

　　Exit Sub

　　errhandler1:

　　Select Case Err

　　Case 53

　　Workbooks.Open FileName:=modulefile

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

　　Sheets("资产负债表").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年上半年计算机等级考试报名时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等考二级VB辅导知识技巧汇总