Problema caricamento pagina

  • Creatore Discussione Creatore Discussione mythar
  • Data di inizio Data di inizio

mythar

Utente Attivo
16 Gen 2006
148
0
0
45
Naples
Ho una pagina che si interfaccia con un file xls.

Nella Page_Load leggo i valori delle celle che mi interessano e li associo a label, textbox e combobox presenti sulla pagina.

All'uscita, tramite button...

...ottengo un errore.
Vi posto un pò di codice, aiutatemi per favore.

Protected Sub Avanti_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Avanti.Click
'Scrivo sul file, lo salvo e vado alla pagina successiva
'1) Apro il Modello Excel
Dim xls_app As New Microsoft.Office.Interop.Excel.Application
Dim xls_wb As Microsoft.Office.Interop.Excel.Workbook
Dim xls_ws As Microsoft.Office.Interop.Excel.Worksheet
Dim xls_rg As Microsoft.Office.Interop.Excel.Range

xls_wb = xls_app.Workbooks.Open(Me.MapPath("Elaborazione") & "\" & CStr(Session.SessionID) & ".xls")

'Mi posiziono sul foglio attivo
xls_ws = xls_wb.Worksheets.Item("Input 2")
xls_ws.Activate()

Try
xls_rg = xls_ws.Range("C50")
xls_rg.Value = cmbFungibilita.Text '
xls_rg = xls_ws.Range("C52")
xls_rg.Value = txtFideBancarie.Text
xls_rg = xls_ws.Range("C54")
xls_rg.Value = txtFidePersonali.Text
xls_rg = xls_ws.Range("C56")
xls_rg.Value = cmbBuyBack.Text '
xls_rg = xls_ws.Range("C57")
xls_rg.Value = cmbConfidi.Text '
xls_rg = xls_ws.Range("C58")
xls_rg.Value = cmbBersani.Text '

Catch ex As Exception
lblErrore.Text = ex.Message
xls_wb.Close()
xls_wb = Nothing
xls_ws = Nothing
xls_app = Nothing
xls_rg = Nothing
Exit Sub
Finally
xls_wb.Save()
xls_wb.Close()

xls_ws = Nothing
xls_app = Nothing
xls_wb = Nothing
xls_rg = Nothing
End Try

Response.Redirect("Pagina5.aspx")
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Apro il file, leggo i dati, li associo ai controlli e lo chiudo
If Not Page.IsPostBack Then

'1) Apro il Modello Excel
Dim xls_app As New Microsoft.Office.Interop.Excel.Application
Dim xls_wb As Microsoft.Office.Interop.Excel.Workbook
Dim xls_ws As Microsoft.Office.Interop.Excel.Worksheet
Dim xls_rg As Microsoft.Office.Interop.Excel.Range

xls_wb = xls_app.Workbooks.Open(Me.MapPath("Elaborazione") & "\" & CStr(Session.SessionID) & ".xls")

'Mi posiziono sul foglio attivo
xls_ws = xls_wb.Worksheets.Item("Input 2")
xls_ws.Activate()

Try
xls_rg = xls_ws.Range("C50")
cmbFungibilita.Text = xls_rg.Value
xls_rg = xls_ws.Range("C52")
txtFideBancarie.Text = xls_rg.Value
xls_rg = xls_ws.Range("C54")
txtFidePersonali.Text = xls_rg.Value
xls_rg = xls_ws.Range("C56")
cmbBuyBack.Text = xls_rg.Value
xls_rg = xls_ws.Range("C57")
cmbConfidi.Text = xls_rg.Value
xls_rg = xls_ws.Range("C58")
cmbBersani.Text = xls_rg.Value

Catch ex As Exception
lblErrore.Text = ex.Message
xls_wb.Close()
xls_wb = Nothing
xls_ws = Nothing
xls_app = Nothing
xls_rg = Nothing
Exit Sub
Finally
xls_wb.Close()
xls_ws = Nothing
xls_app = Nothing
xls_wb = Nothing
End Try
End If

End Sub
 

Discussioni simili