我想通过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

希望以上回答对您有所帮助~

已赞过

评论收起