Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - vb-net importazione campo ora da foglio excel ,errore nella label
Forum - C# / VB.NET - vb-net importazione campo ora da foglio excel ,errore nella label

Avatar
eurostar_italia (Normal User)
Rookie


Messaggi: 33
Iscritto: 01/08/2011

Segnala al moderatore
Postato alle 14:38
Lunedì, 19/08/2013
salve a tutti,
sto importando in un form su varie label dei dati da un foglio excel tra cui un campo ora.
ma non so perchè invece della ora mi riporta nella label un numero con delle virgole.
il foglio in questione è generato da codice in excel e poi scritto e risulta in formato personalizzato data in excel
qui il codice con cui RECUPERO i dati dal foglio excel
qualcuno sa aiutarmi ?
vi ringrazio
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  2.         Dim xlapp As New Microsoft.Office.Interop.Excel.Application
  3.         Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
  4.         Dim xlsheet As Microsoft.Office.Interop.Excel.Worksheet
  5.         Dim riga As Integer = 1
  6.  
  7.         xlBook = xlapp.Workbooks.Open("c:\memo.xlsx")
  8.         xlsheet = xlapp.Worksheets("Foglio1")
  9.  
  10.         If xlsheet.Cells(riga, 10).value <> ComboBox3.Text Then
  11.             Do Until xlsheet.Cells(riga, 10).value = ComboBox3.Text
  12.                 riga = riga + 1
  13.             Loop
  14.         End If
  15.         Label1.Text = xlsheet.Cells(riga, 2).value
  16.         Label2.Text = xlsheet.Cells(riga, 1).value
  17.         Label3.Text = xlsheet.Cells(riga, 3).value
  18.         Label4.Text = xlsheet.Cells(riga, 4).value
  19.         Label5.Text = xlsheet.Cells(riga, 5).value
  20.         Label6.Text = xlsheet.Cells(riga, 6).value
  21.         Label7.Text = xlsheet.Cells(riga, 7).value
  22.         Label8.Text = xlsheet.Cells(riga, 8).value
  23.         Label9.Text = xlsheet.Cells(riga, 9).value
  24.         TextBox1.Text = ""


qui il codice con cui CREO il foglio excel con un altro pulsante
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.         Dim excel As New Microsoft.Office.Interop.Excel.Application
  3.         Dim wb As Microsoft.Office.Interop.Excel.Workbook
  4.         Dim ws As Microsoft.Office.Interop.Excel.Worksheet
  5.         Dim xlapp As New Microsoft.Office.Interop.Excel.Application
  6.         Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
  7.         Dim xlsheet As Microsoft.Office.Interop.Excel.Worksheet
  8.         Dim riga As Integer = 5
  9.         Dim righe As Integer = 1
  10.                 xlBook = xlapp.Workbooks.Open("c:\memo.xlsx")
  11.                 xlsheet = xlapp.Worksheets("Foglio1")
  12.                 xlapp.Application.DisplayAlerts = False
  13.                 xlsheet.Activate()
  14.                 xlsheet.Delete()
  15.                 xlsheet = xlBook.Worksheets.Add
  16.                 xlsheet.Name = ("Foglio1")
  17.                 xlsheet.Columns("A:A").NumberFormat = "hh:MM:ss;@"
  18.                 xlsheet.PageSetup.Orientation = Microsoft.Office.Interop.Excel.XlPageOrientation.xlLandscape
  19.                 xlapp.Application.DisplayAlerts = True
  20.  
  21.                
  22.                                 'xlapp.ActiveSheet.CELLS.EntireColumn.AutoFit()
  23.                                 xlsheet.Cells(righe, 1) = ws.Cells(riga, 3)
  24.                                 xlsheet.Cells(righe, 1).VALUE = ws.Cells(riga, 3).value
  25.                                 xlsheet.Cells(righe, 2).VALUE = ws.Cells(riga, 4).VALUE
  26.                                 xlsheet.Cells(righe, 3).VALUE = ws.Cells(riga, 9).VALUE
  27.                                 xlsheet.Cells(righe, 4).VALUE = ws.Cells(riga, 10).VALUE
  28.                                 xlsheet.Cells(righe, 5).VALUE = ws.Cells(riga, 11).VALUE
  29.                                 xlsheet.Cells(righe, 6).VALUE = ws.Cells(riga, 14).VALUE
  30.                                 xlsheet.Cells(righe, 7).VALUE = ws.Cells(riga, 15).VALUE
  31.                                 xlsheet.Cells(righe, 8).VALUE = ws.Cells(riga, 17).VALUE      
  32.                                xlsheet.Cells(righe, 9).VALUE = ws.Cells(riga, 18).VALUE
  33.                                 xlsheet.Cells(righe, 10).VALUE = ws.Cells(riga, 7).VALUE
  34.                                                    riga = riga + 1
  35.  
  36.                 Loop
  37.                 xlBook.Close(True) ' False per non salvare le modifiche
  38.                 xlapp.Quit()
  39.                 xlsheet = Nothing
  40.                 xlBook = Nothing
  41.                 xlapp = Nothing


Ultima modifica effettuata da eurostar_italia il 19/08/2013 alle 14:40
PM Quote
Avatar
gibra (Normal User)
Pro


Messaggi: 145
Iscritto: 16/04/2009

Segnala al moderatore
Postato alle 16:49
Lunedì, 26/08/2013
Invece della proprietà Value, prova a leggere la proprietà Text della cella...

Ultima modifica effettuata da gibra il 26/08/2013 alle 16:49


http://nuke.vbcorner.net
VS6.0 Installer v4.5 26/02/2016: installare VS6/VB6 (Ent/Pro) in Windows Vista/7/8/10 (32/64)
PM Quote
Avatar
eurostar_italia (Normal User)
Rookie


Messaggi: 33
Iscritto: 01/08/2011

Segnala al moderatore
Postato alle 21:07
Lunedì, 26/08/2013
grazie di cuore,mi hai risolto il problema!!

PM Quote