|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
我想把Excel中的相关条目的内容读入到Word中,就编写了一段VBA代码,见下(大家不要笑话,我自学Word VBA大概一个月左右,Excel VBA今天才开始看,所以下面的代码可能会有很多错误或很冗长)。现在这段代码调试不过关,请大家帮帮忙纠正下,谢谢!
project.rar
(16.26 KB, 下载次数: 492)
[code=vb]
Sub AA()
Dim projectno As String, projectname As String, datereceive As Date, datecomplate As Date, functionary As String
projectno = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 2).Range
Dim excelobject As Object, myrow As Long, mycolumn As Long
Set excelobject = CreateObject("excel.application") '启动Excel程序
excelobject.Visible = False '不可见
excelobject.Workbooks.Open ("D:\project.xls")
With Excel.Application.ThisWorkbook.Worksheets("Sheet1")
Cells.Find(What:=projectno).Activate
myrow = ActiveCell.Row
mycolumn = ActiveCell.Column
projectname = Cells(myrow, mycolumn + 1).Value
datereceive = Cells(myrow, mycolumn + 2).Value
datecomplate = Cells(myrow, mycolumn + 3).Value
functionary = Cells(myrow, mycolumn + 4).Value
End With
ActiveDocument.Tables(1).Cell(1, 2).Range = projectname
ActiveDocument.Tables(1).Cell(2, 2).Range = datereceive
ActiveDocument.Tables(1).Cell(3, 2).Range = datecomplate
ActiveDocument.Tables(1).Cell(4, 2).Range = functionary
Excel.Application.Quit
End Sub
[/code]
|
|