求将excel数据写入word模板word文件能显示小数位

忘得快

各位大侠：

将excel数据写入word文件，Excel显示的数值是100.00，而Word只显示100，不能显示小数位，请教高手如何解决？谢谢！（不要在word文件设置表格）

将excel数据写入word模板显示小数位.zip (60.94 KB, 下载次数: 27)

2014-8-22 21:29 上传

点击文件名下载附件

忘得快

一夜了，高手们起床了吧

EH2003

你看看： 将excel数据写入word模板显示小数位1.zip (57.24 KB, 下载次数: 15)

2014-8-26 20:02 上传

点击文件名下载附件

忘得快

EH2003 发表于 2014-8-26 20:00
你看看：

大侠你好！数值小数的问题解决了，但另外一个问题又出来了，就是日期也变成数值格式了，如果是手机号码也可能会出现有小数位了。请问如果解决？谢谢！

zhanglei1371

这样试试：

1. Private Sub CommandButton1_Click()
   
2.    Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j
   
3.    Dim Str1, Str2
   
4.    当前路径 = ThisWorkbook.Path
   
5.    最后行号 = Sheets("数据").Range("B65536").End(xlUp).Row
   
6.    最后列号 = Sheets("数据").Range("IV1").End(xlToLeft).Column
   
7.    判断 = 0
   
8.    For i = 3 To 最后行号
   
9.       导出文件名 = "施工预算"
   
10.       FileCopy 当前路径 & "\显示小数位(模板).doc", 当前路径 & "" & Sheets("数据").Range("A" & i) & "-" & Sheets("数据").Range("B" & i) & ".doc"
    
11.       导出路径文件名 = 当前路径 & "" & Sheets("数据").Range("A" & i) & "-" & Sheets("数据").Range("B" & i) & ".doc"  '
    
12.       With Word对象
    
13.         .Documents.Open 导出路径文件名
    
14.         .Visible = False
    
15.         For j = 1 To 最后列号  '填写文字数据
    
16.         xx = 0
    
17.            Str1 = "[数据" & Format(j, "00") & "]"
    
18.            Str2 = Sheets("数据").Cells(i, j)
    
19.          If InStr(Sheets("数据").Cells(i, j).NumberFormatLocal, "0.00") Then xx = 1
    
20.            .Selection.HomeKey Unit:=wdStory '光标置于文件首
    
21.            If .Selection.Find.Execute(Str1) Then '查找到指定字符串
    
22.               .Selection.Font.Color = wdColorAutomatic '字符为自动颜色
    
23.               If xx = 1 Then
    
24.               .Selection.Text = Format(Str2, "0.00") '替换字符串
    
25.               Else
    
26.               .Selection.Text = Str2 '替换字符串
    
27.               End If
    
28.            End If
    
29.         Next j
    
30.       End With
    
31.       Word对象.Documents.Save
    
32.       Word对象.Quit
    
33.       Set Word对象 = Nothing
    
34.    Next i
    
35.    If 判断 = 0 Then
    
36.       i = MsgBox("已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")
    
37.    End If
    
38. End Sub
    

复制代码

忘得快

zhanglei1371 发表于 2014-8-29 18:20
这样试试：

谢谢大侠！