主题：EXCEL自动更新表

上述粘贴回数值时出现错误：Overload resolution failed because no accessible 'Chars' accepts this number of arguments.

改一下

 

            Dim aa1() As String = {"日期","分户快报","资产负债表","利润及分配表","费用表","附列资料","工资月报","茂名快报","分单位","资产负债指标表","利润及相关指标表"}
            Dim Ws(aa1.Length) As MSExcel.WorkSheet
            For i1 As Integer = 1 To 11
                Ws(i1) = Wb.WorkSheets(aa1(i1-1))
            Next
            ws(1).cells(4,4) = cj.text
            ws(1).cells(7,4) = cj.text
            rg1 =  ws(3).cells(14,5)
            rg2 =  ws(3).cells(15,9)
            rg3 = ws(4).cells(23,5)
            rg4 = ws(4).cells(31,5)
            rg5 =  ws(5).cells(32,5)
            rg1.value = rg1.value - vars("tx1")
            rg2.value= rg2.value - vars("tx1")
            rg3.value = rg3.value- vars("tx2")
            rg4.value= rg4.value- vars("tx2")
            rg5.value= rg5.value- vars("tx2")
           
            For i1 As Integer = 1 To 11
                ws(i1).UsedRange.Formula = ws(i1).UsedRange.Formula
            Next

       If MessageBox.Show("是否将链接粘贴回数值,估计每个表要20秒?","确  认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
            Dim App As New MSExcel.Application
            Dim Wb As MSExcel.Workbook = App.WorkBooks.open("E:\快盘\excel" & y & "\汇总单表" & y & "0" & m & ".xls")
            For Each Ws As MSExcel.WorkSheet In Wb.WorkSheets
                Ws.UnProtect
                Dim ds() As String = {"'C", "'D", "'E"}
                Dim Rg As MSExcel.Range = Ws.UsedRange
                Dim ary = rg.Formula
                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 ary(i,j) > "" AndAlso ary(i,j).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
        End If
        Dim Proc As New Process
        Proc.File = ("E:\快盘\excel" & y & "\汇总单表" & y & "0" & m & ".xls")
        Proc.Start()
    End If

 回复13楼，你想表达什么？

你之前教我批量粘贴回数值。但用在这个表却不行？

 这句代码的问题： If ary(i,j) > "" AndAlso ary(i,j).Toupper.StartsWith("=" & d) Then

 提示什么错？有可能是公式不匹配，这个代码的意思是，匹配 =C =D =E 的公式

 

If ary(i,j) > "" AndAlso ary(i,j).Toupper.StartsWith("=" & d) Then

上述粘贴回数值时出现错误：Overload resolution failed because no accessible 'Chars' accepts this number of arguments. 是什么原因

 你试试改成这样，看有没有问题

 

'Dim ary = rg.Formula
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 ary(i,j) > "" AndAlso ary(i,j).Toupper.StartsWith("=" & d) Then

            If ws.cells(i,j).Formula > "" AndAlso ws.cells(i,j).Formula.Toupper.StartsWith("=" & d) Then
               

 

可以了，但还是老问题太慢了！可以改变一下吗？