7,785
社区成员




Set wdTab = wdDoc.Tables.Add(wdDoc.Bookmarks("table1").Range, 4, 10, DefaultTableBehavior:=1, AutoFitBehavior:=0)
With wdTab
.Range.Font.name = "宋体"
.Range.Font.Size = 7.5
.Range.ParagraphFormat.LineSpacingRule = 4
.Range.ParagraphFormat.LineSpacing = 12
.Range.ParagraphFormat.Alignment = 1
.Range.ParagraphFormat.WordWrap = True
.Cell(1, 1).Range.Text = "项目"
.Cell(2, 1).Range.Text = "a"
.Cell(3, 1).Range.Text = "b"
.Cell(4, 1).Range.Text = "%"
For i = 0 To 2
sqlstr = "select * from table1"
Set rs = Cnn.Execute(sqlstr)
.Cell(1, i + 2).Range.Text = rs.fields(0)
.Cell(2, i + 2).Range.Text = rs.fields(1)
.Cell(3, i + 2).Range.Text = rs.fields(2)
Next
End With