IMPORTACAO EXCEL

BRUNO1990 10/01/2010 00:59:15
#331489
Eae pessoal......

To Precisando de uma ajuda, acredito que seja simples.

Fiz uma rotina que importa um arquivo em excel, porem dentro deste excel tem algumas celulas que são calculos (=soma(A1:A12) por exemplo) e esses campo não consigo importar eles me retornam Empty.....

Estou importando a celula da assim:

VARIAVEL = oExcel.Sheets(1).Cells(12, 12)

obrigado.....
ONBASS 10/01/2010 01:17:55
#331490
Caro BRUNO,

Já estou de saída, mas, só como idéia e não sei como vc vai adaptar, fiz esse teste rapidim...

Citação:


Range([Ô]A1[Ô]).Select [ô][ô] célula de origem
Selection.Copy

Range([Ô]C1[Ô]).Select [ô][ô] célula de destino
Selection.PasteSpecial Paste:=xlPasteFormulas [ô][ô] colando especial
PEGUDO 16/01/2010 18:58:22
#332142
Cara, vê se, com este código, você consegue:

[txt-color=#0000f0]Private Sub[/txt-color] Command1_Click()
[txt-color=#0000f0]Dim[/txt-color] Exc [txt-color=#0000f0]As[/txt-color] New Excel.Application
[txt-color=#0000f0]Dim[/txt-color] Wbook [txt-color=#0000f0]As[/txt-color] Excel.Workbook

[txt-color=#0000f0]Set[/txt-color] Wbook = Exc.Workbooks.Open([Ô]C:\Teste.xls[Ô]) [txt-color=#007100][ô]Criei uma planilha [Ô]Teste[Ô][/txt-color]
Variavel = Wbook.Application.Cells(5, 1).Value [txt-color=#007100][ô]Aqui peguei o resultado da soma das células A1, A2, A3 e A4. Você deve mudar o enderço das células para sua aplicação[/txt-color]

MsgBox Variavel
Wbook.Close [txt-color=#0000f0]True[/txt-color]
[txt-color=#0000f0]Set[/txt-color] Wbook = [txt-color=#0000f0]Nothing[/txt-color]
[txt-color=#0000f0]Set [/txt-color]Exc = [txt-color=#0000f0]Nothing[/txt-color]
[txt-color=#0000f0]End Sub[/txt-color]
ONBASS 18/01/2010 00:21:55
#332197
acho q ele ta querendo copiar A FÓRMULA contida na célula... se foi oq entendi
abraço
Tópico encerrado , respostas não são mais permitidas
Voltar