|
分類:[VB.NET/VB2005 以降]
VB.NETからエクセル操作について質問です。
BookにはSheetのCountが2だったり3だったりします。
その各Sheetに対して、特定の文字列を置換したいのですが
Sheetに対してどの様に（全文検索？Rangeの指定でも良いのですが）掛ければ
該当の文字列を検索できますか？
現状のコードは下記ですが、シート内にFの文字列があるセルのアドレスを
取得できません・・・。
お手数ですが、教えて下さい。
For index = 0 To excelpath.Count
If File.Exists(excelpath(index)) Then
xlBooks = DirectCast((xlapp.Workbooks.Open(excelpath(index), Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, _
Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing)), Excel.Workbook)
xlsheets = xlBooks.Worksheets
For forIndex = 1 To xlsheets.Count
xlsheet = DirectCast(xlsheets(forIndex), Excel.Worksheet)
→ _range = xlsheet.Cells.Find(What:="F", LookIn:=Excel.XlFindLookIn.xlValues, LookAt:=Excel.XlLookAt.xlWhole, MatchCase:=True, MatchByte:=True)
If Not _range Is Nothing Then
firstAddress = _range.Address
Do
Loop While Not _range Is Nothing And _range.Address <> firstAddress
End If
Next
End If
Next
|