我想通过VBA，把excel中A1到G17的部分以word形式保存下来了，文件名为sheet的名字。请帮我写一下
1个回答
关注
![]()
展开全部
您好，很高兴为您解答。通过VBA，把excel中A1到G17的部分以word形式保存下来了，文件名为sheet的名字。：vba代码
执行后，把BOOK1.xls打开，循环5次，a1、b1、e1数据写入word中，（注意，word也有格子，也有行列），然后保存5次到c盘下。
Sub Macro1()
Dim devType As String
Dim devName As String
Dim devDes As String
Dim sTemp As String
Dim comTemp As String
Dim xls As New Excel.Application
Dim wk As New Excel.Workbook
Dim sh As New Excel.Worksheet
Set wk = xls.Workbooks.Open("C:\\BOOK1.xls")
Set sh = wk.Sheets("1")
For I = 1 To 5
If ActiveDocument.Tables.Count >= 1 Then
sTemp = "A" & I
devType = sh.Range(sTemp)
With ActiveDocument.Tables(1).Cell(Row:=3, Column:=2).Range
.Delete
.InsertAfter Text:=devType
End With
咨询记录 · 回答于2021-12-18
我想通过VBA，把excel中A1到G17的部分以word形式保存下来了，文件名为sheet的名字。请帮我写一下
您好，我这边正在为您查询，请稍等一下，我这边马上回复您~
您好，很高兴为您解答。通过VBA，把excel中A1到G17的部分以word形式保存下来了，文件名为sheet的名字。：vba代码执行后，把BOOK1.xls打开，循环5次，a1、b1、e1数据写入word中，（注意，word也有格子，也有行列），然后保存5次到c盘下。Sub Macro1()Dim devType As String Dim devName As String Dim devDes As String Dim sTemp As String Dim comTemp As String Dim xls As New Excel.Application Dim wk As New Excel.Workbook Dim sh As New Excel.Worksheet Set wk = xls.Workbooks.Open("C:\\BOOK1.xls") Set sh = wk.Sheets("1") For I = 1 To 5 If ActiveDocument.Tables.Count >= 1 Then sTemp = "A" & I devType = sh.Range(sTemp) With ActiveDocument.Tables(1).Cell(Row:=3, Column:=2).Range .Delete .InsertAfter Text:=devType End With
sTemp = "B" & I devName = sh.Range(sTemp) With ActiveDocument.Tables(1).Cell(Row:=2, Column:=2).Range .Delete .InsertAfter Text:=devName End With sTemp = "E" & I devDes = sh.Range(sTemp) With ActiveDocument.Tables(1).Cell(Row:=3, Column:=4).Range .Delete .InsertAfter Text:=devDes End With
End If ActiveDocument.Save Set fso = CreateObject("scripting.filesystemobject") devType = Replace(devType, "/", "") sTemp = "C:\\" & devType & ".doc" fso.copyfile ActiveDocument.FullName, sTemp Next '清除excel资源 Set sh = Nothing wk.Close Set wk = Nothing xls.Quit Set xls = NothingEnd Sub
希望以上回答对您有所帮助~
已赞过
评论
收起
你对这个回答的评价是？