rubensma

Boa noite Obrigado Emotta por compartilhar

emotta, não entendo quando fala de GIT ou repositório, poderia dar uma aula pra ajudar a entrarmos no VSCODE, não sei como começar e acredito que muitos aqui também querem usar, acho.

Boa tarde. Estava procurando também outra IDE para os projetos, vou sair da xDev que é fantástica como disse, muita gratidão mesmo ao Vailton. Grato por compartilhar os links, vou ver o que consigo. Quem tiver algumas dicas, por favor postar aqui. Abraços

Boa tarde. Resgatei esse tópico antigo somente para registrar que hoje tive esse erro E0032 porque no projeto novo que criei, que copiei de outro programa tinha um arquivo xxx.c que estava sendo direcionado a uma pasta \obj que não exestia. Foi só criar a pasta que voltou ao normal. Procurei pelo erro e só achei esse tópico. Fica a dica ai. Obrigado

Olá, boa tarde. Uso dessa forma para importar planilhas xls, e vai muito bem sem muita demora, se quiser tentar tem dois modelos ai #include "fivewin.ch" #include "Fileio.ch" #include "Inkey.ch" #define SW_NORMAL 1 #define SW_RESTORE 9 //-------------------------------------------------------------------- // Importar a planilha do excel - cadastro de funcionários function importacad() cMod := "ARQUIVOS DE APOIO" cSer := "Entrada no módulo de importação dos cadastros de funcionários" registra( cMod , cSer ) MsgMeter( {|oMeter,oText|LerXLScadastro(1,oMeter,oText)}," ", "Importando arquivo do Excel" ) return nil ************************************************************************** * Montagem de arquivos de apoio - importação do cadastro direto do excel * ************************************************************************** Function LerXLScadastro(vTot,oMeter,oText) Local vEsc := .f. // teste se foi teclado esc if !msgNoYes("Será importado do Excel o arquivo cadastro de funcionários!"+; chr(13)+chr(13)+"Deseja continuar?","..: Atenção :..") Return nil Endif cArq1 := cGetFile32("cadast*.X*","Escolha o arquivo a importar") If !File(cArq1) .or. ! "cadastro" $ cArq1 msginfo("Arquivo inválido ou não disponível."+chr(13)+; "Verifique o nome do arquivo !","Informação") Return nil Endif oExcel:=TOleAuto():New("Excel.Application") oBook := oExcel:Workbooks:Open(cArq1) oHoja := oExcel:Get( "ActiveSheet" ) nTotRowCount := oHoja:UsedRange:Rows:Count() // TOTAL DE LINHAS DO ARQUIVO dbSelectArea( "cad" ) // zerar o arquivo base cad->( dbzap() ) // arquivo foi aberto com uso exclusivo oMeter:nTotal := nTotRowCount - 2 // descontar o cabeçalho nCount := 0 FOR Q = 3 TO nTotRowCount // começa na linha cad->( dbAppend() ) cad->( rlock() ) cad->filial := iif(oHoja:Cells( Q, 1 ):Value == nil,"",oHoja:Cells( Q, 1 ):Value) cad->matricula := iif(oHoja:Cells( Q, 2 ):Value == nil,0,oHoja:Cells( Q, 2 ):Value) cad->nome := iif(oHoja:Cells( Q, 3 ):Value == nil,"",oHoja:Cells( Q, 3 ):Value) cad->datadm := iif(oHoja:Cells( Q, 4 ):Value == nil,ctod(" / / "),oHoja:Cells( Q, 4 ):Value) //oHoja:Cells( Q, 4 ):Value cad->situacao := iif(oHoja:Cells( Q, 5 ):Value == nil,"",oHoja:Cells( Q, 5 ):Value) cad->ccusto := iif(oHoja:Cells( Q, 6 ):Value == nil,"",oHoja:Cells( Q, 6 ):Value) cad->tipo := iif(oHoja:Cells( Q, 7 ):Value == nil,"",oHoja:Cells( Q, 7 ):Value) cad->gerencia := iif(oHoja:Cells( Q, 8 ):Value == nil,"",oHoja:Cells( Q, 8 ):Value) cad->area := iif(oHoja:Cells( Q, 9 ):Value == nil,"",oHoja:Cells( Q, 9 ):Value) cad->(Dbunlock() ) oMeter:Set(++nCount) oText:SetText("Importando cadastro de funcionários!"+chr(13)+; "Processando Registro : "+str(nCount,6)+"/"+str(oMeter:nTotal,6) ) if lastkey() = 27 vEsc := .t. exit endif NEXT oExcel:WorkBooks:Close() oExcel:Application:Quit() RELEASE oHoja RELEASE oExcel if vEsc msginfo("Importação interrompida pelo usuário") else msginfo("Arquivo importado com sucesso!") endif cad->( dbGoTop() ) browse() Return nil Outro, com campos numéricos *************************************************************************** * Montagem de arquivos de apoio - importação da tabela de código do excel * *************************************************************************** Function LerXLStabela(vTot,oMeter,oText) Local vEsc := .f. // teste se foi teclado esc if ! msgNoYes("Será importado do Excel o arquivo tabela de códigos!"+; chr(13)+chr(13)+"Deseja continuar?","..: Atenção :..") Return nil Endif cArq2 := cGetFile32("Tabela de códigos|Tabe*.XL*|","Escolha o arquivo a importar") If ! File(cArq2) .or. ! "Tabela" $ cArq2 msginfo("Arquivo inválido ou não disponível."+chr(13)+; "Tente novamente !","Informação") Return nil Endif oExcel:=TOleAuto():New("Excel.Application") oBook := oExcel:Workbooks:Open(cArq2) oHoja := oExcel:Get( "ActiveSheet" ) nTotRowCount := oHoja:UsedRange:Rows:Count() // TOTAL DE LINHAS DO ARQUIVO dbSelectArea( "tab" ) // zerar o arquivo base tab->( dbzap() ) // arquivo foi aberto com uso exclusivo oMeter:nTotal := nTotRowCount - 1 // descontar o cabeçalho *::: Formato de Columnas //oHoja:Columns( 22 ):Set("NumberFormat","@") // formatar a coluna para texto //oHoja:Columns( 23 ):Set("NumberFormat","@") // formatar a coluna para texto nCount := 0 FOR Q = 2 TO nTotRowCount // começa na linha tab->( dbAppend() ) tab->( rlock() ) tab->cod := iif(oHoja:Cells( Q, 1 ):Value == nil, 0,oHoja:Cells( Q, 1 ):Value) tab->desc := iif(oHoja:Cells( Q, 2 ):Value == nil,"",oHoja:Cells( Q, 2 ):Value) tab->in := iif(oHoja:Cells( Q, 3 ):Value == nil,"",oHoja:Cells( Q, 3 ):Value) tab->ir := iif(oHoja:Cells( Q, 4 ):Value == nil,"",oHoja:Cells( Q, 4 ):Value) tab->fg := iif(oHoja:Cells( Q, 5 ):Value == nil,"",oHoja:Cells( Q, 5 ):Value) tab->br := iif(oHoja:Cells( Q, 6 ):Value == nil,"",oHoja:Cells( Q, 6 ):Value) tab->de := iif(oHoja:Cells( Q, 7 ):Value == nil,"",oHoja:Cells( Q, 7 ):Value) tab->lq := iif(oHoja:Cells( Q, 8 ):Value == nil,"",oHoja:Cells( Q, 8 ):Value) tab->es := iif(oHoja:Cells( Q, 9 ):Value == nil,"",oHoja:Cells( Q, 9 ):Value) tab->dp := iif(oHoja:Cells( Q,10 ):Value == nil,"",oHoja:Cells( Q, 10 ):Value) tab->ra := iif(oHoja:Cells( Q,11 ):Value == nil, 0,oHoja:Cells( Q, 11 ):Value) tab->un := iif(oHoja:Cells( Q,12 ):Value == nil,"",oHoja:Cells( Q, 12 ):Value) tab->di := iif(oHoja:Cells( Q,13 ):Value == nil,"",oHoja:Cells( Q, 13 ):Value) tab->vig := iif(oHoja:Cells( Q,14 ):Value == nil,"",oHoja:Cells( Q, 14 ):Value) tab->un1 := iif(oHoja:Cells( Q,15 ):Value == nil,"",oHoja:Cells( Q, 15 ):Value) tab->un2 := iif(oHoja:Cells( Q,16 ):Value == nil,"",oHoja:Cells( Q, 16 ):Value) tab->fx := iif(oHoja:Cells( Q,17 ):Value == nil,"",oHoja:Cells( Q, 17 ):Value) tab->val_ := iif(oHoja:Cells( Q,18 ):Value == nil,"",oHoja:Cells( Q, 18 ):Value) tab->dup := iif(oHoja:Cells( Q,19 ):Value == nil,"",oHoja:Cells( Q, 19 ):Value) tab->rend := iif(oHoja:Cells( Q,20 ):Value == nil, 0,oHoja:Cells( Q, 20 ):Value) tab->t1 := iif(oHoja:Cells( Q,21 ):Value == nil, 0,oHoja:Cells( Q, 21 ):Value) tab->cont := iif(oHoja:Cells( Q,22 ):Value == nil, 0,oHoja:Cells( Q, 22 ):Value) tab->t2 := iif(oHoja:Cells( Q,23 ):Value == nil, 0,oHoja:Cells( Q, 23 ):Value) if ValType( oHoja:Cells( Q,24 ):Value ) = "N" // se for campo numérico tab->deb := iif(oHoja:Cells( Q,24 ):Value == nil,0,str(oHoja:Cells( Q, 24 ):Value)) else tab->deb := iif(oHoja:Cells( Q,24 ):Value == nil,"",oHoja:Cells( Q, 24 ):Value) endif if ValType( oHoja:Cells( Q,25 ):Value ) = "N" // se for campo numérico tab->cre := iif(oHoja:Cells( Q,25 ):Value == nil,0,str(oHoja:Cells( Q, 25 ):Value)) else tab->cre := iif(oHoja:Cells( Q,25 ):Value == nil,"",oHoja:Cells( Q, 25 ):Value) endif tab->dg := iif(oHoja:Cells( Q,26 ):Value == nil, 0,oHoja:Cells( Q, 26 ):Value) tab->(Dbunlock() ) oMeter:Set(++nCount) oText:SetText("Importando tabela de códigos!"+chr(13)+; "Processando Registro : "+str(nCount,6)+"/"+str(oMeter:nTotal,6) ) if lastkey() = 27 vEsc := .t. exit endif NEXT oExcel:WorkBooks:Close() oExcel:Application:Quit() RELEASE oHoja RELEASE oExcel if vEsc msginfo("Importação interrompida pelo usuário") else msginfo("Arquivo importado com sucesso!") endif tab->( dbGoTop() ) //browse() Return nil

