I’ve got a spreadsheet full of hyperlinks that i’d like to access.
This script gives me the error “can’t make allcells to integer”
any ideas on how to fix this?
set theCellGroupADay1 to ["I3", "I4", "I5", "I6", "I7", "I8", "I9", "I10", "I11", "I12"]
set theCellGroupADay2 to ["J3", "J4", "J5", "J6", "J7", "J8", "J9", "J10", "J11", "J12"]
set theCellGroupADay3 to ["K3", "K4", "K5", "K6", "K7", "K8", "K9", "K10", "K11", "K12"]
set theCellGroupADay4 to ["L3", "L4", "L5", "L6", "L7", "L8", "L9", "L10", "L11", "L12"]
set theCellGroupADay5 to ["M3", "M4", "M5", "M6", "M7", "M8", "M9", "M10", "M11", "M12"]
set theCellGroupADay6 to ["N3", "N4", "N5", "N6", "N7", "N8", "N9", "N10", "N11", "N12"]
set theCellGroupADay7 to ["O3", "O4", "O5", "O6", "O7", "O8", "O9", "O10", "O11", "O12"]
set theCellGroupADay8 to ["P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12"]
set theCellGroupADay9 to ["Q3", "Q4", "Q5", "Q6", "Q7", "Q8", "Q9", "Q10", "Q11", "Q12"]
set theCellGroupADay10 to ["R3", "R4", "R5", "R6", "R7", "R8", "R9", "R10", "R11", "R12"]
set theCellGroupBDay1 to ["I13", "I14", "I15", "I16", "I17", "I18", "I19", "I20", "I21", "I22"]
set theCellGroupBDay2 to ["J13", "J14", "J15", "J16", "J17", "J18", "J19", "J20", "J21", "J22"]
set theCellGroupBDay3 to ["K13", "K14", "K15", "K16", "K17", "K18", "K19", "K20", "K21", "K22"]
set theCellGroupBDay4 to ["L13", "L14", "L15", "L16", "L17", "L18", "L19", "L20", "L21", "L22"]
set theCellGroupBDay5 to ["M13", "M14", "M15", "M16", "M17", "M18", "M19", "M20", "M21", "M22"]
set theCellGroupBDay6 to ["N13", "N14", "N15", "N16", "N17", "N18", "N19", "N20", "N21", "N22"]
set theCellGroupBDay7 to ["O13", "O14", "O15", "O16", "O17", "O18", "O19", "O20", "O21", "O22"]
set theCellGroupBDay8 to ["P13", "P14", "P15", "P16", "P17", "P18", "P19", "P20", "P21", "P22"]
set theCellGroupBDay9 to ["Q13", "Q14", "Q15", "Q16", "Q17", "Q18", "Q19", "Q20", "Q21", "Q22"]
set theCellGroupBDay10 to ["R13", "R14", "R15", "R16", "R17", "R18", "R19", "R20", "R21", "R22"]
set theCellGroupCDay1 to ["I23", "I24", "I25", "I26", "I27", "I28", "I29", "I30", "I31", "I32"]
set theCellGroupCDay2 to ["J23", "J24", "J25", "J26", "J27", "J28", "J29", "J30", "J31", "J32"]
set theCellGroupCDay3 to ["K23", "K24", "K25", "K26", "K27", "K28", "K29", "K30", "K31", "K32"]
set theCellGroupCDay4 to ["L23", "L24", "L25", "L26", "L27", "L28", "L29", "L30", "L31", "L32"]
set theCellGroupCDay5 to ["M23", "M24", "M25", "M26", "M27", "M28", "M29", "M30", "M31", "M32"]
set theCellGroupCDay6 to ["N23", "N24", "N25", "N26", "N27", "N28", "N29", "N30", "N31", "N32"]
set theCellGroupCDay7 to ["O23", "O24", "O25", "O26", "O27", "O28", "O29", "O30", "O31", "O32"]
set theCellGroupCDay8 to ["P23", "P24", "P25", "P26", "P27", "P28", "P29", "P30", "P31", "P32"]
set theCellGroupCDay9 to ["Q23", "Q24", "Q25", "Q26", "Q27", "Q28", "Q29", "Q30", "Q31", "Q32"]
set theCellGroupCDay10 to ["R23", "R24", "R25", "R26", "R27", "R28", "R29", "R30", "R31", "R32"]
set allcells to [theCellGroupADay1, theCellGroupADay2, theCellGroupADay3, theCellGroupADay4, theCellGroupADay5, theCellGroupADay6, theCellGroupADay7, theCellGroupADay8, theCellGroupADay9, theCellGroupADay10, theCellGroupBDay1, theCellGroupBDay2, theCellGroupBDay3, theCellGroupBDay4, theCellGroupBDay5, theCellGroupBDay6, theCellGroupBDay7, theCellGroupBDay8, theCellGroupBDay9, theCellGroupBDay10, theCellGroupCDay1, theCellGroupCDay2, theCellGroupCDay3, theCellGroupCDay4, theCellGroupCDay5, theCellGroupCDay6, theCellGroupCDay7, theCellGroupCDay8, theCellGroupCDay9, theCellGroupCDay10]
repeat with i from 1 to count item allcells
repeat with q from 1 to count item i of allcells
tell application "Microsoft Excel" to activate
tell application "Microsoft Excel" to select range (item q of item i of allcells) of active sheet
tell application "System Events" to key down (command)
tell application "System Events" to keystroke "c"
tell application "System Events" to key up (command)
tell application "Google Chrome" to activate
tell application "System Events" to key down (command)
tell application "System Events" to keystroke "l"
tell application "System Events" to keystroke "v"
tell application "System Events" to key up (command)
tell application "System Events" to keystroke return
end repeat
end repeat