firstCell = sheetNames[m.ix] secondCell = DATE()&&second line ******************************************* .Range("A1").value = m.firstCell .Range("B1").value = m.secondCell>What help do you need? What isn't working?
>>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) >> >>>>