Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Can not delete one row in Excel
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01127631
Message ID:
01127643
Vues:
9
>
oSheet.Rows(lnRow).Delete()
>
Even this didn't work! I don't really understand, why! BTW, for Columns would it be Columns(m.lnCols).Delete ?

Here is my code where loSheet is defined before with loSheet construct:
*-- Find total # of used rows
				for lnRow = 1 to m.lnRows
					llValFound = .f.
					for lnCol = 1 to m.lnCols
						lcCellValue = .Cells(m.lnRow,m.lnCol).value
						if not (empty(m.lcCellValue) or isnull(m.lcCellValue))
							llValFound = .t.
							exit
						endif
					next
					if !m.llValFound
						.Rows(m.lnRow).Delete()						
						lnFinalRows = m.lnFinalRows - 1
					endif
				next

				lnRows = m.lnFinalRows &&.UsedRange.rows.count

*-- Find total # of used columns
				for lnCol = 1 to m.lnCols
					llValFound = .f.
					for lnRow = 1 to m.lnRows
						lcCellValue = .Cells(m.lnRow,m.lnCol).value
						if not (empty(m.lcCellValue) or isnull(m.lcCellValue))
							llValFound = .t.
							exit
						endif
					next
					if !llValFound
						.Columns(m.lnCols).delete()
						lnFinalCols = m.lnFinalCols - 1
					endif
				next
At the end of all processes I made Excel visible and I still see this empty row, that should have been deleted.

I'm banging my head on this particular Excel trying to convert it to DBF for the second day in a row :(

Thanks again.
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform