Clipper On Line • Ver Tópico - SAVEAS do EXCEL

SAVEAS do EXCEL

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Postar uma resposta
 

SAVEAS do EXCEL

Mensagempor Hasse » 06 Set 2018 22:10

Boa noite colegas.

Estou apanhando com SAVEAS do Excel.

Uso assim:
cPArqXls := "FulanoDeTal.xls"
oExcel:ActiveWorkbook:SaveAs( c_ArqXls )

Num segundo momento necessito, com frequência relativa, sobre-escrever este arquivo.
Qual a sintaxe para que este procedimento se efetue automaticamente, sem que o operador tenha que confirmar.

Obrigado pela atenção.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar de usuário

Hasse
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 815
Data de registro: 19 Out 2004 10:30
Cidade/Estado: Jaraguá do Sul - SC
Curtiu: 0 vez
Mens.Curtidas: 24 vezes
Voltar ao topo

SAVEAS do EXCEL

Mensagempor Jairo Maia » 07 Set 2018 00:16

Olá Hasse,

Tente assim,
cPArqXls := "FulanoDeTal.xls"

FileDelete( cPArqXls )  // deleta o arquivo se ele existe. Se não existe nada faz.

oExcel:ActiveWorkbook:SaveAs( c_ArqXls )
Abraços, Jairo
Harbour / Clipper 5.2e - Blinker 7
(Não respondo dúvidas por MP ou E-mail. Por favor, não encaminhe via mensagem privada ou e-mail, dúvidas que podem ser compartilhadas com todos no fórum)
Avatar de usuário

Jairo Maia
Colaborador

Colaborador
 
Mensagens: 2733
Data de registro: 16 Ago 2010 13:46
Cidade/Estado: Campinas-SP
Curtiu: 371 vezes
Mens.Curtidas: 305 vezes
Voltar ao topo

SAVEAS do EXCEL

Mensagempor Hasse » 07 Set 2018 08:53

Bom dia Jairo.

Vou usar a tua sugestão.
Obrigado.
Um Bom FDS.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar de usuário

Hasse
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 815
Data de registro: 19 Out 2004 10:30
Cidade/Estado: Jaraguá do Sul - SC
Curtiu: 0 vez
Mens.Curtidas: 24 vezes
Voltar ao topo

SAVEAS do EXCEL

Mensagempor asimoes » 07 Set 2018 09:28

Lembrando que se o arquivo estiver uso, vai falhar o saveas()
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes
Voltar ao topo

SAVEAS do EXCEL

Mensagempor Hasse » 07 Set 2018 14:14

Boa tarde.

Esta será a dificuldade maior, pois é imprevisível o que o usuário descuidado irá fazer.
O pior é que o Excel não avisa que o SaveAs() falhou.

Acredito que antes de deletar irei pesquisar com File() se o arquivo já existe. Se positivo incremento o nome com 1, 2, 3 e assim por diante.

Ou ainda, se o arquivo existir, avisar o usuário para fechar o arquivo aberto.
Acredito que será a melhor opção, pois a responsabilidade será transferida. E teremos somente um arquivo válido, o último.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar de usuário

Hasse
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 815
Data de registro: 19 Out 2004 10:30
Cidade/Estado: Jaraguá do Sul - SC
Curtiu: 0 vez
Mens.Curtidas: 24 vezes
Voltar ao topo

SAVEAS do EXCEL

Mensagempor asimoes » 07 Set 2018 19:09

Hasse,

Dá erro sim, eu trato com begin sequence...
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes
Voltar ao topo

SAVEAS do EXCEL

Mensagempor asimoes » 07 Set 2018 19:15

Exemplo:

         BEGIN SEQUENCE WITH __BreakBlock()
            fErase("D:\EXCEL\ASSIM.XLS")
            oExcel:ActiveWorkbook:SaveAs("D:\EXCEL\ASSIM.XLS")
            oDW:DialogWask("A planilha foi salva em D:\EXCEL com o nome ASSIM.XLS", "Atenção")
            oExcel:Visible:=.T.
            lVerifica:=.F.
         RECOVER USING oErro
            oDW:DialogWask("A planilha ASSIM está aberta, por favor feche-a.", "Erro", , "E")
         END
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes
Voltar ao topo

SAVEAS do EXCEL

Mensagempor Hasse » 08 Set 2018 08:51

Bom dia.

AHHAAAAAAA !!!!!

Muito legal esta rotina.
Ainda hoje vou implantar.

Obrigado.
Hasse
CP200 / CP500 / Basic / dBase III / dBase IV / Clipper Summer / RTlink / Exospace.
Clipper 5.3b / Blinker 7.0 / CDX com TAG
xHarbour 1.2.1-6604 / Borland C++ (5.5.1) 32 bit / HBmake.
Harbour 3.2.0dev (r1412121623) / MINGW / HBM2 / MiniGui HMG 3.1.4 / IDE (Roberto Lopez).
"Conheça todas as teorias, domine todas as técnicas, mas, quando tocares uma alma humana, seja apenas outra alma humana." (C.G.Jung)
Avatar de usuário

Hasse
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 815
Data de registro: 19 Out 2004 10:30
Cidade/Estado: Jaraguá do Sul - SC
Curtiu: 0 vez
Mens.Curtidas: 24 vezes
Voltar ao topo
Postar uma resposta


Retornar para Harbour

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 12 visitantes

Mudar para estilo Celular

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traduzido por phpBB Brasil
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro
Conversão Sistema Clipper para Harbour - Você tem um programa desenvolvido em Clipper e quer atualizar ele para executar em versões mais recentes do Windows (7, 8, 10, etc)? Então o melhor caminho é converter seu programa Clipper para Harbour. Clique aqui para mais detalhes.