08-17-2016
01:56 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-17-2016
01:56 AM
Sorry, i've posted under my collegue his account
Hi,
This sample checks if the first cell is bold or not, you can modify change it according to your needs
This is done using COM, so you may check for errors, other open documents and so one before proceeding
ExcelApp = GetObject(,"Excel.Application")
'MsgBox(ExcelApp.activeworkbook.ActiveSheet.cells(1,1).Value)
If ExcelApp.activeworkbook.ActiveSheet.cells(1,1).Font.Bold = True Then
MsgBox("Cell 1,1 is Bold")
Else
MsgBox("Cell 1,1 is not Bold")
End If
If you think this answer fullfilled your needs, improved your knowledge or leads to a solution,
please feel free to "kudos"
please feel free to "kudos"