主题：批量改为数值

如何将这种链接公式＝'E:\快盘\xl99excel\[资产负债表.xls]资     产     负     债     表'!$D$10粘贴回数值，本表公式如：＝SUM(E8:E21)等保留不变？求教老师如何做？

 

需要遍历所有的单元格，看公式是否是绝对路径的那种，然后执行代码，你发个例子excel表格上来测试。

老师你帮我加下代码？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:粘贴数值.rar

 汗，代码如下，自己改一下来用

 

Dim ds() As String = {"C", "D", "E"}
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open("d:\test02.xls")
For Each Ws As MSExcel.WorkSheet In Wb.WorkSheets
    For i As Integer = 1 To Ws.UsedRange.Rows.Count
        For j As Integer = 1 To Ws.UsedRange.Columns.Count
            For Each d As String In ds
                If ws.cells(i,j).Formula.Toupper.StartsWith("='" & d & ":\") Then
ws.cells(i,j).copy
                    ws.cells(i,j).PasteSpecial(Paste:=MSExcel.XlPasteType.xlPasteValues, Operation:=MSExcel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False)
                End If
            Next
        Next
    Next
Next
Wb.Save
App.Quit

 

这样搜索好像不行，如果是财务软件里的报表公式引用，是不存在路径的如＝ge("同期借","517-1")，同样需要粘贴回数值的，并且粘贴的时间太慢了，老师有其他好的办法吗？

粘贴一个表估计要20秒。

可否换种方法，如何搜索不是链接公式？

 行，那你就这样写，慢没办法。

 

Dim ds() As String = {"'C:\", "'D:\'", "'E:\", "ge"}
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open("d:\test02.xls")
For Each Ws As MSExcel.WorkSheet In Wb.WorkSheets
    For i As Integer = 1 To Ws.UsedRange.Rows.Count
        For j As Integer = 1 To Ws.UsedRange.Columns.Count
            For Each d As String In ds
                If ws.cells(i,j).Formula.Toupper.StartsWith("=" & d) Then
ws.cells(i,j).copy
                    ws.cells(i,j).PasteSpecial(Paste:=MSExcel.XlPasteType.xlPasteValues, Operation:=MSExcel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False)
                End If
            Next
        Next
    Next
Next
Wb.Save
App.Quit

 

改为 If ws.cells(i,j).Formula.Toupper.StartsWith("=" & d) Or ws.cells(i,j).Formula.StartsWith("=ge(") Then就行了，但26个excel表用了7至8分钟，太慢了吧，有其他更快的办法吗？