Photoshop Dreamweaver SVG WebGL
Visual Studio PowerDesigner Eclipse Git Apache Ant Atom Composer CodeSmith Flex Gradle Maven Sublime Text3 SVN Tableau Vim Chrome开发者工具 OpenGL Unity Direct3D
用户登录
用户注册

分享至

用vb输出word vb怎么输出word文档

  • 作者: 稀世珍品文玩天下
  • 来源: 51数据库
  • 2020-04-21

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

我怎么设置创建的excel文件的文件名和存储位置啊？？还有我使用了一下

dim outp as new excel.application显示错误，然后查了一下从项目里引用Microsoft.Excel15.0objectlibrary.然后在代码里输入Imports Microsoft.Office.Interop，还是不行。imports这里就显示语法错误了。

给你我以前做的一段代码参考一下：
PrivateSubSavetoexcelfile(TempexcelfileAsString)'输出到excel文件
DimTempExcelAsExcel.Application'定义EXCEL对象
DimTempBookAsExcel.Workbook'定义EXCEL工作簿
DimTempSheetAsExcel.Worksheet'定义EXCEL表
SetTempExcel=NewExcel.Application'新建EXCEL对象
IfDir(Tempexcelfile)<>""Then'存在则先删除文件,重新创建，防止保存EXCEL文件时出现错误
KillTempexcelfile
EndIf
SetTempBook=TempExcel.Workbooks.Add
SetTempSheet=TempBook.Worksheets("sheet1")
'以下省略将相关数据保存到EXCEL表格的代码
TempExcel.ActiveWorkbook.SaveAsFileName:=Tempexcelfile'将数据保存为EXCEL文件
TempBook.Close'关闭工作簿
TempExcel.Quit'退出EXCEL对象
SetTempSheet=Nothing
SetTempBook=Nothing
SetTempExcel=Nothing
MsgBox"数据导出到电子表格已成功!",0+48,"数据导出"
EndSub
现在代码编好了运行出现这些问题。。。添加引用里勾了microsoft excel 15.0 object library。并且在public class 前面加了Imports Microsoft.Office.Interop.Excel。还是出错。
你用的是VB6还是2008啊？
vb2013
我那个代码是VB6的
怎样在VB中输出word文档
Dim WordApp As Word.Application'定义word应用变量
    Dim newDoc As Word.Document'定义word文档变量
    Set WordApp = CreateObject("Word.Application")'创建新的word应用
    WordApp.Visible = True
    
    With WordApp
        Set newDoc = .Documents.Add(App.Path & "\报告单\食品水质报告.Doc")'在创建的word应用中新建一个新的word文档
        With .Selection
            .GoTo wdGoToBookmark, , , "bh" bh为word文档中的对应位置的标签名
            .TypeText PrnBID'写内容
            .GoTo wdGoToBookmark, , , "GoodsName"  'GoodsName为word文档中的对应位置的标签名
            .TypeText PrnGName'写内容
            Set MyRS = Nothing
        End With
'        newDoc.SaveAs FileName:=FilePath
    End With
    
'    If theError = 429 Then WordApp.Quit
    Set WordApp = Nothing
在事先做好的word文档中要写内容的位置设定好标签,然后在程序中找到标签,再写入数据
vb的内容如何导出到word中
先用word建立一个“模板”，把该画的表格和格式设置好，然后调出“窗体”工具栏，在你想要接收vb传来数值的位置加入“文本型窗体域”（就是文本框），在“窗体”工具栏上把“域底纹”点一下把域的底纹去掉，要不然不好看。加入域的时候记得要为每个“域”的属性里“书签”命名（其实就是相当于vb中的“名称”），保存退出（假设为c:\doc1.doc)。
在vb中新建工程并引用Microsoft Word x Object Library，在窗体中加入与word中域相对应的文本框，加一个command，加入类似以下的代码（我只用了一个文本框做例子，你自己再扩展一下吧）：
Private Sub Command1_Click()
  Dim doc1 As Word.Application
  Set doc1 = New Word.Application
  doc1.Documents.Open ("c:\doc1.doc")
  doc1.ActiveDocument.FormFields("text1").Result = Text1.Text
  doc1.ActiveDocument.Save
  doc1.Documents.Close
  Set doc1 = Nothing
