Find and replace text in excel with specified font name
I'm using Microsoft Excel 12.0 Object Library. My goal is to find text with specified font name and replace with new text.
Microsoft.Office.Interop.Excel.Application xlApp = new Microsoft.Office.Interop.Excel.Application();
xlApp.FindFormat.Font.Name = "Arial";
workSheet.Cells.Replace('a', 'b', Type.Missing, Typ开发者_如何学Ce.Missing, Type.Missing, Type.Missing, xlApp.FindFormat, Type.Missing);
but it does not works.
So how to find string with specified font name and replace with new string?
Thank you!
Im not that fluent with c# here is the vb.net code:
Imports Microsoft.Office.Interop.Excel
Public Class Class1
Sub TEST()
Dim xlapp As New Microsoft.Office.Interop.Excel.Application
xlapp.FindFormat.Font.Name = "Arial"
Dim wb As Microsoft.Office.Interop.Excel.Workbook
wb = xlapp.Workbooks.Open("C:\test.xlsx")
wb.Worksheets("Sheet1").Cells.Replace(What:="*", Replacement:="eee", LookAt:=XlLookAt.xlWhole, _
SearchOrder:=XlSearchOrder.xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=False)
End Sub
End Class
I ran a convertor which spat out C#:
using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using Microsoft.Office.Interop.Excel;
public class Class1
{
public void TEST()
{
Microsoft.Office.Interop.Excel.Application xlapp = new Microsoft.Office.Interop.Excel.Application();
xlapp.FindFormat.Font.Name = "Arial";
Microsoft.Office.Interop.Excel.Workbook wb = default(Microsoft.Office.Interop.Excel.Workbook);
wb = xlapp.Workbooks.Open("C:\\test.xlsx");
wb.Worksheets("Sheet1").Cells.Replace(What: "*", Replacement: "eee", LookAt: XlLookAt.xlWhole, SearchOrder: XlSearchOrder.xlByRows, MatchCase: false, SearchFormat: true, ReplaceFormat: false);
}
}
精彩评论