Foxtable(狐表) → 用户栏目 → 专家坐堂 → 批量改为数值


  共有6507人关注过本帖树形打印复制链接

主题：批量改为数值
帅哥哟，离线，有人找我吗？
发财
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		批量改为数值  发帖心情 Post By：2014/7/23 10:09:00 [显示全部帖子]

用代码按钮如何将一个文件中的很多个EXCEL表中公式批量改为数值？

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/7/23 10:10:00 [显示全部帖子]

在EXCEL表中改

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/7/23 10:31:00 [显示全部帖子]

如何做代码按钮？

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/7/23 10:59:00 [显示全部帖子]

Dim aa As String
aa=vars("aa")
For Each file As String In filesys .GetFiles(ProjectPath & aa)
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book1 As New XLS.Book(file)
        Dim Sheet1 As XLS.Sheet = Book1.Sheets("资产负债表")
        Sheet1(1,0).Formula = ""
        Book1.Save("c:\test.xls")
    End If
Next
如何保存回原表、原路径？

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/7/23 11:23:00 [显示全部帖子]

Dim aa As String
aa=vars("aa")
For Each file As String In filesys .GetFiles(ProjectPath & aa)
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book1 As New XLS.Book(file)
        Dim Sheet1 As XLS.Sheet = Book1.Sheets("资产负债表")
        For n As Integer = 0 To 200
            Sheet1(n,n).Formula = ""
            'Sheet1(n,n).value= Sheet1(n,n).Formula
        Next
        Book1.Save(file)
    End If
Next
还是不行？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/7/23 14:48:00 [显示全部帖子]

还是不行？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/7/23 14:55:00 [显示全部帖子]

Sheet1(n,n).Formula = ""它只证明没有公式，好像不能消除公式吧？

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/7/23 15:14:00 [显示全部帖子]

Dim aa As String
aa=vars("aa")
For Each file As String In filesys .GetFiles(ProjectPath & aa)
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book1 As New XLS.Book(file)
        Dim Sheet1 As XLS.Sheet = Book1.Sheets("资产负债表")
        For n As Integer = 0 To 200
            Sheet1(n,n).Formula = ""
            Dim temp As Object = Sheet1(n,n).Value
            Sheet1(n,n).Value = temp
        Next
        Book1.Save(file)
    End If
Next
上述代码可以了，但代码Dim temp As Object = Sheet1(n,n).Value
            Sheet1(n,n).Value = temp已经将报表的格式全部改变了，有没其他办法，不要改变报表原格式？
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/7/23 22:20:00 [显示全部帖子]

报表的边框没有了，合并的单元格撤消合并，做不到ExceL粘贴数值的效果？

 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/7/23 22:35:00 [显示全部帖子]

整个表粘贴回数值。

 回到顶部
总数 35 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询