End Sub
这样一来，我就把窗体中text1中的text值传入到了名为doc1.doc的word文件中。
VB 怎么输出到 word
引用WORD函数库吧，就是使用自动化，这方面的文章网上多的是，不过这样的程序运行时要求必须安装过WORD否则是运行不了的。
如果是想在无WORD的机器上也能使用，我还没找到方法，因为这样非常熟悉微软RORD EXCEL ACCESS 的数据结构，这微软可不公开。
怎么用VB将连接在access中的数据输出到word中呢？
我以前写过一个写到excel中的。对你可能有帮助。
Private Sub Command2_Click()
p = InputBox("请输入文件名", "文件名.xls")
Dim i As Integer
Dim j As Integer
Dim xl As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xl = New Excel.Application
Set xlbook = xl.Workbooks.Add
Set xlsheet = xlbook.Worksheets("sheet1")
Select Case Combo1.Text
Case "查询入库单"
    If Combo2.Text = "显示器" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "供应商编号"
        xl.Range("G3").Value = "供应商名称"
        xl.Range("H3").Value = "商品规格"
        xl.Range("I3").Value = "单位"
        xl.Range("J3").Value = "数量"
        xl.Range("K3").Value = "单价"
        xl.Range("L3").Value = "金额"
        xl.Range("M3").Value = "入库时间"
        xl.Range("N3").Value = "经手人"
        xl.Range("O3").Value = "备注"
    ElseIf Combo2.Text = "主机散件" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "商品类型"
        xl.Range("G3").Value = "供应商名称"
        xl.Range("H3").Value = "供应商编号"
        xl.Range("I3").Value = "商品规格"
        xl.Range("J3").Value = "单位"
        xl.Range("K3").Value = "数量"
        xl.Range("L3").Value = "单价"
        xl.Range("M3").Value = "金额"
        xl.Range("N3").Value = "入库时间"
        xl.Range("O3").Value = "经手人"
        xl.Range("P3").Value = "备注"
    ElseIf Combo2.Text = "打印机、复印机" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "商品类型"
        xl.Range("G3").Value = "供应商名称"
        xl.Range("H3").Value = "供应商编号"
        xl.Range("I3").Value = "商品规格"
        xl.Range("J3").Value = "单位"
        xl.Range("K3").Value = "数量"
        xl.Range("L3").Value = "单价"
        xl.Range("M3").Value = "金额"
        xl.Range("N3").Value = "入库时间"
        xl.Range("O3").Value = "经手人"
        xl.Range("P3").Value = "备注"
    ElseIf Combo2.Text = "路由器、交换机" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "商品类型"
        xl.Range("G3").Value = "供应商名称"
        xl.Range("H3").Value = "供应商编号"
        xl.Range("I3").Value = "商品规格"
        xl.Range("J3").Value = "单位"
        xl.Range("K3").Value = "数量"
        xl.Range("L3").Value = "单价"
        xl.Range("M3").Value = "金额"
        xl.Range("N3").Value = "入库时间"
        xl.Range("O3").Value = "经手人"
        xl.Range("P3").Value = "备注"
    ElseIf Combo2.Text = "其他设备" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "供应商编号"
        xl.Range("G3").Value = "供应商名称"
        xl.Range("H3").Value = "商品类型"
        xl.Range("I3").Value = "商品规格"
        xl.Range("J3").Value = "单位"
        xl.Range("K3").Value = "数量"
        xl.Range("L3").Value = "单价"
        xl.Range("M3").Value = "金额"
        xl.Range("N3").Value = "入库时间"
        xl.Range("O3").Value = "经手人"
        xl.Range("P3").Value = "备注"
    End If
