Import dati da Excel mediante VB.net

venerdì 04 maggio 2012 - 16.03
Tag Elenco Tags  VB.NET  |  Windows 7  |  Visual Studio Express  |  MySQL 5.5  |  Access (.mdb)  |  Office 2007  |  Internet Explorer 7.0  |  Javascript  |  XHTML 1.0

Ralvet Profilo | Newbie

Ciao a tutti,
sto provando ad importare dei dati da un file xls e vorrei controllare in fase di acquisizione alcuni campi presenti nelle celle excel, ma il controllo sulla "if" non si verifica mai.
Tutto il resto del codice funziona perfettamente.

Qualcuno sa dirmi dove sbaglio? Di seguito allego la parte di codice.

Grazie in anticipo.

------------------
pippo = RangeExcel.Cells(numriga, 2).ToString

If (String.Compare(pippo, strTmp) = 0) Then
MioFlag = 1000
End If

------------------

alx_81 Profilo | Guru

>Ciao a tutti,
Ciao, e benvenuto su dotnethel.it!

>sto provando ad importare dei dati da un file xls e vorrei controllare
>in fase di acquisizione alcuni campi presenti nelle celle excel,
>ma il controllo sulla "if" non si verifica mai.
>Tutto il resto del codice funziona perfettamente.
potrebbe non funzionare a causa del case della stringa? Sono identiche sia maiuscole che minuscole?
Comunque se devi controllare l'uguaglianza ti consiglio la Equals: http://msdn.microsoft.com/it-it/library/1hkt4325.aspx

>Grazie in anticipo.
di nulla!
--
Alessandro Alpi | SQL Server MVP
MCP|MCITP|MCTS|MCT

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi

Ralvet Profilo | Newbie

grazie alx_81
ho seguito il tuo consiglio e ... funziona
Ciao
alla prox

alx_81 Profilo | Guru

>grazie alx_81
>ho seguito il tuo consiglio e ... funziona
Ottimo, però sarei curioso di sapere cosa non funziona con l''altro metodo..

--
Alessandro Alpi | SQL Server MVP
MCP|MCITP|MCTS|MCT

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi

Ralvet Profilo | Newbie

Alessandro,
soddisfo la tua ed anche la mia curiosità
ho fatto alcune prove ed ho scoperto che nell'istruzione destinata a caricare il valore del campo excel avevo omesso il .value. prima del ToString

Questa è la sequenza corretta anche se lascio la versione con Equals (come mi hai suggerito).

''''''''''''''''''''''''
pippo = RangeExcel.Cells(numriga, 2).value.ToString
If (String.Compare(pippo, strTmp) = 0) Then
Exit For
End If
'''''''''''''''''''''''
Ciao e grazie

alx_81 Profilo | Guru

>Ciao e grazie
grazie a te. E' importante postare le soluzioni che possano aiutare gli altri, solo per questo
--
Alessandro Alpi | SQL Server MVP
MCP|MCITP|MCTS|MCT

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.support.microsoft.com/profile/Alessandro.Alpi
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5