Question

怎样将vb中的数据存入word表格

word表格已经做好，请问怎样将VB计算的结果导入表格中？谢谢,希望各位高手给一个代码 表格格式如下; 工程名称 B1 试验者 B2 土样编号 B3 试验方法 B4 试验日期 B5 凝聚力C 内摩擦角φ B6 B7

Answer 1

Dim wa As New Word.Application Dim wd As Word.Document Dim filename As String = "" filename = "C:\Documents and Settings\gy\桌面\1.doc" wd = wa.Documents.Open(filename) For i As Integer = 0 To wd.Tables.Item(1).Rows.Count - 1 For j As Integer = 0 To wd.Tables.Item(1).Columns.Count - 1 If Me.DataGridView1.Rows(i).Cells(j).Value Is Nothing Then wd.Tables.Item(1).Cell(i + 1, j + 1).Range.Text = "" Else wd.Tables.Item(1).Cell(i + 1, j + 1).Range.Text = Me.DataGridView1.Rows(i).Cells(j).Value.ToString.Trim End If Next Next 添加microsoft word 10.0 object library 引用~