Hola,

Bueno tengo un problema con programa que hice un tiempo para sacar costos pero como tengo un buen rato de que no uso el visual basic tengo un poco de problemas con el cuando trato de abrir o guardar estos datos en excel me sale esto:

Advertencia 1 Hay contenedores personalizados actualizados disponibles para los siguientes componentes a los que se hace referencia: Microsoft.Office.Core ,Microsoft.Office.Interop.Excel.

y esta es la linea de codigo para abrir y guardar:

Private Sub AbrirToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbrirToolStripMenuItem1.Click
With OpenFileDialog1

Dim excel As Microsoft.Office.Interop.Excel.Application

Dim wb As Microsoft.Office.Interop.Excel.Workbook

Dim ws As Microsoft.Office.Interop.Excel.Worksheet

Dim rng As Microsoft.Office.Interop.Excel.Range

OpenFileDialog1.InitialDirectory = "c:\"
OpenFileDialog1.Filter = "Todos los archivos|*.*|Excel 2007|*.xlsx"
OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.RestoreDirectory = True

If .ShowDialog = Windows.Forms.DialogResult.OK Then
excel = New Microsoft.Office.Interop.Excel.Application
wb = excel.Workbooks.Open(.FileName)
ws = wb.ActiveSheet()

rng = ws.Range("A6")
TextBox3.Text = ws.Range("A6").Value.ToString()


rng = ws.Range("B6")
TextBox4.Text = ws.Range("B6").Value.ToString()

rng = ws.Range("C6")
TextBox5.Text = ws.Range("C6").Value.ToString()


rng = ws.Range("D6")
TextBox6.Text = ws.Range("D6").Value.ToString()

rng = ws.Range("E6")
TextBox7.Text = ws.Range("E6").Value.ToString()


rng = ws.Range("G7")
TextBox78.Text = ws.Range("G7").Value.ToString()
rng = ws.Range("G8")
TextBox79.Text = ws.Range("G8").Value.ToString()

rng = ws.Range("H6")
TextBox1.Text = ws.Range("H6").Value.ToString()

rng = ws.Range("I6")
TextBox2.Text = ws.Range("I6").Value.ToString()

excel.Visible = True
wb.Activate()

End If

End With

End Sub


Private Sub GuardarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarToolStripMenuItem.Click
Dim excel As Microsoft.Office.Interop.Excel.Application

Dim wb As Microsoft.Office.Interop.Excel.Workbook

Dim ws As Microsoft.Office.Interop.Excel.Worksheet

Dim rng As Microsoft.Office.Interop.Excel.Range

Try

excel = New Microsoft.Office.Interop.Excel.Application
wb = excel.Workbooks.Add
ws = wb.ActiveSheet()
rng = ws.Range("A5")
rng.Value = "Materia Prima"
rng = ws.Range("A6")
rng.Value = n1














rng = ws.Range("A7")
rng.Value = "Envase"
rng = ws.Range("A8")
rng.Value = "Etiqueta"

rng = ws.Range("A9")
rng.Value = "Costo Unitario"
rng = ws.Range("A10")
rng.Value = "Costo Total"

rng = ws.Range("B5")
rng.Value = "Unidad Precio"
rng = ws.Range("B6")
rng.Value = up1

rng = ws.Range("C5")
rng.Value = "Precio"
rng = ws.Range("C6")
rng.Value = pr1

rng = ws.Range("D5")
rng.Value = "Cantidad Utilizada"
rng = ws.Range("D6")
rng.Value = c1

rng = ws.Range("E5")
rng.Value = "Unidad Peso"
rng = ws.Range("E6")
rng.Value = u1

rng = ws.Range("F5")
rng.Value = "Equivalencia gr"
rng = ws.Range("F6")
rng.Value = uru(u1, c1)

rng = ws.Range("G5")
rng.Value = "Costo"
rng = ws.Range("G6")
rng.Value = co1

rng = ws.Range("G7")
rng.Value = en
rng = ws.Range("G8")
rng.Value = en1


rng = ws.Range("G9")
rng.Value = costo

rng = ws.Range("G10")
rng.Value = costo_t


rng = ws.Range("H5")
rng.Value = "Cantidad"
rng = ws.Range("H6")
rng.Value = p

rng = ws.Range("I5")
rng.Value = "Pedido"
rng = ws.Range("I6")
rng.Value = p1

excel.Visible = True
wb.Activate()

Catch ex As Exception
MessageBox.Show("Error accessing Excel: " + ex.ToString())


End Try
End Sub

Si me pueden ayudar estaria muy agradecido por que ahorita me dedico a la reparacion y mantenimiento de pc.

Me disculpo por el doble post,

El visual basic 2008 es el que use para hacer ese programa pero realmente como me dedique a trabajar en otro campo se me ha olvidado como usarlo por eso les estaria muy agradecido si me ayudan con esto.

Gracias de antemano.