SALVAR AUTOMATICO NO EXCEL
Amigos,
Tenho uma aplicação que lê um arquivo texto e o tranforma em uma ou mais planilhas excel. Tudo funciona perfeitamente, a planilha é gerada corretamente. O problema é que queria salvar essa planilha automaticamente, no lugar correto, sem exibir o prompt.
(trato como objeto pois está em um componente)
Dim objExcel As Object
Set objExcel = CreateObject([Ô]Excel.Application[Ô])
objExcel.Workbooks.Add
(Criação e preenchimento dos dados da planilha)
objExcel.Save [Ô]C: este.xls[Ô] [ô]Mesmo definindo o caminho, ainda aparece o prompt para salvar.
Alguma luz???????
Tenho uma aplicação que lê um arquivo texto e o tranforma em uma ou mais planilhas excel. Tudo funciona perfeitamente, a planilha é gerada corretamente. O problema é que queria salvar essa planilha automaticamente, no lugar correto, sem exibir o prompt.
(trato como objeto pois está em um componente)
Dim objExcel As Object
Set objExcel = CreateObject([Ô]Excel.Application[Ô])
objExcel.Workbooks.Add
(Criação e preenchimento dos dados da planilha)
objExcel.Save [Ô]C: este.xls[Ô] [ô]Mesmo definindo o caminho, ainda aparece o prompt para salvar.
Alguma luz???????
tenta assim:
ActiveWorkbook.SaveAs FileName:=[Ô]local+nomedoarquivo.xls[Ô], FileFormat:=xlNormal, Password:=[Ô][Ô], WriteResPassword:=[Ô][Ô], ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.SaveAs FileName:=[Ô]local+nomedoarquivo.xls[Ô], FileFormat:=xlNormal, Password:=[Ô][Ô], WriteResPassword:=[Ô][Ô], ReadOnlyRecommended:=False, CreateBackup:=False
Tópico encerrado , respostas não são mais permitidas