|
|
|
|
 |
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).
|
|
|
|
|
