vb怎么输出word文档

保存到TXT文件最简单，如果要输出到WORD，则要在工程里引用WORD对象，对WORD对象进行 *** 作。至于为什么要设置不可见，因为程序引用WORD或者EXCEL对象时，相当于打开了圆蔽告一个WORD或者EXCEL，这不是程序想要的，程序只管引用对象并没，并对对象橘明进行自动 *** 作，不需要看到这个对象。

Replace(ttt,

"\燃明\",

"\")是替换函数，把ttt字串中的\\换成\

dir是vb的目录 *** 作函孝段知数，是判断指定巧消目录是否存在

mkdir是建立目录

目录就是文件夹，呵呵

在vb6.0程序或.net程序安蔽察装的crystal reports for .net frameork2.0组件有关。还可余模以去http://crystalreporthelper.codeplex.com/releases/view/55750下载CrystalReportHelperLib。

Imports CrystalReportHelperLib

Private Sub btn_GenerateReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_GenerateReport.Click

'建立一个新的Crystal Report Helper

Dim CReport As New CrystalReportHelper

Using CReport

'初始化报表

CReport.InitialiseCrystalReport("C:CrystalReportShareChiWaiSample.rpt")

'设定数据库资料

CReport.SetDataSourceConnection("SQL Server Name", "SQL Database Name", "SQLUsername", "SQLPW")

'设定列印时的选项---这是设定双面列印的

CReport.SetPrinterSettingsDuplexDefaultOption()

'将会用来Print 这个Report 的 Printer 名称

CReport.SetPrinter("Printer PathPrinter Name")

'设定报告的 Variable

CReport.SetParameter("@Period", "Database Variable1")

CReport.SetParameter("@Period", "Database Variable1")

'Export PDF

CReport.ExportCrystalReport("PortableDocFormat", "C:CrystalReportExportShareChiWaiSample.pdf")

'Print Report

CReport.PrintAllDoc()

'关闭Report

CReport.Close()

CReport = Nothing

End Using

End Sub

这个可以做宏毁茄参考

---