tell application id "com.microsoft.excel"
　　set wCount to count every workbook
　　if wCount = 0 then return
　　
　　–コピー元のWorksheetを特定
　　tell active workbook
　　　　set aNameList to name of every sheet
　　　　set origSheetName to contents of first item of (choose from list aNameList)
　　end tell
end tell

set aList to getASheetDatAsStringFormat(origSheetName) of me

–現在オープン中のExcel Workbook（書類）中の指定名称のワークシートの内容を新規ワークブックにコピーし、全セルの内容をテキスト形式に変更して内容を取得
on getASheetDatAsStringFormat(origSheetName)
　　tell application id "com.microsoft.excel"
　　　　–コピー元のWorksheetを特定
　　　　tell active workbook –コピー元のワークブック
　　　　　　set wbName to name of it
　　　　end tell
　　　　
　　　　set origSheet to sheet origSheetName of workbook wbName
　　　　
　　　　–コピー先の新規ワークブックを作成してそこに指定ワークシートのデータをフルコピー
　　　　set distSheet to (worksheet 1 of (make new workbook))
　　　　(copy worksheet origSheet before distSheet) –ここでのbefore/after指定に意味はないが、指定しないと構文確認をパスしないので指定
　　　　
　　　　–コピーしたWorksheetのセルのフォーマットをstring valueに変更してデータ取得
　　　　tell active workbook –新規作成してデータをコピーした未保存ワークブック
　　　　　　tell active sheet
　　　　　　　　set number format of used range to "@"
　　　　　　　　set aList to string value of used range –データ取得
　　　　　　end tell
　　　　　　
　　　　　　close without saving –新規作成したワークブックを保存せずに破棄
　　　　end tell
　　end tell
　　
　　return aList
end getASheetDatAsStringFormat