以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  批量改为数值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54170)
--  作者：发财
--  发布时间：2014/7/23 10:09:00
--  批量改为数值
用代码按钮如何将一个文件中的很多个EXCEL表中公式批量改为数值？
--  作者：发财
--  发布时间：2014/7/23 10:10:00
--  
在EXCEL表中改
--  作者：发财
--  发布时间：2014/7/23 10:31:00
--  
如何做代码按钮？
--  作者：有点甜
--  发布时间：2014/7/23 10:38:00
--  

 去到对应的单元格，把公式清除即可。

 

Dim Book As New XLS.Book() \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Sheet(1,0).Formula = ""
Book.Save("c:\\reports\\test.xls")
--  作者：发财
--  发布时间：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
如何保存回原表、原路径？
--  作者：有点甜
--  发布时间：2014/7/23 11:11: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(file)
    End If
Next
--  作者：发财
--  发布时间：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
还是不行？
--  作者：有点甜
--  发布时间：2014/7/23 11:24: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
            Dim temp As object = Sheet1(n,n).Value
            Sheet1(n,n).Formula = ""
            Sheet1(n,n).Value = temp
        Next
        Book1.Save(file)
    End If
Next
--  作者：发财
--  发布时间：2014/7/23 14:48:00
--  
还是不行？
--  作者：发财
--  发布时间：2014/7/23 14:55:00
--  
Sheet1(n,n).Formula = ""它只证明没有公式，好像不能消除公式吧？