数据插入Word 表格步骤

数据插入Word 表格步骤

数据插入Word 表格步骤

（1）单击【数据库】工具栏上的【插入数据库】按钮，出现【数 据库】对话框，如图4-33 所示。

（2）单击【获取数据】按钮，d出【选择数据源】对话框，类 似于打开文档窗口。

（3）选定合适的数据源文件，文件类型可以是Word 表格文档（指 只包括一个Word 表格而无其他文本的文档）、Excel 工作表、 FoxPro/dBASE 数据库等。

（4）单击【确定】按钮打开它。

（5）如果要按照一定条件插入记录，单击【查询选项】按钮， d出查询选项对话窗口，单击【筛选记录】选项卡，如图4-34 所示。

（6）在筛选记录选项卡中输入一个或多个条件关系式。

（7）如果需要按一定的顺序插入数据记录，那么单击【排序记 录】选项卡。

（8）设定记录排序的条件。

（9）如果不打算在文档插入记录的.所有字段，只想有选择地插 入几个，单击【选择域】选项卡。

（10）通过删除【选定域】列表框中的字段来选择插入哪些字段。

（11）如果插入的表格中希望插入字段名，选中【包含域名】复 选框。

（12）全部选项条件设定完毕，单击【确定】按钮返回。

（13）单击【表格自动套用格式】按钮，可以选择表格格式并返回。

（14）单击【插入数据】按钮，d出插入数据对话窗口。

（15）在【插入数据】组框中选择记录范围，可以选择全部或部 分。

（16）如果希望数据插入文档后还可以随数据源的更新而自动更 新文档中的数据，选中【将数据作为域插入】复选框。

（17）单击【确定】按钮，Word 2000 按选定条件将数据插入到 Word 表格中。

按如下方法添加值列表，以access2013为例：

1、打开access数据库文件。

2、选择“创建”——“表设计”。

3、按照如图创建一个表格。

4、这里的省份需要设置成列表，然后，点击下方的“查阅”。

5、在行来源类型选择“值列表”，行来源中输入要添加的列表值，并以英文输入法的分号分隔，如图：

6、然后保存表。

7、然后添加数据时，可见之前设置的值达到了值列表的状态，如图：

ListView控件数据 *** 作一、添加表头和数据

在窗口显示数据时，经常会用到ListView这个控件，虽然也可以使用ListBox，但其功能还是比较弱一些，ListView相对用起来更顺手一些。下面的两个函数是给控件添加表头和数据的函数，贴出来供大家参考。

函数代码给ListView添加数据，数据可以为数组或单行数据（逗号分隔）

Public Sub AddListViewData(ListViewName As Object, DateArr, Optional Header As Integer = 0, Optional AddData As Boolean = False)

'添加ListView数据，正常为数组，支持单行数据添加（逗号分隔）

'第一行数据为标题行时，Header应为1

'默认为替换数据，如果需要在原有数据基础上添加时，AddData应为True

Dim i As Integer, j As Integer

Dim DateCol() As String

Dim Itm As Object

Dim PartKey As String

If Not AddData Then ListViewName.ListItems.Clear

If IsArray(DateArr) Then

For i = LBound(DateArr) + Header To UBound(DateArr)

Set Itm = ListViewName.ListItems.Add()

Itm.Text = DateArr(i, LBound(DateArr, 2))

For j = LBound(DateArr, 2) + LBound(DateArr) To UBound(DateArr, 2)

Itm.SubItems(j - LBound(DateArr)) = DateArr(i, j)

Next

Next

Else

If IsEmpty(DateArr) Or DateArr = "没有记录" Then Exit Sub

DateCol = Split(DateArr, ",")

Set Itm = ListViewName.ListItems.Add()

Itm.Text = DateCol(LBound(DateCol))

For i = LBound(DateCol) + LBound(DateArr) To UBound(DateCol)

Itm.SubItems(i - LBound(DateArr)) = DateCol(i)

Next

End If

End Sub

给ListView添加表头，支持直接给定宽度和额外增加的宽度

Public Sub AddListViewHead(ListViewName As Object, ColHeader, Optional ColWidth As String, Optional AddWidth As Integer = 5, Optional DefultWidth As String = "Auto")

Dim SpHeader() As String

Dim SpWidth() As String

Dim SpAlign() As String

Dim CW As Integer

Dim CA As Integer

Dim i As Integer

ListViewName.ColumnHeaders.Clear

ListViewName.ListItems.Clear

SpWidth = Split(ColWidth, ",")

If UBound(SpWidth) = 0 Then CW = Val(ColWidth)

With ListViewName

If IsArray(ColHeader) Then

For i = LBound(ColHeader, 2) To UBound(ColHeader, 2)

If i <= UBound(SpWidth) Then CW = Val(SpWidth(i)) Else CW = IIf(DefultWidth = "Auto", 0, CW)

If CW >= 0 And CW <Len(StrConv(ColHeader(0, i), vbFromUnicode)) * 15 + AddWidth Then CW = Len(StrConv(ColHeader(0, i), vbFromUnicode)) * 15 + AddWidth

If CW <0 Then CW = 0

.ColumnHeaders.Add , , ColHeader(0, i), CW

Next

Else

If ColHeader = " *** 作不成功" Then Exit Sub

SpHeader = Split(ColHeader, ",")

For i = LBound(SpHeader) To UBound(SpHeader)

If i <= UBound(SpWidth) Then CW = Val(SpWidth(i)) Else CW = IIf(DefultWidth = "Auto", 0, CW)

If CW >= 0 And CW <LenB(StrConv(SpHeader(i), vbFromUnicode)) * 7.5 + AddWidth Then CW = LenB(StrConv(SpHeader(i), vbFromUnicode)) * 7.5 + AddWidth

If CW <0 Then CW = 0

.ColumnHeaders.Add , , SpHeader(i), CW

Next

End If

.View = lvwReport

.FullRowSelect = True

.Gridlines = True

End With

End Sub

调用例子

Sub FormLoad（）

AddListViewHead 列表, Range("A1:D1").Value

tmp = SumArrRow(Range("a1:c4").Value, "1,3", True)

AddListViewData 列表, tmp

End Sub

---