Carregar valores de uma planilha de Excel / ou Carregar arquivo de Excel

#1

Boa tarde

Estou com dificuldade de achar material referente a carga de um arquivo de Excel ou carga de alguns dados de um determinado arquivo.

Alguém pode me ajudar?

Obrigado!

1 Like
#2

Boa tarde Rodrigo,

Sugiro que verifique este artigo da nossa base de conhecimento:

1 Like
#3

Boa tarde
Ok!, vou verificar, obrigado!

#4

Boa tarde

Deu super certo!

Obrigado.

1 Like
#5

Delio, podes verificar porque as vezes o excel consta pra mim que está aberto “Apos eu rodar esse Script” ?

Obrigado!

Sub A_CAVACO_Click()
'Coleta dados:
‘open’
Dim objExcel
Dim objWorkBook
Dim sheet

‘Tipo do arquivo, caminho aonde está o arquivo’.
Set objExcel = CreateObject(“EXCEL.APPLICATION”)
Set objWorkBook = objExcel.Workbooks.open ("\bra01fs01\bra01ns01\manutencao\Daniel\Gestão a Vista 2021\1.xlsx")

'Define a Aba que está o arquivo e Define os cabeçalhos das colunas do Excel
Set sheet = objWorkBook.Sheets (“DADOS”)

	'Descreve o título do gráfico'
		Screen.Item("D_TÍTULO_GRÁFICO").Value = ("CONSUMO DE CAVACO:    ")
	
	'tranfere a variável meta pata a tag interna'
	set Screen.Item("META_MÊS").Value = sheet.Cells(1,"P")

'tranfere as variável do excel para o gráfico.
Screen.Item(“Mês_01”).VerticalPercentFill = sheet.Cells(6,“B”)

‘Ajusta a altura do gráfico pela maior leitura do ano’ ‘ajuste é feito na barra meta/ano’
Screen.Item(“Média_Geral”).VerticalPercentFill = 50

‘Closed’

objWorkBook.Close
objExcel.Quit
End Sub

#6

Boa tarde Rodrigo,

Tentei reproduzir o problema utilizando o seu script, porém não tive sucesso.
Não é apresentada nenhuma mensagem informando que o arquivo e/ou Excel estão abertos ou em uso.
Essa mensagem aparece onde? Poderia enviar uma imagem?

De qualquer forma, experimente limpar os ponteiros objWorkBook e objExcel ao final do script:

Set objWorkBook = Nothing
Set objExcel = Nothing

Se o problema persistir, por gentileza envie sua aplicação para eu verificar (delio@elipse.com.br).