ATUALIZAR PLANILHA EXCEL
Bom dia amigos , tenho um aplicativo que vai buscar informações numa planilha do excel, como posso fazer essa planilha ficar atualizando sem ela estar ativa ( o programa abre ela automaticamente e fica aberta mas não ativa pro usuario), tentei usar o seguinte codigo mas sem sucesso;
Workbooks([Ô]Coluna.xls[Ô]).Worksheets([Ô]dados[Ô]).Refresh
Workbooks([Ô]Coluna.xls[Ô]).RefreshAll
Att
Osmar
Obrigado
Workbooks([Ô]Coluna.xls[Ô]).Worksheets([Ô]dados[Ô]).Refresh
Workbooks([Ô]Coluna.xls[Ô]).RefreshAll
Att
Osmar
Obrigado
Não sei se é exatamente isso que você quer, mas tenta ai:
Public Function ActivePlan(ByVal pstrNamePlan As String) As Integer
On Error GoTo TraTaErro
If pstrNamePlan <> [Ô][Ô] Then
objExcel.Worksheets(pstrNamePlan).Activate
Else
objExcel.Worksheets(1).Activate
End If
Exit Function
TraTaErro:
MsgBox [Ô]Erro nº [Ô] & Err.Number & [Ô] - [Ô] & Err.Description, vbExclamation, [Ô]Atenção[Ô]
End Function
Faça seu login para responder