Right now I'm copy and pasting between Excel and specified places in a Pages document. For instance, I'll copy cell B7 and find "B7_Value" in Pages and replace it with the copied value. Here's an example of what I'm working with so far:
tell application "Microsoft Excel" tell active workbook activate object worksheet "Page 1" set var_B7 to string value of range "B7" of active sheet end tell end tell set var_B7 to replaceText(var_visits, " ", "") tell application "Pages" activate tell application "System Events" delay 0.5 keystroke "f" using command down set the clipboard to "B7_Value" keystroke "v" using command down delay 0.2 keystroke tab delay 0.2 set the clipboard to var_B7 keystroke "v" using command down delay 0.2 keystroke tab delay 0.2 keystroke space delay 0.2 key code 53 -- escape delay 0.5 end tell end tell on replaceText(theString, fString, rString) set current_Delimiters to text item delimiters of AppleScript set AppleScript's text item delimiters to fString set sList to every text item of theString set AppleScript's text item delimiters to rString set newString to sList as string set AppleScript's text item delimiters to current_Delimiters return newString end replaceText
Now, I need to expand this to copy a range of cells and populate chart data in Pages. Any help is very much appreciated.