|
|
|
 |
Título da Dica: Abrindo uma planilha Excel e movendo-se entre as células para capturar valores.
|
 |
|
|
Postada em 6/10/2003 por Roßerto
Crie uma automação OLE com o Excel, conforme mostra o código a seguir:
Dim Excel As Object Set Excel = CreateObject("Excel.Application.8") With Excel .Workbooks.Open filename:="C:\caminho\arquivo.xls" .Visible = True .Sheets("Plan1").Select .Range("A1").Select MsgBox .activecell.Value .activecell.Value = 20 End With
Acima, executamos os seguintes passos:
1.Selecionamos a planilha Plan1 e a célula A1; 2.Através de um MsgBox, mostramos o valor na tela da célula selecionada; 2.Em seguida, com a propriedade Value da célula, alteramos o conteúdo da célula ativa (no caso Plan1, A1).
|
|
|
|

|