excel通过vba导入word，保持单元格格式不变，请求帮助，感谢！

兔子要顺毛 · 发表于 2022-6-20 12:59

本帖最后由兔子要顺毛于 2022-6-20 13:02 编辑

如以下案例，
在excel导入vba过程中，我只会通过如下代码引用excel的值。
但是如何保留excel中单元格的格式，如标红、标绿、加粗等格式呢？
烦请各位老师指教，不胜感激！

For i = 1 To 7
   For j = 1 To 3 '填写表格数据
         .ActiveDocument.Tables(1).Cell(i + 1, j + 1).Range = Sheets("Sheet1").Cells(i + 1, j + 1)
      Next j
   Next i

兔子要顺毛 · 发表于 2022-6-20 16:51

自己顶一下，非常感谢！

3190496160 · 发表于 2022-6-20 17:35

采用copy方式试试看看吧

兔子要顺毛 · 发表于 2022-6-20 18:05

3190496160 发表于 2022-6-20 17:35
采用copy方式试试看看吧

您好，我改成了
.ActiveDocument.Tables(1).Cell(i + 2, j + 1).Copy Destination:=Sheets("Sheet1").Cells(i + 2, j + 1)
但是运行显示方法和数据成员未找到。不知道是我哪里写错了……

hasyh2008 · 发表于 2022-6-21 00:00

兔子要顺毛发表于 2022-6-20 18:05
您好，我改成了
.ActiveDocument.Tables(1).Cell(i + 2, j + 1).Copy Destination:=Sheets("Sheet1").C ...

是不是写倒了？

兔子要顺毛 · 发表于 2022-6-21 08:56

hasyh2008 发表于 2022-6-21 00:00
是不是写倒了？

啊，发现了~改过以后提示类range的copy方法无效，不知道怎么修改呢
   For i = 1 To 12
   For j = 1 To 8 '填写表格数据
         Sheets("Sheet1").Cells(i + 2, j + 1).Copy Destination:=.ActiveDocument.Tables(1).Cell(i + 2, j + 1).Range
         Next j
   Next i

兔子要顺毛 · 发表于 2022-6-21 11:39

再顶一下求助~可以付费咨询呀~

一执成念 · 发表于 2022-6-21 13:30

不应该是Excel里copy吗？？你写反了

suiyuanban · 发表于 2022-6-21 14:29

使用copy的方法

h2016 · 发表于 2024-9-4 20:47

可以看看保留格式

		自动登录	找回密码
密码			免费注册

[求助] excel通过vba导入word，保持单元格格式不变，请求帮助，感谢！