Bom dia,
preciso de seleccionar dados de um ficheiro Excel
copiar, abrir um ficheiro no Google Drive
e colar os dados.
Sub ActualizarDrive()
'Selecionar Ficheiro
Windows("Lojas_Pendentes_CCTV.xlsx").Activate
'Seleciona dados a cópiar
Sheets("Lista Loja").Select
Range("B3:T3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.copy
'Abrir Drive e colar dados.
Shell ("C:\Program Files (x86)\Google\Chrome\Application\Chrome.exe -url https://docs.google.com/spreadsheets/xxxxxxx")
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End Sub
Está funcionar bem até abrir o Drive mas depois não consigo seleccionar nenhuma célula e fazer colar.
O que é necessário fazer para conseguir esse passo?
Obrigado.