Bom dia, estou com um problema na hora de ler os dados de uma planilha em excel.

 

Eu estou usando o controle data (dao), para ler a planilha, funciona direitinho, mas quando os dados da celula sao direferentes o vb retorna nulo. por exemplo, existe a coluna 1 e todas as celulas estao definidas como "geral" ou "numero" existe um codigo 1234, e na sequencia aparece por exemplo 1234-5 , este ultimo retorna nulo, por que o tipo de dado é diferente, se a coluna estivesse sido definida como texto antes de inserir as informações nas celulas daria certo, mas depois de ser inserida nao, teria que definir como texto as celulas e digitar de novo.

Como poderia arrumar isto, existe um "reflesh" no excel, ou alguma coisa no vb. por favor quem souber me ajude, "urgente" :)  obrigada.

defina o campo com string no vb e faça CStr(Range...), deve funcionar pois parece q

no vb vc definiu este campo como numero

oi Ama, nao deu certo, ele ja traz "nulo", veja o código abaixo:

 

        Data1.DatabaseName = "c:planilha.xls"
        Data1.RecordSource = "Plan1$"
        Data1.Refresh
        With Data1.Recordset
             If .RecordCount > 0 Then
                .MoveMin
                Do Until .EOF
                   If IsNull(![f1]) Then Exit Do   'O campo f1, ja vem nulo da planilha.
                   List1.AddItem ![f1]
                   .MoveNext
                Loop
             End If
            .Close
        End With

 

Obrigada.

Esqueça este controle data faça referencia ao excel no menu project references e

tente isto.

 

Dim wkbObj As WorkBook ' Declare an object variable.

Private Sub Command2_Click()
Dim arrPrices(1 To 7)
Dim i As Integer

i = 1
Do While wkbObj.Worksheets(1).Range("a" & i) <> Empty
  List1.AddItem wkbObj.Worksheets(1) _
   .Range("a" & i + 1).Value & _
   Space$(10) & _
   wkbObj.Worksheets(1) _
   .Range("B" & i + 1).Value
    i = i + 1
Loop
'se quiser inserir um novo valor na tabela
wkbObj.Worksheets(1).Range("a" & i + 1) = "INSERIDO EM RUNTIME"
wkbObj.Worksheets(1).Range("B" & i + 1) = "MODIFICANDO COLUNA 2"
End Sub

Private Sub Form_Load()
   ' Then set the variable with the GetObject method.
   Set wkbObj = GetObject _
      ("C:excelplanilha.xls")
End Sub

Private Sub Form_Unload(Cancel As Integer)
wkbObj.Close False
End Sub