关于VB中做数据报表的问题？
如何在vb中把数据写到指定的word文件中？
请赐教
16 个解决方案
#1
你还不如说：用VB编程把数据写到Word文件中去，要求数据写到指定标签处。
关注....
哇！有得分得了。 :)
关注....
哇！有得分得了。 :)
#2
Thank you!!!
#3
range属性！
select range好像是的
range(x,y)
#4
shawls能具体些吗？谢谢
#5
把microsoft word object library 9.0 选上.然后你就可以在程序里用他的对象了.不明白的按F2.
#6
哇！word中的类和成员一大堆，用哪个呀？有谁做过呀?帮助也没有用。
#7
我回去试试。Thank you
#8
我试了一下，没出来。:-)
#9
能不能说的清楚些，最好提供源程序。
#10
SOS,难道真没有人知道吗？
#11
用documents对象的方法open你的word文档,得到一个document的对象.document里有一个range的对象,对它进行操作.
#12
to zhuomao:谢谢,我再试试
能否提供关键的源码
能否提供关键的源码
#13
Private Sub PrintSheet()
Dim nowdate As String
Dim wkbObj As Workbook
Dim wksObj As Worksheet
Dim i As Integer
Dim totalRe As Integer
MousePointer = 11
totalRe = 0
nowdate = Format(Date, "YYYYMMDD")
Workbooks.Add
Set wkbObj = Workbooks.Item(1)
Set wksObj = wkbObj.Worksheets(1)
wksObj.Range("A1", "H1").Merge
wksObj.Range("A1", "H1").HorizontalAlignment = 3
wksObj.Range("A1", "H1").value = "入荷予定組合員リスト"
wksObj.Range("F2", "H2").Merge
wksObj.Range("F2", "H2").Font.Size = 8
wksObj.Range("F2", "H2").HorizontalAlignment = 4
wksObj.Range("F2", "H2").value = "入荷予定日 " + left(nowdate, 4) + "年" + _
Mid(nowdate, 5, 2) + "月" + right(nowdate, 2) + "日"
wksObj.Range("A3", "H3").RowHeight = wksObj.Range("A3", "H3").RowHeight * 2
Call wksObj.Range("A3", "A4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("A3", "A4").HorizontalAlignment = 3
wksObj.Range("A3").value = "生産者"
wksObj.Range("A4").value = "コード"
Call wksObj.Range("B3", "B4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("B3", "B4").HorizontalAlignment = 3
wksObj.Range("B3").value = "組合員氏名"
Call wksObj.Range("C3", "C4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("C3", "C4").HorizontalAlignment = 3
wksObj.Range("C3").value = "入荷予定"
wksObj.Range("C4").value = "数量"
Call wksObj.Range("D3", "D4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("D3", "D4").HorizontalAlignment = 3
wksObj.Range("D3").value = "検査日"
Call wksObj.Range("E3", "E4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("E3", "E4").HorizontalAlignment = 3
wksObj.Range("E3").value = "住所"
Call wksObj.Range("F3", "F4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("F3", "F4").HorizontalAlignment = 3
wksObj.Range("F3").value = "電話番号"
Call wksObj.Range("G3", "G4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("G3", "G4").HorizontalAlignment = 3
wksObj.Range("G3").value = "圃場"
wksObj.Range("G4").value = "NO"
Call wksObj.Range("H3", "H4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("H3", "H4").HorizontalAlignment = 3
wksObj.Range("H3").value = "筆コード"
For i = 1 To sprList.maxrows
sprList.Row = i
sprList.Col = 1
Call wksObj.Range("A" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("A" + Format(i + 4)).NumberFormat = "000"
wksObj.Range("A" + Format(i + 4)).value = sprList.Text
sprList.Col = 2
Call wksObj.Range("B" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("B" + Format(i + 4)).value = sprList.Text
sprList.Col = 3
Call wksObj.Range("C" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("C" + Format(i + 4)).value = sprList.Text
sprList.Col = 4
Call wksObj.Range("D" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("D" + Format(i + 4)).value = sprList.Text
sprList.Col = 5
Call wksObj.Range("E" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("E" + Format(i + 4)).value = sprList.Text
sprList.Col = 6
Call wksObj.Range("F" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("F" + Format(i + 4)).value = sprList.Text
sprList.Col = 7
Call wksObj.Range("G" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("G" + Format(i + 4)).NumberFormat = "00"
wksObj.Range("G" + Format(i + 4)).value = sprList.Text
sprList.Col = 8
Call wksObj.Range("H" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("H" + Format(i + 4)).NumberFormat = "00"
wksObj.Range("H" + Format(i + 4)).value = sprList.Text
totalRe = totalRe + 1
Next
'If (sprList.maxrows < 40 And wksObj.HPageBreaks.Count = 0) Then
i = sprList.maxrows + 1
Do While i <= (wksObj.StandardHeight * 40 - wksObj.Range("A5", "A" + Format(sprList.maxrows + 4)).Height) / wksObj.StandardHeight
Call wksObj.Range("A" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("A" + Format(i + 4)).value = " "
Call wksObj.Range("B" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("B" + Format(i + 4)).value = " "
Call wksObj.Range("C" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("C" + Format(i + 4)).value = " "
Call wksObj.Range("D" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("D" + Format(i + 4)).value = " "
Call wksObj.Range("E" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("E" + Format(i + 4)).value = " "
Call wksObj.Range("F" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("F" + Format(i + 4)).value = " "
Call wksObj.Range("G" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("G" + Format(i + 4)).value = " "
Call wksObj.Range("H" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("H" + Format(i + 4)).value = " "
totalRe = totalRe + 1
i = i + 1
Loop
'End If
wksObj.Range("A3", "A" + Format(totalRe + 3)).ColumnWidth = wksObj.Range("A3", "A" + Format(totalRe + 3)).ColumnWidth * 4 / 5
wksObj.Range("B3", "B" + Format(totalRe + 3)).ColumnWidth = wksObj.Range("B3", "B" + Format(totalRe + 3)).ColumnWidth * 5 / 4
wksObj.Range("C3", "C" + Format(totalRe + 3)).ColumnWidth = wksObj.Range("C3", "C" + Format(totalRe + 3)).ColumnWidth * 9 / 10
wksObj.Range("E3", "E" + Format(totalRe + 3)).ColumnWidth = wksObj.Range("E3", "E" + Format(totalRe + 3)).ColumnWidth * 8 / 3
wksObj.Range("E3", "E" + Format(totalRe + 3)).WrapText = True
wksObj.Range("F3", "F" + Format(totalRe + 3)).ColumnWidth = wksObj.Range("F3", "F" + Format(totalRe + 3)).ColumnWidth * 6 / 5
wksObj.Range("G3", "G" + Format(totalRe + 3)).ColumnWidth = wksObj.Range("G3", "G" + Format(totalRe + 3)).ColumnWidth * 4 / 5
wksObj.Range("H3", "H" + Format(totalRe + 3)).ColumnWidth = wksObj.Range("H3", "H" + Format(totalRe + 3)).ColumnWidth * 4 / 5
' Do While wksObj.HPageBreaks.Count > 0 And sprList.maxrows < 40 And i > sprList.maxrows
' wksObj.Range("A" + Format(i + 4), "H" + Format(i + 4)).Delete
' i = i - 1
' Loop
wksObj.PrintOut
wkbObj.Close SaveChanges:=False
MousePointer = 0
End Sub
这是一个利用excel来打印的程序段。
Dim nowdate As String
Dim wkbObj As Workbook
Dim wksObj As Worksheet
Dim i As Integer
Dim totalRe As Integer
MousePointer = 11
totalRe = 0
nowdate = Format(Date, "YYYYMMDD")
Workbooks.Add
Set wkbObj = Workbooks.Item(1)
Set wksObj = wkbObj.Worksheets(1)
wksObj.Range("A1", "H1").Merge
wksObj.Range("A1", "H1").HorizontalAlignment = 3
wksObj.Range("A1", "H1").value = "入荷予定組合員リスト"
wksObj.Range("F2", "H2").Merge
wksObj.Range("F2", "H2").Font.Size = 8
wksObj.Range("F2", "H2").HorizontalAlignment = 4
wksObj.Range("F2", "H2").value = "入荷予定日 " + left(nowdate, 4) + "年" + _
Mid(nowdate, 5, 2) + "月" + right(nowdate, 2) + "日"
wksObj.Range("A3", "H3").RowHeight = wksObj.Range("A3", "H3").RowHeight * 2
Call wksObj.Range("A3", "A4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("A3", "A4").HorizontalAlignment = 3
wksObj.Range("A3").value = "生産者"
wksObj.Range("A4").value = "コード"
Call wksObj.Range("B3", "B4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("B3", "B4").HorizontalAlignment = 3
wksObj.Range("B3").value = "組合員氏名"
Call wksObj.Range("C3", "C4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("C3", "C4").HorizontalAlignment = 3
wksObj.Range("C3").value = "入荷予定"
wksObj.Range("C4").value = "数量"
Call wksObj.Range("D3", "D4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("D3", "D4").HorizontalAlignment = 3
wksObj.Range("D3").value = "検査日"
Call wksObj.Range("E3", "E4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("E3", "E4").HorizontalAlignment = 3
wksObj.Range("E3").value = "住所"
Call wksObj.Range("F3", "F4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("F3", "F4").HorizontalAlignment = 3
wksObj.Range("F3").value = "電話番号"
Call wksObj.Range("G3", "G4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("G3", "G4").HorizontalAlignment = 3
wksObj.Range("G3").value = "圃場"
wksObj.Range("G4").value = "NO"
Call wksObj.Range("H3", "H4").BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("H3", "H4").HorizontalAlignment = 3
wksObj.Range("H3").value = "筆コード"
For i = 1 To sprList.maxrows
sprList.Row = i
sprList.Col = 1
Call wksObj.Range("A" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("A" + Format(i + 4)).NumberFormat = "000"
wksObj.Range("A" + Format(i + 4)).value = sprList.Text
sprList.Col = 2
Call wksObj.Range("B" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("B" + Format(i + 4)).value = sprList.Text
sprList.Col = 3
Call wksObj.Range("C" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("C" + Format(i + 4)).value = sprList.Text
sprList.Col = 4
Call wksObj.Range("D" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("D" + Format(i + 4)).value = sprList.Text
sprList.Col = 5
Call wksObj.Range("E" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("E" + Format(i + 4)).value = sprList.Text
sprList.Col = 6
Call wksObj.Range("F" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("F" + Format(i + 4)).value = sprList.Text
sprList.Col = 7
Call wksObj.Range("G" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("G" + Format(i + 4)).NumberFormat = "00"
wksObj.Range("G" + Format(i + 4)).value = sprList.Text
sprList.Col = 8
Call wksObj.Range("H" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("H" + Format(i + 4)).NumberFormat = "00"
wksObj.Range("H" + Format(i + 4)).value = sprList.Text
totalRe = totalRe + 1
Next
'If (sprList.maxrows < 40 And wksObj.HPageBreaks.Count = 0) Then
i = sprList.maxrows + 1
Do While i <= (wksObj.StandardHeight * 40 - wksObj.Range("A5", "A" + Format(sprList.maxrows + 4)).Height) / wksObj.StandardHeight
Call wksObj.Range("A" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("A" + Format(i + 4)).value = " "
Call wksObj.Range("B" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("B" + Format(i + 4)).value = " "
Call wksObj.Range("C" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("C" + Format(i + 4)).value = " "
Call wksObj.Range("D" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("D" + Format(i + 4)).value = " "
Call wksObj.Range("E" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("E" + Format(i + 4)).value = " "
Call wksObj.Range("F" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("F" + Format(i + 4)).value = " "
Call wksObj.Range("G" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("G" + Format(i + 4)).value = " "
Call wksObj.Range("H" + Format(i + 4)).BorderAround(1, xlThin, xlColorIndexAutomatic, RGB(255, 0, 0))
wksObj.Range("H" + Format(i + 4)).value = " "
totalRe = totalRe + 1
i = i + 1
Loop
'End If
wksObj.Range("A3", "A" + Format(totalRe + 3)).ColumnWidth = wksObj.Range("A3", "A" + Format(totalRe + 3)).ColumnWidth * 4 / 5
wksObj.Range("B3", "B" + Format(totalRe + 3)).ColumnWidth = wksObj.Range("B3", "B" + Format(totalRe + 3)).ColumnWidth * 5 / 4
wksObj.Range("C3", "C" + Format(totalRe + 3)).ColumnWidth = wksObj.Range("C3", "C" + Format(totalRe + 3)).ColumnWidth * 9 / 10
wksObj.Range("E3", "E" + Format(totalRe + 3)).ColumnWidth = wksObj.Range("E3", "E" + Format(totalRe + 3)).ColumnWidth * 8 / 3
wksObj.Range("E3", "E" + Format(totalRe + 3)).WrapText = True
wksObj.Range("F3", "F" + Format(totalRe + 3)).ColumnWidth = wksObj.Range("F3", "F" + Format(totalRe + 3)).ColumnWidth * 6 / 5
wksObj.Range("G3", "G" + Format(totalRe + 3)).ColumnWidth = wksObj.Range("G3", "G" + Format(totalRe + 3)).ColumnWidth * 4 / 5
wksObj.Range("H3", "H" + Format(totalRe + 3)).ColumnWidth = wksObj.Range("H3", "H" + Format(totalRe + 3)).ColumnWidth * 4 / 5
' Do While wksObj.HPageBreaks.Count > 0 And sprList.maxrows < 40 And i > sprList.maxrows
' wksObj.Range("A" + Format(i + 4), "H" + Format(i + 4)).Delete
' i = i - 1
' Loop
wksObj.PrintOut
wkbObj.Close SaveChanges:=False
MousePointer = 0
End Sub
这是一个利用excel来打印的程序段。
#14
to zhuomao:非常感谢
#15
to zhuomao:非常感谢 ,有没有对word操作的例子
#16
sorry
智能推荐
注意！
本站转载的文章为个人学习借鉴使用，本站对版权不负任何法律责任。如果侵犯了您的隐私权益，请联系我们删除。