EXCEL RETORNA SYSTEM._COMOBJECT

 Tópico anterior Próximo tópico Novo tópico

EXCEL RETORNA SYSTEM._COMOBJECT

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#482290 - 13/06/2018 14:11:26

PEGUDO
RIO DE JANEIRO
Cadast. em:Março/2009


Última edição em 13/06/2018 14:12:53 por PEGUDO

Caros,
Surgiu uma oportunidade de ganhar uma grana com VB.NET, mas estou com um problema no Visual Studio 2017.

Ao tentar abrir a planilha Excel, o Visual Studio 2017 sempre me retorna System._ComObject.
Segue meu código:

Imports Microsoft.Office.Interop.Excel

Public Class clsExcel
    Private xAplicacao As Application
    Private xWorkBook As Workbook

    Public ReadOnly Property criaNumeroCotacao As String
        Get
            xAplicacao = New Application
            xWorkBook = xAplicacao.Workbooks.Open(clsGenerico.pastaAplicacao & "\PLANILHA COMERCIAL-Rev09 - teste automação.xlsx")

            xWorkBook.Close()
            xAplicacao.Quit()

            Return criaNumeroCotacao
        End Get
    End Property
End Class



Estou fazendo referência ao Microsoft Excel 16.0 Object Library e o Office instalado em minha máquina é o 2016.
Quando o programa chega na linha xWorkBook = xAplicacao.Workbooks.Open, o programa sempre retorna o erro em questão. Já vi e revi em vários sites e nos fóruns da Microsoft e do Visual Studio e o modo o Excel de abrir está correto.


"Às vezes, para poder andar pra frente, o homem deve deixar tudo para trás"

#482291 - 13/06/2018 14:56:42

PEGUDO
RIO DE JANEIRO
Cadast. em:Março/2009


Senhores... Resolvido.
Apesar do Programa estar me retornando a mensagem System._ComObject, ele está lendo o Excel.
Fiz o Loop, por desencargo de consciência, e o programa leu a planilha.

For x = 1 To 20000
    Try
        valor = xWorkBook.Sheets.Item(1).Cells(x, 1).Value.ToString
    Catch ex As Exception
        criaNumeroCotacao = transformaNumeroCotacao(xWorkBook.Sheets.Item(1).Cells((x - 1), 1).Value.ToString)
        Exit For
    End Try
Next



Agora poderei dar prosseguimento e utilizar o WorkSheet e o Range.

"Às vezes, para poder andar pra frente, o homem deve deixar tudo para trás"

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por PEGUDO em 13/06/2018 14:58:13