单元格格式的问题

nb1044

单元格自定义了格式，在将单元格内容写入word时出现了问题，详见附件，求高人指点

ggsmart

要格式显示的结果，应该使用Range对象的Text属性。
可以先将Text属性的结果保存在数组中，再将其写入WORD的表格，把你的代码改了一下，看看可行否。

1. 
   
2. Sub 宏2()
   
3.     Dim a, brr, i&, j&, p$, f$
   
4.      p = ThisWorkbook.Path & ""
   
5.      '----这里是我改的------
   
6.      Dim arr(1 To 2, 1 To 4)
   
7.      Dim r, c
   
8.      For r = 1 To 2
   
9.          For c = 1 To 4
   
10.              arr(r, c) = Cells(r + 4, c + 4).Text
    
11.          Next
    
12.      Next
    
13.      '-----完----------
    
14.     f = p & "复件.doc"
    
15.     FileCopy p & "2.doc", f
    
16.     With CreateObject("Word.Application")
    
17.         .Visible = True
    
18.         .Documents.Open f
    
19.          With .ActiveDocument.Tables(1)
    
20.             For i = 1 To 2
    
21.                 For j = 1 To 4 Step 1
    
22.                     .cell(i + 2, j + 1).Range.Text = arr(i, j)
    
23.                 Next j
    
24.             Next i
    
25.          End With
    
26.     End With
    
27.     MsgBox "ok"
    
28. End Sub
    

复制代码

nb1044

ggsmart 发表于 2016-5-23 14:33
要格式显示的结果，应该使用Range对象的Text属性。
可以先将Text属性的结果保存在数组中，再将其写入WORD ...

可行，谢谢

ggsmart

nb1044 发表于 2016-5-24 08:56
可行，谢谢

可行就好，有什么问题随时留言