Bom-dia! Simplesmente parou de funcionar enviar dados para o Excel no mesmo Windows 10 que estava funcionando, acho que depois de uma atualização Segue parte do PRG e Log de erro function gerarlote(vTot,oMeter,oText,nOption,numlote) LOCAL oExcel, oHoja dbSelectArea( "con" ) // seleciona arquivo contábil con->( dbGoTop() ) vNomenum := "Lote_"+"&numlote."+".txt" // usando macro precisa por ponto if nOption = 2 // foi selecionado arquivo texto copy to &vNomenum delimited // separado por virgula WinExec("Notepad &vNomenum",1) // 1 = diretorio corrente return nil endif nRow := 1 // reinicia a linha da planilha nCount := 0 // Zerar o total do meter oExcel := TOleAuto():New( "Excel.Application" ) <======== AQUI O ERRO oExcel:WorkBooks:Add() oHoja := oExcel:Get( "ActiveSheet" ) *::: Seleciona a guia BOLETINS para preenchimento //oExcel:Sheets("Planilha1"):Name := "Boletins" // nomear a 1ª guia //oExcel:Sheets("Boletins"):Select() // selecionar a guia nomeada oMeter:cCaption := "Lote dos Boletins" oHoja := oExcel:Get( "ActiveSheet" ) FOR nCol := 1 TO FCOUNT() // percorrer todas as colunas oHoja:Cells( nRow, nCol ):Value := FieldName( nCol ) // linhadegrade(oHoja,nRow,nCol) NEXT Error.log Application =========== Path and name: C:\Boletim\boletim.EXE (32 bits) Size: 4,255,744 bytes Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20180715) FiveWin version: FWH 18.05 C compiler version: Borland/Embarcadero C++ 7.3 (32-bit) Windows version: 6.2, Build 9200 Time from start: 0 hours 2 mins 45 secs Error occurred at: 02/02/2020, 22:31:06 Error description: Error TOleAuto/65535 : TOLEAUTO:NEW Args: [ 1] = C Excel.Application Stack Calls =========== Called from: => THROW( 0 ) Called from: source\rtl\win32ole.prg => TOLEAUTO:NEW( 0 ) Called from: C:\Boletim\excel_bol.prg => GERARLOTE( 584 ) Called from: C:\Boletim\excel_bol.prg => (b)ENVIA_BOLETIM( 556 ) Called from: C:\Boletim\excel_bol.prg => (b)MSGMETER( 216 ) Called from: .\source\classes\DIALOG.PRG => (b)TDIALOG:TDIALOG( 94 ) Called from: => TDIALOG:DISPLAY( 0 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1037 ) Called from: => DIALOGBOXINDIRECT( 0 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 287 ) Called from: C:\Boletim\excel_bol.prg => MSGMETER( 219 ) Called from: C:\Boletim\excel_bol.prg => ENVIA_BOLETIM( 556 ) Called from: C:\Boletim\excel_bol.prg => (b)MONTARLOTE( 285 ) Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK( 179 ) Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1686 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3451 ) Called from: => SENDMESSAGE( 0 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 409 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1050 ) Called from: => DIALOGBOX( 0 ) Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 287 ) Called from: C:\Boletim\excel_bol.prg => MONTARLOTE( 290 ) Called from: C:\Boletim\BOLETIM.PRG => (b)MAIN( 186 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 693 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 970 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1722 ) Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1953 ) Called from: .\source\classes\WINDOW.PRG => _FWH( 3451 ) Called from: => WINRUN( 0 ) Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1052 ) Called from: C:\Boletim\BOLETIM.PRG => MAIN( 267 ) System ====== CPU type: Intel(R) Core(TM) i5-5200U CPU @ 2.20GHz 2195 Mhz Hardware memory: 8095 megs Free System resources: 90 % GDI resources: 90 % User resources: 90 % Windows total applications running: 6 1 , 2 , C:\Boletim\boletim.EXE 3 , C:\WINDOWS\System32\shcore.dll 4 , C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.17763.914_none_4d607d8 5 DDE Server Window, C:\WINDOWS\System32\OLE32.DLL 6 G, C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.17763.914_none_7e4b706e762fa5c Variables in use ================ Procedure Type Value ========================== THROW Param 1: O Class: ERROR Local 1: U Local 2: U TOLEAUTO:NEW Param 1: C "Excel.Application" Local 1: U Local 2: U Local 3: O Class: TOLEAUTO Local 4: O Class: ERROR Local 5: C "C" GERARLOTE Param 1: N 1 Param 2: O Class: TMETER Param 3: O Class: TSAY Param 4: N 1 Param 5: C " " Local 1: U Local 2: U (b)ENVIA_BOLETIM Param 1: O Class: TMETER Param 2: O Class: TSAY Param 3: O Class: TDIALOG Param 4: L .F. Param 5: O Class: TBUTTON (b)MSGMETER Param 1: U (b)TDIALOG:TDIALOG Param 1: O Class: TDIALOG TDIALOG:DISPLAY TDIALOG:HANDLEEVENT Param 1: N 15 Param 2: N 0 Param 3: N 0 Local 1: O Class: TDIALOG DIALOGBOXINDIRECT Param 1: N 4194304 Param 2: C "€ È€ &ÿ·ÿŸ E E x p o r t a n d o o a r q u i v o c o n t a b i l P , v S T A T I C P # — w T M E T E R P > 4 ! x B U T T O N & C a n c e l a " Param 3: N 855676 Param 4: O Class: TDIALOG TDIALOG:ACTIVATE Param 1: U Param 2: U Param 3: U Param 4: L .T. Param 5: B {|| ... } Param 6: L .T. Param 7: U Param 8: U Param 9: U Param 10: U Param 11: U Local 1: O Class: TDIALOG Local 2: N 855676 Local 3: U Local 4: U Local 5: U Local 6: O Class: TDIALOG MSGMETER Param 1: B {|| ... } Param 2: C " " Param 3: C "Exportando o arquivo contabil" Local 1: O Class: TDIALOG Local 2: O Class: TMETER Local 3: O Class: TSAY Local 4: O Class: TBUTTON Local 5: O Class: TFONT Local 6: L .F. Local 7: L .F. Local 8: N 0 ENVIA_BOLETIM (b)MONTARLOTE Param 1: O Class: TBUTTON TBUTTON:CLICK Local 1: O Class: TBUTTON TBUTTON:HANDLEEVENT Param 1: N 2048 Param 2: N 0 Param 3: N 0 Local 1: O Class: TBUTTON Local 2: U _FWH Param 1: N 0 Param 2: N 2048 Param 3: N 0 Param 4: N 0 Param 5: N 28 Local 1: O Class: TBUTTON SENDMESSAGE Param 1: N 3736930 Param 2: N 2048 Param 3: N 0 Param 4: N 0 TDIALOG:COMMAND Param 1: N 302 Param 2: N 3736930 Local 1: O Class: TDIALOG Local 2: O Class: TBUTTON Local 3: N 0 Local 4: N 302 Local 5: N 3736930 Local 6: U TWINDOW:HANDLEEVENT Param 1: N 273 Param 2: N 302 Param 3: N 3736930 TDIALOG:HANDLEEVENT Param 1: N 273 Param 2: N 302 Param 3: N 3736930 Local 1: O Class: TDIALOG DIALOGBOX Param 1: N 4194304 Param 2: C "montalote" Param 3: N 5244362 Param 4: O Class: TDIALOG TDIALOG:ACTIVATE Param 1: U Param 2: U Param 3: U Param 4: L .T. Param 5: U Param 6: L .T. Param 7: U Param 8: U Param 9: U Param 10: U Param 11: U Local 1: O Class: TDIALOG Local 2: N 5244362 Local 3: U Local 4: U Local 5: U Local 6: O Class: TDIALOG MONTARLOTE Local 1: O Class: TDIALOG Local 2: U Local 3: O Class: TBUTTON Local 4: U Local 5: U Local 6: U Local 7: U Local 8: U Local 9: U (b)MAIN Param 1: O Class: TBTNBMP TBTNBMP:CLICK Local 1: O Class: TBTNBMP TBTNBMP:LBUTTONUP Param 1: N 36 Param 2: N 37 Param 3: O Class: TBTNBMP Local 1: U Local 2: L .T. Local 3: N 0 TCONTROL:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 2359333 Local 1: O Class: TBTNBMP Local 2: U TBTNBMP:HANDLEEVENT Param 1: N 514 Param 2: N 0 Param 3: N 2359333 Local 1: O Class: TBTNBMP _FWH Param 1: N 2359333 Param 2: N 514 Param 3: N 0 Param 4: N 2359333 Param 5: N 7 Local 1: O Class: TBTNBMP WINRUN Param 1: N 5244362 TWINDOW:ACTIVATE Param 1: C "MAXIMIZED" Param 2: U Param 3: U Param 4: U Param 5: U Param 6: U Param 7: U Param 8: B {|| ... } Param 9: U Param 10: U Param 11: U Param 12: U Param 13: U Param 14: U Param 15: U Param 16: U Param 17: U Param 18: U Param 19: U Param 20: L .F. Local 1: O Class: TWINDOW Local 2: U Local 3: U MAIN Linked RDDs =========== DBF DBFFPT DBFBLOB DBFCDX DBFNTX DataBases in use ================ 1: SENHAS RddName: DBFCDX ============================== RecNo RecCount BOF EOF 1 7 .F. .F. Indexes in use TagName => upper(senhas->usuari) USUARI Relations in use 2: SIS RddName: DBFCDX ============================== RecNo RecCount BOF EOF 2808 2808 .F. .F. Indexes in use TagName Relations in use 3: DIA RddName: DBFCDX ============================== RecNo RecCount BOF EOF 1 0 .T. .T. Indexes in use TagName Relations in use 4: NUM RddName: DBFCDX ============================== RecNo RecCount BOF EOF 1 1194 .F. .F. Indexes in use TagName Relations in use 5: LTS RddName: DBFCDX ============================== RecNo RecCount BOF EOF 186 186 .F. .F. Indexes in use TagName Relations in use 6: FUN RddName: DBFCDX ============================== RecNo RecCount BOF EOF 580 1998 .F. .F. Indexes in use TagName => fun->matricula FUN Relations in use 7: CAD RddName: DBFCDX ============================== RecNo RecCount BOF EOF 1 1996 .F. .F. Indexes in use TagName => cad->matricula CAD Relations in use 8: TAB RddName: DBFCDX ============================== RecNo RecCount BOF EOF 1 763 .F. .F. Indexes in use TagName => tab->cod TAB Relations in use 9: ERR RddName: DBFCDX ============================== RecNo RecCount BOF EOF 1 0 .T. .T. Indexes in use TagName Relations in use 10: BIN RddName: DBFCDX ============================== RecNo RecCount BOF EOF 3319 3318 .F. .T. Indexes in use TagName Relations in use 11: LHO RddName: DBFCDX ============================== RecNo RecCount BOF EOF 1 16 .F. .F. Indexes in use TagName Relations in use 12: => CON RddName: DBFCDX ============================== RecNo RecCount BOF EOF 1 8 .F. .F. Indexes in use TagName => con->histor HISTOR Relations in use 13: PAR RddName: DBFCDX ============================== RecNo RecCount BOF EOF 1 0 .T. .T. Indexes in use TagName Relations in use 14: IND RddName: DBFCDX ============================== RecNo RecCount BOF EOF 1 5 .F. .F. Indexes in use TagName Relations in use 15: MEM RddName: DBFCDX ============================== RecNo RecCount BOF EOF 1 1 .F. .F. Indexes in use TagName Relations in use 16: CACF RddName: DBFCDX ============================== RecNo RecCount BOF EOF 1 9 .F. .F. Indexes in use TagName Relations in use Classes in use: =============== 1 ERROR 2 HASHENTRY 3 HBCLASS 4 HBOBJECT 5 TINI 6 TFONT 7 TWINDOW 8 TCONTROL 9 TICON 10 TBRUSH 11 TMENU 12 TREG32 13 TMENUITEM 14 TBAR 15 TRECT 16 TBTNBMP 17 TMSGBAR 18 TMSGITEM 19 TTIMER 20 TBITMAP 21 TDIALOG 22 TGET 23 GET 24 TCLIPGET 25 TBUTTON 26 TWBROWSE 27 TSCROLLBAR 28 TRADMENU 29 TRADIO 30 TCHECKBOX 31 TSAY 32 TMETER 33 TOLEAUTO 34 TSTRUCT Memory Analysis =============== 1200 Static variables Dynamic memory consume: Actual Value: 0 bytes Highest Value: 0 bytes

