要在vba中创建一个新的查询表，使用querytables集合的add方法。querytables集合从属于worksheet对象，并且包含了该工作表的所有querytable对象。创建了一个新的查询表后，必须使用querytable对象的refresh方法在查询表中显示数据。 dim dbreset as database dim rstreset as recordset dim wksnew as excel.worksheet dim qtbdata as excel.querytable ...... set rstreset = dbreset.openrecordset(营业部) set qtbdata = _ wksnew.querytables.add(rstreset, wksnew.range(a4)) set qtbdata = wksnew.querytables.add( _ connection:=rstreset, _ destination:=wksnew.range(a4)) with qtbdata .fieldnames = false .rownumbers = false .filladjacentformulas = false .preserveformatting = true .refreshonfileopen = false .backgroundquery = false .refreshstyle = xlinsertdeletecells .savepassword = true .savedata = true .adjustcolumnwidth = false .refreshperiod = 0 .preservecolumninfo = true .refresh backgroundquery:=false end with qtbdata.refresh 4.4 使用microsoft outlook对象 可以以三种方式使用outlook的对象模型： ● 编写在本地工程文件或与outlook本地安装相关联的com加载项中运行的vba代码。 ● 使用outlook窗体中自带的脚本环境，该窗体用于显示诸如消息和约会这样的项目。 ● 通过automation在其它office应用程序或支持vba的其它应用程序中使用outlook。 本系统使用第三种方式。在使用vba访问outlook对象、方法、属性之前，必须首先单击visual basic编辑器的tools菜单项下的reference来设置对microsoft outlook对象库的引用。 下面的示例initializeoutlook过程创建一个新的、隐藏的outlook实例；createmail过程创建一个邮件消息，设置收件人、附件、主题和消息内容,然后发送邮件。 public golapp as outlook.application public gnspnamespace as outlook.application function initializeoutlook() as boolean this function is used to initialize the global application on error goto init_err set golapp = new outlook.application initializeoutlook = true init_end: exit function init_err: initializeoutlook = false resume init_end end function function createmail(astrrecip as variant, _ strsubject as string, _ strmessage as string, _ optional astrattachments as variant) as boolean dim objnewmail as outlook.mailitem dim blnresolvesuccess as boolean on error goto createmail_err if golapp is nothing then if initializeoutlook = false then msgbox unable to initialize outlook application _ & or namespace object variables! exit function end if end if set golapp = new outlook.application set objnewmail = golapp.createitem(olmailitem) with objnewmail .recipients.add astrrecip blnresolvesuccess = .recipients.resolveall .attachments.add astrattachments .subject = strsubject .body = strmessage if blnresolvesuccess then .send else msgbox unable to resolve all recipients. please check _ & the names. .display end if end with createmail = true createmail_end: exit function createmail_err: createmail = false resume createmail_end end function 4.5 划分数据库对象 把包含表的数

上一页  [1] [2] [3] 下一页