如何把access数据库的内容导出到work文档中.docVIP

如何把access数据库的内容导出到work文档中回答：如何用VB编写程序实现把access数据库的内容导出到work文档中进行编辑打印? 回答：VB数据库导出WORD这里的数据库采用的是ACCESS生成的MDB数据库。考虑到在VB中画表等操作比较繁琐，所以采用了饮用模版的导出形式。仅供大家学习参考。DimcnAsNewADODB.Connection‘定义数据库DimrsAsNewADODB.RecordsetDimscanAsString‘存储查找数据库DimAppwordAsWord.Application’定义WORD模型变量DimNewwordAsWord.DocumentSetAppword=NewWord.ApplicationSetNewword=Appword.Documents.Add(App.Path \stencil \stencil.doc)‘这里是打开模版文档。stencil是模板的意思。可根据自己的需要替换。Appword.Visible=False‘隐藏WORD。导出时不在任务栏出现WORD文档。Appword.WindowState=wdWindowStateMinimizescan=text2(0).Text按编号搜索需要导出word的记录，一次只能导出一条记录rs.CursorLocation=adUseClientConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource= App.Path \data.mdb;JetOLEDB:DatabasePassword=harry2000cn.OpenConnectionStringrs.Openselect*fromADMINwhere编号=scan,cn,adOpenKeyset,adLockOptimistic‘查找需要导出的记录Ifrs.RecordCount=0Then’如果不存在该记录MsgBox请在左边选择需要导出的记录Appword.Documents.CloseAppword.QuitExitSubElse‘如果存在记录则运行以下代码WithNewword’设置模版表格和在表格中填入数据库内容。.Tables(1).Cell(1,1).Range.Text=(Format(rs!日期,yyyy年mm月dd日)).Tables(1).Cell(1,3).Range.Text=第rs!次数次到访.Tables(2).Cell(1,2).Range.Text=(rs!姓名).Tables(2).Cell(1,4).Range.Text=(rs!性别).Tables(2).Cell(1,6).Range.Text=(rs!年龄).Tables(2).Cell(2,2).Range.Text=(rs!所在单位rs!所在职位).Tables(2).Cell(2,4).Range.Text=(rs!联系电话).Tables(2).Cell(3,2).Range.Text=(rs!领导).Tables(2).Cell(3,4).Range.Text=(rs!时间)可以根据自己的需要设置填写内容。EndWithAppword.ChangeFileOpenDirectory(App.path \导出WORD文件夹)Appword.ActiveDocument.SaveAsFileName:=(App.path \导出WORD文件夹\rs!姓名Format(Now,yyyy-mm-dd).doc),FileFormat:=wdFormatDocument,LockComments:=False,Password:=,AddToRecentFiles:=True,WritePassword:=,ReadOnlyRecommended:=False,EmbedTrueTypeFonts:=False,SaveNativePictureFormat:=False,SaveFormsData:=False,SaveAsAOCELetter:=FalseAppword.Documents.CloseAppword.QuitMsgBox导出成功，rs!姓名Format(Now,yyyy-mm-dd)的资料保存于vbCrLfvbCrLfApp.path \导出WORD文件夹EndIfSetAppword=Nothing‘交还控制权SetNewword=NothingNewword.Closers.Close’关闭数据库注意事项:1以上是基本的操作，如果想在VB中对WORD操作。可以在WORD中录制宏