求一个excel2007的VBA程序语言，检索excel中的数据，然后自动写入word文档表格中

Question

求一个excel2007的VBA程序语言，主要完成以下任务：检索excel中的数据，然后把符合要求的数据自动写入word文档表格中，如下图，将日期、最大值、最小值按格式写入word表格中
注意要按日期搜索，就是EXCEL中不止一个表格，可能还包括其他星期二、三、四等等其他日期的数据

Answer 1

Private Sub CommandButton1_Click()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\Administrator\桌面\123.txt", Destination:=Range _
("D2"))
.Name = "123"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 936
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Answer 2

为什么一定写到WODR中呢？ 你把你的多个数据发我邮箱sm100e@qq.com

追问

因为excel里面的是原始数据，还要做成简报，在word中标出最大，和最小的信息