office com delphi
ola, estou começando com o Delphi e estou muito contente, gostaria de saber se existe a possibilidade e importar e exportar dados do paradox para o word e o excel.
desde ja muito grata :D
desde ja muito grata :D
Katia
Curtidas 0
Respostas
Anonymous
02/02/2003
É possível. Dê uma estudada nos componentes da aba Servers.
GOSTEI 0
Clayton
02/02/2003
inclua Comobj na clausula uses
coloque um botão no seu form clique duas vezes sobre ele e digite o seguinte antes do begin:
var
MSWord: Variant;
E depois do begin:
MSWord:= CreateOleObject (´Word.Basic´);
MSWord.AppShow;//mostra o word
MSWord.FileNew;//inicia um novo documento
MSWord.insert(´Contrato de Locação´); //Escreve algo
MSWord.insert(#13+´Contrato de Locação´);//Pula uma
linha e escreve
MSWord.FontSize(24);//muda o tamanho da fonte
MSWord.italic;//coloca italico
MSWord.bold;//coloca negrito
MSWord.underline;//sublina
MSWord.insert(13+´Contrato de Locação´);//pula a linha
e escreve novamente
MSWord.FontSize(12);//muda o tamanho da fonte
MSWord.Font(´Arial´);//muda a fonte usada
MSWord.underline(false);//retira o sublinhado
MSWord.italic(false);//retira o italico
MSWord.bold(false);//retira o bold
MSWord.insert(#13 +´teste´);
MSWord.insert(13+9 +´teste´);//nova linha e um TAB
MSWord.insert(13+Table1Razao_Social.Value);//insere
algo de uma tabela neste caso campo RAZÃO SOCIAL
end;
caso tenha dúvidas me passe um e-mail: claytontecnico@msn.com
coloque um botão no seu form clique duas vezes sobre ele e digite o seguinte antes do begin:
var
MSWord: Variant;
E depois do begin:
MSWord:= CreateOleObject (´Word.Basic´);
MSWord.AppShow;//mostra o word
MSWord.FileNew;//inicia um novo documento
MSWord.insert(´Contrato de Locação´); //Escreve algo
MSWord.insert(#13+´Contrato de Locação´);//Pula uma
linha e escreve
MSWord.FontSize(24);//muda o tamanho da fonte
MSWord.italic;//coloca italico
MSWord.bold;//coloca negrito
MSWord.underline;//sublina
MSWord.insert(13+´Contrato de Locação´);//pula a linha
e escreve novamente
MSWord.FontSize(12);//muda o tamanho da fonte
MSWord.Font(´Arial´);//muda a fonte usada
MSWord.underline(false);//retira o sublinhado
MSWord.italic(false);//retira o italico
MSWord.bold(false);//retira o bold
MSWord.insert(#13 +´teste´);
MSWord.insert(13+9 +´teste´);//nova linha e um TAB
MSWord.insert(13+Table1Razao_Social.Value);//insere
algo de uma tabela neste caso campo RAZÃO SOCIAL
end;
caso tenha dúvidas me passe um e-mail: claytontecnico@msn.com
GOSTEI 0