Newsgroup: it.comp.lang.vo-clipper
Titolo: Buon Natale a tutti e... un aiuto !!!

Cari amici :
Innanzitutto Vi faccio a tutti i miei più sentiti Auguri di Buone Feste !!!
Vorrei approfittare per chidervi se avete avuto esperienze con VO ed EXCEL.
Io dovrei fare in modo che una stampa (con Report Pro)o il risultato di un
filtro (o Query) mi venga riportata in un file EXCEL. 
Come si può fare a leggere i dati e riportarli in celle EXCEL ?
Qualcuno mi può aiutare ?
grazie mille 
Enio Donci
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Innanzitutto Vi faccio a tutti i miei più sentiti Auguri di Buone Feste !!!
Anche a te e a tutti da parte mia.
Al resto purtroppo non so rispondere :-(
-- 
Ignazio GSS© * More than 100 HiRes images in my home page  
http://www.ipuddu.it

Ciao Enio e tantissimi auguri anche a te.
Non so cosa devi fare ma se un file dbf lo rinomini .xls lo apri con excel 
senza altre conversioni.
Forse è banale ma.....
Ciao. Enzo
--------------------------------------------------------------------------------
La mia Cartella di Posta in Arrivo è protetta con SPAMfighter
5600 messaggi contenenti spam sono stati bloccati con successo.
Scarica gratuitamente SPAMfighter! 

 Qualcuno mi puň aiutare ?


pui utilizzare il formato CSV oppure unio script windows
 adattandoti il seguente metodo:
METHOD Test1Excel() CLASS StandardShellWindow
LOCAL aTemp	AS ARRAY
LOCAL i		AS INT
LOCAL x		AS INT
LOCAL xValue	AS USUAL
LOCAL nHandle	AS PTR
*
*
DBUSEAREA(TRUE,'DBFCDX',"\bs32\001\db\Ditte")
aTemp := DBSTRUCT()
DBGOTOP()
FErase(PSZ(WorkDir()+'Temp\'+ALIAS()+'.Xls'))
nHandle := FCreate(WorkDir()+"Temp\Temp.Vbs",0)
FWrite(nHandle,'Dim oExcel'+CRLF)
FWrite(nHandle,'Set oExcel =
WScript.CreateObject("Excel.Application")'+CRLF)
FWrite(nHandle,'oExcel.Visible = TRUE'+CRLF)
FWrite(nHandle,'oExcel.DisplayFullScreen = FALSE'+CRLF)
FWrite(nHandle,'oExcel.WorkBooks.Add'+CRLF)
FWrite(nHandle,''+CRLF)
*
FOR i := 1 TO Len(aTemp)
   FWrite(nHandle,'oExcel.Columns('+NTrim(i)+').ColumnWidth =
'+NTrim(aTemp[i,3]+2)+CRLF)
NEXT
FWrite(nHandle,''+CRLF)
x := 1
FOR i := 1 TO Len(aTemp)
   FWrite(nHandle,'oExcel.Cells(1,'+NTrim(i)+').Value =
"'+aTemp[i,1]+'"'+CRLF)
NEXT
FWrite(nHandle,''+CRLF)
DO WHILE !EOF()
   x++
   FOR i := 1 TO Len(aTemp)
      xValue := FIELDGET(i)
      IF ValType(xValue) == 'C'
         IF ["] $ xValue
            xValue := StrTran(xvalue,["],[ ])
         ENDIF
         IF Left(xValue,1) == '0' .or. Val(Left(xValue,1)) > 0
	         xValue := [']+xValue
         ENDIF
         FWrite(nHandle,'oExcel.Cells('+NTrim(x)+','+NTrim(i)+').Value =
"'+Trim(xValue)+'"'+CRLF)
      ELSEIF ValType(xValue) == 'N'
         FWrite(nHandle,'oExcel.Cells('+NTrim(x)+','+NTrim(i)+').Value =
'+NTrim(xValue)+CRLF)
      ELSEIF ValType(xValue) == 'D'
	    IF Empty(xValue)
    		FWrite(nHandle,'oExcel.Cells('+NTrim(x)+','+NTrim(i)+').Value =
""'+CRLF)
 		ELSE
	        FWrite(nHandle,'oExcel.Cells('+NTrim(x)+','+NTrim(i)+').Value =
'+DToC(xValue)+CRLF)
	  	ENDIF
      ELSE
         FWrite(nHandle,'oExcel.Cells('+NTrim(x)+','+NTrim(i)+').Value =
""'+CRLF)
      ENDIF
   NEXT
   FWrite(nHandle,''+CRLF)
   DBSKIP()
ENDDO
FWrite(nHandle,''+CRLF)
FWrite(nHandle,'oExcel.AlertBeforeOverwriting = FALSE'+CRLF)
FWrite(nHandle,'oExcel.ActiveWorkBook.SaveAs("'+WorkDir()+'Temp\Ditte.xls")'+CRLF)
FWrite(nHandle,'oExcel.Quit()'+CRLF)
FClose(nHandle)
DBCLOSEAREA(ALIAS())
*
ShellExecute(NULL,String2Psz("Open"),String2Psz(WorkDir()+"Temp\Temp.Vbs"),String2Psz(''),NULL,SW_NORMAL)
*ShellExecute(NULL,String2Psz("Open"),String2Psz(WorkDir()+"Temp\"+ALIAS()+".Xls"),String2Psz(''),NULL,SW_NORMAL)
*
RETURN
