vb.net - valor - No se puede asignar fórmula al rango de celdas en Excel

hacer referencia a una celda de otro libro excel

Question

El código de otra persona en el proyecto, que estoy tratando de arreglar.

listO.Range(i, j).FormulaR1C1 = FormulaMatrix(i, j)

donde FormulaMatrix(i, j) es siempre un valor String . Cualquiera que sea el valor aleatorio / de prueba, intento con, se está asignando con éxito, excepto cuando es una fórmula, por ej.

=IF(LENGTH([@Units])>0;[@SalesAmount]-[@DiscountAmount]0)

Si elimino el signo = al principio de la fórmula, se asigna correctamente, pero luego es inútil, porque no es una fórmula.

@Units , @SalesAmount , @DiscountAmount son referencias / nombres de columnas.

Entonces, cuando asigno una fórmula, obtengo una excepción HRESULT: 0x800A03EC . Levanté la vista en esta respuesta para obtener una explicación y seguí algunas de las instrucciones allí. Determiné que mi problema es el siguiente: el problema ocurre debido a una función ingresada en una celda y está tratando de actualizar otra celda.

Revisado también esta publicación. Intenté bastante diferente (como poner solo las fórmulas sin = y luego volver a correr y poner los signos iguales), pero el mismo problema.

No tengo ni idea de cómo abordar esto.

Answer 1

El problema podría ser con tu fórmula. Prueba esto-

=IF(LEN([@Units])>0,[@SalesAmount]-[@DiscountAmount],0)

Si esto no funciona, trataría de usar el método .formula en lugar de .formulaR1C1 ... ¿Hay alguna razón en particular por la que esté utilizando referencias R1C1?

Answer 2

El error puede provenir de sus datos actuales, respectivamente, del diseño de la hoja. Le sugiero que compruebe qué hay dentro de listO.Range(i, j).FormulaR1C1 antes de asignar la fórmula.

He tenido un caso en el que el rango ya tiene datos erróneos en el interior y, curiosamente, no sé por qué, no puedo asignar la nueva fórmula.

Si ese es el caso, intente borrar el valor del rango y luego asignar la fórmula:

listO.Range(i, j).FormulaR1C1 = ""
listO.Range(i, j).FormulaR1C1 = FormulaMatrix(i, j)

Answer 3

.formulalocal funciona! (Mientras que .formula , .value y .formular1c1 no).

Empecé a trabajar con VB.NET y tuve un problema muy similar. Esta fue mi información simplificada al principio ( Table1 en la Sheet1 ):

Luego, después de aplicar el siguiente código, tuve esto:

El código completo para el formulario:

Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
''~~> Define your Excel Objects
Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim strAddress As String = "C:/Temp/SampleNew.xlsx"
Dim list1 As Object
Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
''~~> Add a New Workbook (IGNORING THE TWO DOT RULE)
xlWorkBook = xlApp.Workbooks.Open(strAddress)
''~~> Display Excel
xlApp.Visible = True
''~~> Set the relevant sheet that we want to work with
xlWorkSheet = xlWorkBook.Sheets("Sheet1")
With xlWorkSheet
''~~> Change the range into a tabular format
list1 = .ListObjects("Table1")
End With
list1.range(2, 4).formulalocal = "=IF(LEN([@Month])>5;[@Income]-[@MoneySpent];0)"
''~~> Save the file
xlApp.DisplayAlerts = False
xlWorkBook.SaveAs(Filename:=strAddress, FileFormat:=51)
xlApp.DisplayAlerts = True
''~~> Close the File
xlWorkBook.Close()
''~~> Quit the Excel Application
xlApp.Quit()
''~~> Clean Up
releaseObject(xlApp)
releaseObject(xlWorkBook)
End Sub
''~~> Release the objects
Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub
End Class

@Siddharth Rout ayudó mucho a construir este código, ya que posee este increíble sitio: http://www.siddharthrout.com/