>firstCell = sheetNames[m.ix]
>secondCell = DATE()&&second line 
>*******************************************
>.Range("A1").value = m.firstCell
>.Range("B1").value = m.secondCell 
>
>

>LOCAL oExcel,ix,lcCursorName
>LOCAL ARRAY sheetNames[18]
>Select *;
>    from ('NAMI22 ') WHERE office=1;
>  into Cursor crsToExcel1 ;
>  nofilter
>
>Select *;
>    from ('NAMI22 ') WHERE office=2;
>  into Cursor crsToExcel2 ;
>  nofilter
>  
>  Select *;
>    from ('NAMI22 ') WHERE office=3;
>  into Cursor crsToExcel3 ;
>  nofilter
>
>Select *;
>    from ('NAMI22 ') WHERE office=5 ;
>  into Cursor crsToExcel4 ;
>  nofilter
>  
>  Select *;
>    from ('NAMI22 ') WHERE office=6 ;
>  into Cursor crsToExcel5 ;
>  nofilter
>
>Select *;
>    from ('NAMI22 ') WHERE office=7 ;
>  into Cursor crsToExcel6 ;
>  nofilter
>  
>  Select *;
>    from ('NAMI22 ') WHERE office=8 ;
>  into Cursor crsToExcel7 ;
>  nofilter
>
>Select *;
>    from ('NAMI22 ') WHERE office=9 ;
>  into Cursor crsToExcel8 ;
>  nofilter
>  *************************
>  
>  Select *;
>    from ('NAMI22 ') WHERE office=10 ;
>  into Cursor crsToExcel9 ;
>  nofilter
>
>Select *;
>    from ('NAMI22 ') WHERE office=13 ;
>  into Cursor crsToExcel10 ;
>  nofilter
>  
> Select *;
>from ('NAMI22 ') WHERE office=16 ;
>into Cursor crsToExcel11 ;&&error message
>nofilter
>
>Select *;
>from ('NAMI22 ') WHERE office=17  ;
>into Cursor crsToExcel12 ;
>nofilter
>
>Select *;
>from ('NAMI22 ') WHERE office=19  ;
>into Cursor crsToExcel13 ;
>nofilter
>
>Select *;
>from ('NAMI22 ') WHERE office=20  ;
>into Cursor crsToExcel14 ;
>nofilter
>
>Select *;
>from ('NAMI22 ') WHERE office=40  ;
>into Cursor crsToExcel15 ;
>nofilter
>
>Select *;
>from ('NAMI22 ') WHERE office=41  ;
>into Cursor crsToExcel16 ;
>nofilter
>
>Select *;
>from ('NAMI22 ') WHERE office=42  ;
>into Cursor crsToExcel17 ;
>nofilter
>
>Select *;
>from ('NAMI22 ') WHERE office=43  ;
>into Cursor crsToExcel18 ;
>nofilter
>
>  ************************
>sheetNames[1] = "SSSSS"
>sheetNames[2] = "DDDDD"
>sheetNames[3] = "GGGG"
>sheetNames[4] = "HHHH"
>sheetNames[5] = "HHHHHHHH"
>sheetNames[6] = "RRRRRR"
>sheetNames[7] = "GFHÉ"
>sheetNames[8] = "GHJK"
>sheetNames[9] = "DDDDD"
>sheetNames[10] = "ZDXVBZXC"
>sheetNames[11] = "ZZXDZFD"
>sheetNames[12] = "ZSGZSFZFDSG"
>sheetNames[13] = "SDZSZSZSGZS"
>sheetNames[14] = "DZGZDFGZFZF"
>sheetNames[15] = "ZDFGZDFZFDSGZDFG"
>sheetNames[16] = "XXCZXCZ"
>sheetNames[17] = "FDFDFDFDFD"
>sheetNames[18] = "GFGFGFGFGFGFGF"
>
>oExcel = Createobject("Excel.Application")
>With oExcel
>  .DisplayAlerts = .F.
>  .Workbooks.Add
>  .Visible = .T.
>  With .ActiveWorkBook
>    For ix = 1 To 18
>      lcCursorName = 'crsToExcel'+Ltrim(Str(m.ix))
>      If .sheets.Count < m.ix
>        .sheets.Add(,.sheets(.sheets.Count)) && Add new sheet
>      ENDIF
>      .WorkSheets(m.ix).Name = sheetNames[m.ix]
>      VFP2Excel(m.lcCursorName, .WorkSheets(m.ix),"A1" )
>    ENDFOR
>    .WorkSheets(1).Activate
>  Endwith
>Endwith
>
>Function VFP2Excel
>  Lparameters tcCursorName, toSheet, tcTargetRange
>  tcCursorName = Iif(Empty(m.tcCursorName),Alias(),m.tcCursorName)
>  tcTargetRange = Iif(Empty(m.tcTargetRange),'A1',m.tcTargetRange)
>  Local loConn As AdoDB.Connection, loRS As AdoDB.Recordset,;
>    lcTempRs, lcTemp, oExcel
>  lcTemp = Forcepath(Sys(2015)+'.dbf',Sys(2023))
>  lcTempRs = Forcepath(Sys(2015)+'.rst',Sys(2023))
>  Select (m.tcCursorName)
>  Copy To (m.lcTemp)
>  loConn = Createobject("Adodb.connection")
>  loConn.ConnectionString = "Provider=VFPOLEDB;Data Source="+Sys(2023)
>  loConn.Open()
>  loRS = loConn.Execute("select * from "+m.lcTemp)
>  loRS.Save(m.lcTempRs)
>  loRS.Close
>  loConn.Close
>  Erase (m.lcTemp)
>  loRS.Open(m.lcTempRs)
>
>  With toSheet
>    .QueryTables.Add( loRS, .Range(m.tcTargetRange)).Refresh()
>  Endwith
>  loRS.Close
>  Erase (m.lcTempRs)
>
>