Applescript - coping columns in a new worksheet in Excel 2004

Question

Dear all,
I’m new to Applescript and would appreciate a help on the following:
I'm trying to copy in different worksheets of a new Excel 2004 workbook(New _WB.xls) different columns (blocs of text + data) in the same worksheet (lest’s call it file1 of a workbook named Old_WB.xls). The columns are separated by 2 empty rows.
I've searched solutions online with no luck.  Can anyone show me how to code the solution of this problem in Applescript?
Thanks in advance.
Ghan

Answer 1

well, then you want something like so:
tell application "Microsoft Excel"
          open alias "path:to:workbook"
          set x to value of used range of worksheet 1 of workbook 1
end tell
set block to {}
set idx to 1
repeat with thisLine in x
          if thisLine as list = {"*", "", ""} or thisLine as list = {"", "", ""} then
  -- empty line means end of block; make sure some block has been collected then process
                    if block is not {} then
                              set rowCount to count of block
                              tell application "Microsoft Excel"
                                        tell workbook 1
                                                  set nws to make new worksheet at end
                                                  tell nws
                                                            set name to "file" & idx
                                                            set value of range ("A1:C" & rowCount) to block
                                                  end tell
                                        end tell
                              end tell
                              set idx to idx + 1
                              set block to {}
                    end if
                    if thisLine as list = {"*", "", ""} then
  --all done
                              exit repeat
                    end if
          else
                    copy thisLine to end of block
          end if
end repeat
I've used a "*" character o signify the end of data - you'll need to change that to what you use in lines 9 and 25. Be careful that there's nothing else written outside of the data range because the used range command will pick up on it and goof things up.