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

　　三、 使用VB实现Excel自动获取外部数据

　　(1) 进行手动获取外部数据(1)步骤前，单击“工具”菜单中的“宏”，选择“录制新宏”，在“宏名”的编辑框中键入宏名dbftoxls,按“确定”键;

　　(2) 完成手动获取外部数据(1)-(8)步骤;

　　(3) 单击“工具”菜单中的“宏”，选择“停止录制”。这样就将获取外部数据的过程记录为宏。

　　(4) 编辑dbftoxls宏，加以修改，使它作为Visual Basic模块表中的一个子程序，并设置调用参数。

　　提供的程序如下：

　　`设置初值

　　Const apppath = "c:\my documents\palmxls\"

　　Const modulefile = apppath + "module.xls"

　　Const staticspre = "TTT"

　　Const dbfpre = "ATV00"

　　`调用dbftoxls的模块

　　Private Sub Cmdgeneratetable_Click()

　　Dim staticsfile As String

　　Dim s1 As String

　　Dim s2 As String

　　Dim s3 As String

　　Dim idyes As Integer

　　Dim dbfstring As String

　　On Error GoTo errhandler1

　　idyes = 6

　　s1 = txtyear.Text

　　s1 = Mid(s1, 3, 2)

　　s2 = txtmonth.Text

　　If Len(s2) = 1 Then

　　s2 = "0" + s2

　　End If

　　staticsfile = apppath + staticspre + s1 + s2 + ".xls"

　　If FileLen(staticsfile) > 0 Then

　　choice = MsgBox("该年月报表已存在，是否重新生成?", vbYesNo + vbExclamation + vbDefaultButton1, "")

　　If choice = idyes Then

　　Workbooks.Open FileName:=staticsfile

　　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

　　2011年上半年计算机等级考试报名时间汇总

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

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

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