Página 2 de 2

Importando de planilha Excel - nome da planilha

Enviado: 26 Mai 2012 00:22
por sygecom
Link a LIB xhb.lib e hbwin.lib

Importando de planilha Excel - nome da planilha

Enviado: 30 Jun 2021 10:22
por deividdjs
Estou tentando converver um arquivo excel para DBF3 com a função abaixo e estou enfrentando um erro...

Error: Unresolved external '_HB_FUN_WIN_OLECREATEOBJECT' referenced from OBJ\CONVERTER.OBJ

Código: Selecionar todos

*************
//Function Main() //  (Arq1,Arq2)
*************************
//setmode(25,80)
Arq1="G:\conv\tmprod.xls"       // "D:\mmv3\test1"
Arq2="G:\conv\tmprod.dbf"       //"D:\mmv3\TESTE9" ** esse Arquivo sera criado em tempo de execucao
XLS2DBF( Arq1, Arq2 )
return nil
 
**************************************
FUNCTION XLS2DBF( cXlsName, cDbfName )
**************************************
*
* Purpose: convert an Excel spreadsheet to a dBase III+ table
* but does not leave Excel open
*
  LOCAL oExcel := Win_OleCreateObject( "Excel.Application" )
  //LOCAL oExcel := xhb_GetActiveObject( "Excel.Application" )
  LOCAL oWorkBook, oSheet
 
  oWorkbook = oExcel:WorkBooks:Open( cXlsName )
  
  oSheet = oExcel:ActiveSheet
 
  oSheet:SaveAs( cDbfName, xlDbf3 )
 
  oWorkBook:Close( False )
 
  oExcel:Quit()
  oSheet := NIL
  oWorkBook := NIL
  oExcel := NIL
 
RETURN( NIL )
nunca havia usando esta função ... qual include ou lib devo utilizar ??

Importando de planilha Excel - nome da planilha

Enviado: 30 Jun 2021 13:26
por alxsts
Olá!

Esta função pertence à lib hbWin. Basta incluí-la na compilação:

Código: Selecionar todos

HbMk2 NomeDoTeuPrg hbwin.hbc

Importando de planilha Excel - nome da planilha

Enviado: 25 Jul 2023 20:00
por carlos_dornelas
Pessoal, tópico antigo, talvez já tenha uma solução melhor hoje... me surgiu uma necessidade de converter planilhas fornecidas em xls para dbf (via harbour). Andei pesquisando vários tópicos mas nao obtive sucesso ainda...

compilei o exemplo acima, que parece ser a solução do que vou precisar, mas dá erros na hora de executar o programa:

Código: Selecionar todos

*************
02	//Function Main() //  (Arq1,Arq2)
03	*************************
04	//setmode(25,80)
05	Arq1="G:\conv\tmprod.xls"       // "D:\mmv3\test1"
06	Arq2="G:\conv\tmprod.dbf"       //"D:\mmv3\TESTE9" ** esse Arquivo sera criado em tempo de execucao
07	XLS2DBF( Arq1, Arq2 )
08	return nil
09	  
10	**************************************
11	FUNCTION XLS2DBF( cXlsName, cDbfName )
12	**************************************
13	*
14	* Purpose: convert an Excel spreadsheet to a dBase III+ table
15	* but does not leave Excel open
16	*
17	  LOCAL oExcel := Win_OleCreateObject( "Excel.Application" )
18	  //LOCAL oExcel := xhb_GetActiveObject( "Excel.Application" )
19	  LOCAL oWorkBook, oSheet
20	  
21	  oWorkbook = oExcel:WorkBooks:Open( cXlsName )
22	   
23	  oSheet = oExcel:ActiveSheet
24	  
25	  oSheet:SaveAs( cDbfName, xlDbf3 )
26	  
27	  oWorkBook:Close( False )
28	  
29	  oExcel:Quit()
30	  oSheet := NIL
31	  oWorkBook := NIL
32	  oExcel := NIL
33	  
34	RETURN( NIL )
Erro na execução: "Error BASE/1004 No exported method: WORKBOOKS"

Alguém tem uma dica ou um exemplo funcional?

Grato

Antonio Carlos

Importando de planilha Excel - nome da planilha

Enviado: 26 Jul 2023 08:54
por marco.prodata
Tá com o excel instalado né?

Importando de planilha Excel - nome da planilha

Enviado: 26 Jul 2023 12:50
por carlos_dornelas
Boa tarde!
Tá com o excel instalado né?
Não tenho instalado o excell e não gostaria de depender de ter o excell instalado...

Só preciso de salvar um .xls em .dbf via (x)harbour... será possível?

[]s

Antonio Carlos