Excel - Check for Text Strikethrough

Scripting Forums AppleScript | Mac OS X
#1

Hi there,

I’m in the process of writing a script that creates folders named by the values of selected cells in Microsoft Excel.
It’s a very simple script, but there is one complexity to the excel documents that are being parsed.
Some of the entries in the excel document are formatted with a strikethrough.
I am looking for a code snippet, or some general guidance on how I can check whether or not an excel value has a strikethrough so that the script can ignore that entry and not make a folder for that value.

Thought process script…

set cellValue to the value of cell 1 of row 1 of myDocument
-- if format strikethrough of cellValue is false then
--      make new folder at selectedLocation with properties{name:cellValue}
-- end if

Thanks for the help,
Jared

#2

You need to look at the font object of the cell, not the value. The font object knows the text properties…

set folderPath to path to desktop as text

tell application "Microsoft Excel"
	tell sheet 1 of workbook 1
		set theCell to cell "A1"
		set cellValue to value of theCell
		set fontObject to font object of theCell
	end tell
	
	if strikethrough of fontObject then
		set isStriken to true
	else
		set isStriken to false
	end if
end tell

if not isStriken then
	tell application "Finder"
		make new folder at folder folderPath with properties {name:cellValue}
	end tell
end if
#3

I appreciate the help.
Thanks

Jared