Aplicação com Excel

[caezar 0]

Olá amigos,

É o seguinte:

Fiz uma aplicação usando Excel 2002.

Nela fiz Referência a Microsoft Excel 10.0 Object Library.

Ela funciona norma em computadores com a mesma versão do Excel, porém em computadores com Excel 2000 a aplicção não roda!

Alguem teria uma sujestão para a solução deste problema??

 

Módulo:

Public Exc As New Excel.ApplicationPublic Xl As Excel.WorkbookPublic linha As StringPublic nLaudo As IntegerPublic Sub Main()Set Xl = Exc.Workbooks.Open(App.Path & "\Controle 2005.xls")FormPrincipal.ShowEnd Sub

Formulário:

Private Sub Command1_Click()Cells(linha, 1).Value = nLaudoCells(linha, 2).Value = TextAtiv.TextCells(linha, 3).Value = TextAval.TextCells(linha, 4).Value = TextSol.TextCells(linha, 5).Value = TextEnd.TextCells(linha, 6).Value = TextBair.TextCells(linha, 7).Value = TextCid.TextCells(linha, 8).Value = TextEst.TextCells(linha, 9).Value = TextTipo.TextCells(linha, 10).Value = TextDep.TextCells(linha, 11).Value = LabelDataCells(linha, 12).Value = TextObj.TextCells(linha, 13).Value = TextObs.TextEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()TextSol.Text = ""TextAval.Text = ""TextAtiv.Text = ""TextEnd.Text = ""TextBair.Text = ""TextCid.Text = ""TextEst.Text = ""TextDep.Text = ""TextTipo.Text = ""TextObj.Text = ""End SubPrivate Sub Form_Load()Xl.Sheets("laudos").Selectlinha = 4Do Until Cells(linha, 1) = ""linha = linha + 1LoopnLaudo = linha - 3FormPrincipal.Caption = "Laudo nº " & nLaudoEnd SubPrivate Sub Form_Terminate()Xl.Close TrueExc.QuitEnd Sub

[Graymalkin 0]

Sim, usar o recurso de "late-bound" (anexação tardia). Desse jeito você *não* marcaria nenhuma versão do Excel e faria a criação do objeto assim:

 

set Exc = CreateObject("Excel.Application")

Definindo "Exc" como Object. Dessa maneira você utilizaria a versão do Excel que estivesse instalada no computador (não ficando preso a versão que você marcou).

 

Abraços,

 

Graymalkin