Case "查询出库单"
    If Combo2.Text = "显示器" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "客户名称"
        xl.Range("G3").Value = "商品规格"
        xl.Range("H3").Value = "单位"
        xl.Range("I3").Value = "数量"
        xl.Range("J3").Value = "单价"
        xl.Range("K3").Value = "金额"
        xl.Range("L3").Value = "出库时间"
        xl.Range("M3").Value = "经手人"
        xl.Range("N3").Value = "备注"
    ElseIf Combo2.Text = "主机散件" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "客户名称"
        xl.Range("G3").Value = "商品类型"
        xl.Range("H3").Value = "商品规格"
        xl.Range("I3").Value = "单位"
        xl.Range("J3").Value = "数量"
        xl.Range("K3").Value = "单价"
        xl.Range("L3").Value = "金额"
        xl.Range("M3").Value = "出库时间"
        xl.Range("N3").Value = "经手人"
        xl.Range("O3").Value = "备注"
    ElseIf Combo2.Text = "打印机、复印机" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "客户名称"
        xl.Range("G3").Value = "商品类型"
        xl.Range("H3").Value = "商品规格"
        xl.Range("I3").Value = "单位"
        xl.Range("J3").Value = "数量"
        xl.Range("K3").Value = "单价"
        xl.Range("L3").Value = "金额"
        xl.Range("M3").Value = "出库时间"
        xl.Range("N3").Value = "经手人"
        xl.Range("O3").Value = "备注"
    ElseIf Combo2.Text = "路由器、交换机" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "客户名称"
        xl.Range("G3").Value = "商品类型"
        xl.Range("H3").Value = "商品规格"
        xl.Range("I3").Value = "单位"
        xl.Range("J3").Value = "数量"
        xl.Range("K3").Value = "单价"
        xl.Range("L3").Value = "金额"
        xl.Range("M3").Value = "出库时间"
        xl.Range("N3").Value = "经手人"
        xl.Range("O3").Value = "备注"
    ElseIf Combo2.Text = "其他设备" Then
        xl.Range("C3").Value = "ID"
        xl.Range("D3").Value = "商品编号"
        xl.Range("E3").Value = "商品名称"
        xl.Range("F3").Value = "客户名称"
        xl.Range("G3").Value = "商品类型"
        xl.Range("H3").Value = "商品规格"
        xl.Range("I3").Value = "单位"
        xl.Range("J3").Value = "数量"
        xl.Range("K3").Value = "单价"
        xl.Range("L3").Value = "金额"
        xl.Range("M3").Value = "出库时间"
        xl.Range("N3").Value = "经手人"
        xl.Range("O3").Value = "备注"
    End If
Case "查询报损单"
    xl.Range("C3").Value = "ID"
    xl.Range("D3").Value = "货品名称"
    xl.Range("E3").Value = "货品类型"
    xl.Range("F3").Value = "货品规格"
    xl.Range("G3").Value = "损坏数量"
    xl.Range("H3").Value = "添加人"
    xl.Range("I3").Value = "添加时间"
    xl.Range("J3").Value = "备注"
    xl.Range("K3").Value = ""
    xl.Range("L3").Value = ""
    xl.Range("M3").Value = ""
    xl.Range("N3").Value = ""
    xl.Range("O3").Value = ""
End Select
For i = 1 To Adodc1.Recordset.RecordCount
    j = 3 + i
    For k = 0 To 14
        w = Chr(99 + k) & j
        xl.Range(w).Value = DataGrid1.Columns(k)
        Next k
    If Adodc1.Recordset.EOF = False Then
        Adodc1.Recordset.MoveNext
    End If
    Next i
xlbook.SaveAs App.Path & "\EXCEL表\" & p
xl.quit
MsgBox "数据导出完成", 64
End Sub
如何用vb在word中输出文字
方法很简单,不需要使用shell函数,剪贴簿或是api也可以解决,要将 access 中的变数传到 word中,有两种方法(可能有很多吧!!但是我只知道这两种),第一是利用word内建的合并列印功能,另外一种是使用word中的"插入(i)/功能变数(F)"然后利用一个"DocVariable"功能变数,这样就可以轻松在VBA中对word文件中的指定的位置加入经程式处理过的文字....
当然这两种方法,都需要程式设计者先设计一个word文件,使这个word文件一开启就具有已有己经事先安排好的合并列印栏位或是变数,让使用者只要在access中按下一个commandbutton就可以顺利看到自己所需的报表或是你所说的考卷出现在word中....
参考资料：www.yjdfedu.com/test
怎么讲vb计算的数据以word输出
'添加一个Button
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FileOpen(1, "D:\123.doc", OpenMode.Output)   '文件保存到D:\123.doc
        PrintLine(1, TextBox1.Text)      '这里假设你的数据存在TextBox1中
        FileClose(1)
    End Sub
转载请注明出处51数据库 » 用vb输出word vb怎么输出word文档
推荐阅读
热点文章

Copyright 2018 51数据库(www.51sjk.com)

软件
前端设计
程序设计
Java相关