[求助]VB怎样ListView内容数据保存到Word文档里呢

Question

   
    VB怎样ListView内容数据保存到Word文档里呢          向VB高手求教。

Answer 1

Dim WordApp As word.Application
        Err.Number = 0
        On Error GoTo notloaded
       ' Set WordApp = GetObject(, "Word.Application")
'notloaded:
      '  If Err.Number = 429 Then
            Set WordApp = CreateObject("Word.Application")
          '  theError = Err.Number
       ' End If
        WordApp.Visible = True
====================
这是在vb里面新建一个word对象
有了这个对象,你把listview里面的数据写进去就行了新建空白文档
   Set newDoc = WordApp.Documents.Add
这是存档
newDoc.SaveAs FileName:=filePath

Answer 2

'先引用 Word类
'在窗口中增加一个ListView1, 一个Command1
'以下代码在窗体中
Private Sub Command1_Click()
 Dim wApp As New Application
 Dim wDoc As Document
 Dim wNewTable As Table
 Set wDoc = wApp.Documents.Add
 
 Set wNewTable = wDoc.Tables.Add(Selection.Range, ListView1.ListItems.Count + 1, ListView1.ColumnHeaders.Count)
 For i = 1 To ListView1.ColumnHeaders.Count
    wNewTable.Cell(1, i).Range.Text = ListView1.ColumnHeaders(i).Text
 Next
 
 For i = 1 To ListView1.ListItems.Count
   wNewTable.Cell(i + 1, 1).Range.Text = ListView1.ListItems(i).Text
   For j = 1 To ListView1.ColumnHeaders.Count - 1
     wNewTable.Cell(i + 1, j + 1).Range.Text = ListView1.ListItems(i).SubItems(j)
   Next
 Next wApp.Visible = True
End Sub

Answer 3

'接上 因为是示例,因此再在load窗体中增加一些示例数据.
Private Sub Form_Load()
  ListView1.View = lvwReport
  ListView1.ColumnHeaders.Add , , "第一列"
  ListView1.ColumnHeaders.Add , , "第二列"
  ListView1.ColumnHeaders.Add , , "第三列"
  ListView1.ColumnHeaders.Add , , "第四列"
  ListView1.ColumnHeaders.Add , , "第五列"
  
  Dim list1 As ListItem
  
  For i = 1 To 10
     Set list1 = ListView1.ListItems.Add(, , "NO" & i)
     For j = 1 To ListView1.ColumnHeaders.Count - 1
       list1.SubItems(j) = "Row" & i & "Column" & j + 1
     Next
  Next
  
End Sub

Answer 4

刚有人说我先要引用.引用什么没有说明白:
现在说具体一点:
引用..
Microsoft Word 11.0(这个是版本.不定相同) Object Library 

Answer 5

上面二位提供的代码中都有共同的错误提示，  Dim WordApp As word.Application== 错误提示为用户定义类型末定义
  
 这么说，word文档还没建立？

Answer 6

刚有人说我先要引用.引用什么没有说明白: 
现在说具体一点: 
引用.. 
Microsoft Word 11.0(这个是版本.不定相同) Object Library ......
不是说了用之前先要引用 上面那个库文件吗?不引用当然错误了.昨天有人对我说,可能人家不知道引用,要我说明白一点,我说得这么明白.没有想到还是不明白....

Answer 7

Micorsoft office 11.0 object Library  这个选中了，其他的没有啊像word那样字类。