Excelワークブックのシートの列を取得

excel_table.clj

(ns micro-tools.excel
  (:require [dk.ative.docjure.spreadsheet :as spreadsheet])
  (:import  [org.apache.poi.xssf.usermodel XSSFWorkbook XSSFSheet]
            [java.lang String]))

(defrecord TableInfo [mapping sheet-name])

(defmulti table (fn [info obj] (class obj)))
(defmethod table XSSFSheet [info sheet]
  (->> sheet
       (spreadsheet/select-columns (:mapping info))))
(defmethod table XSSFWorkbook [info workbook]
  (->> workbook
       (spreadsheet/select-sheet (:sheet-name info))
       (table info)))
(defmethod table String [info path]
  (->> path
       (spreadsheet/load-workbook)
       (table info)))

(def table-info
  (TableInfo.
    {:A :first}
    "sheet1"))

(defn run []
  (table 
    table-info
    "test.xlsx"))