Valeu Kapi, grato por responder

Bom-dia! Não achei bitmaps (pode ser 16x16 ou pouco maior) das fases da lua, para imprimir num calendário Aqui tenho restrições de procura na internet, então se alguém tiver ai agradeço.

Nesse seu exemplo, não seria: dDATA := oFolha:oExcel:Cells(n,2):Value

No meu caso a célula esta formatada no excel para "dd/mm/yy"

Ola, Veja se ajuda, faço assim FOR nCol := 1 TO FCOUNT() if ValType( FieldGet( nCol ) ) = "D" // se for campo data converte p/string oHoja:Cells( nRow, nCol ):Value := dtoc(FieldGet( nCol )) else if ValType( FieldGet( nCol ) ) = "N" // se for campo numérico oHoja:Cells( nRow, 7 ):NumberFormat = "###.##0,00" // FORMATAR numerico else oHoja:Cells( nRow, nCol ):NumberFormat = "@" // FORMATAR TEXTO endif oHoja:Cells( nRow, nCol ):Value := FieldGet( nCol ) // OUTRO FORMATO endif NEXT

Valeu João, muito importante, já havia perdido um .RES, não tinha essa informação. Obrigado pela dica. Abs

Uma dúvida, qual a diferença de arquivo RES e RC, sempre usei RES

Tive algumas dificuldades com atribuições tempos atrás tendo que dar voltas para acertar, e talvez seria esse método a solução. Valew Valdir, compartilhando conhecimento, obrigado. Abraços

Valdir, o que faz esse comando ::Assign()