Buscar y Reemplazar en la Hoja de Cálculo
Contents
[
Hide
]
Cuando hacemos clic en el botón Buscar, se ejecuta el siguiente código:
if (TXBX_Find.Text != "")
{
workbook = new Workbook(FOD_OpenFile.FileName);
FindOptions Opts = new FindOptions();
Opts.LookInType = LookInType.Values;
Opts.LookAtType = LookAtType.Contains;
string found = "";
Cell cell = null;
foreach (Worksheet sheet in workbook.Worksheets)
{
found += Environment.NewLine + "Sheet: " + sheet.Name + ":";
do
{
cell = sheet.Cells.Find(TXBX_Find.Text, cell, Opts);
if (cell != null)
found += cell.Name + ",";
}
while (cell != null);
}
LBL_FindResults.Text = found;
}
Al hacer clic en el botón Reemplazar, se ejecuta el siguiente código:
if (TXBX_Find.Text != "" && TXBX_Replace.Text!="")
{
workbook = new Workbook(FOD_OpenFile.FileName);
FindOptions Opts = new FindOptions();
Opts.LookInType = LookInType.Values;
Opts.LookAtType = LookAtType.Contains;
string found = "";
Cell cell = null;
foreach (Worksheet sheet in workbook.Worksheets)
{
do
{
cell = sheet.Cells.Find(TXBX_Find.Text, cell, Opts);
if (cell != null)
{
string celltext = cell.Value.ToString();
celltext = celltext.Replace(TXBX_Find.Text, TXBX_Replace.Text);
cell.PutValue(celltext);
}
}
while (cell != null);
}
LBL_FindResults.Text = "Replaced All Existing Values, Save the file now";
}