Question

vb怎么输出word文档

我做了一个有限元计算程序。以及解方程的出结果了。我想把结果一个个输出保存到一个txt或者word文档里怎么办？？

Answer 1

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

追问

我怎么设置创建的excel文件的文件名和存储位置啊？？还有我使用了一下
dim outp as new excel.application显示错误，然后查了一下从项目里引用Microsoft.Excel15.0objectlibrary.然后在代码里输入Imports Microsoft.Office.Interop，还是不行。imports这里就显示语法错误了。

追答

给你我以前做的一段代码参考一下：

Private Sub Savetoexcelfile(Tempexcelfile As String) '输出到excel文件
Dim TempExcel As Excel.Application  '定义EXCEL对象
Dim TempBook As Excel.Workbook   '定义EXCEL工作簿
Dim TempSheet As Excel.Worksheet   '定义EXCEL表

Set TempExcel = New Excel.Application   '新建EXCEL对象

If Dir(Tempexcelfile) <> "" Then  '存在则先删除文件,重新创建，防止保存EXCEL文件时出现错误
 Kill Tempexcelfile
End If
 
Set TempBook = TempExcel.Workbooks.Add
Set TempSheet = TempBook.Worksheets("sheet1")
 '以下省略将相关数据保存到EXCEL表格的代码
 
TempExcel.ActiveWorkbook.SaveAs FileName:=Tempexcelfile   '将数据保存为EXCEL文件
TempBook.Close   '关闭工作簿
TempExcel.Quit   '退出EXCEL对象
Set TempSheet = Nothing   
Set TempBook = Nothing
Set TempExcel = Nothing

MsgBox "数据导出到电子表格已成功!", 0 + 48, "数据导出"
End Sub

追问

现在代码编好了运行出现这些问题。。。添加引用里勾了microsoft excel 15.0 object library。并且在public class 前面加了Imports Microsoft.Office.Interop.Excel。还是出错。

追答

你用的是VB6还是2008啊？

追问

vb2013

追答

我那个代码是VB6的

Answer 2

这个要使用部件，如果是数据，最好还是输出到Excel里。
在VB6中，添加引用“Microsoft Excel object Library”
过程中加入下列代码，就能读写EXCEL单元格了：
Set FileSys = CreateObject("scripting.filesystemobject")
Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置Excel不可见
Set xlBook = xlApp.Workbooks.Open(App.Path & "\temp.xls") '打开Excel工作簿 temp.xls
Set xlsheet = xlBook.Worksheets(1) '打开Excel工作表(Sheet1)
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "日期"
xlsheet.Cells(1, 2) = "时间"
程序结束时要用以下代码关闭EXCEL：
xlBook.RunAutoMacros (xlAutoClose) '执行EXCEL关闭宏
xlBook.Close (True) '关闭EXCEL工作簿
xlApp.Quit '关闭EXCEL
Set xlApp = Nothing '释放EXCEL对象

追问

为什么要设置excel不可见？文件会被保存在哪里？scripting.filesystemobject是什么？还有我用的是vb2013版本

Answer 3

你可以直接按照保存txt文件那样，只是将后缀改为doc就行了，word可以直接阅读txt文本的

Answer 4

XML格式的Word或者txt都是文本文件。只需要按照格式填写好格式，需要输出的内容拼到一起即可。