helper_method :current_cart

  def current_cart
    @current_cart ||= find_cart
  end

  def find_cart

    cart = Cart.find_by(id: session[:cart_id])

    unless  cart.present?
      cart = Cart.create
    end

    session[:cart_id] = cart.id
    cart
  end

u = User.new 
u.update_attribute(:email => "xxx@xxx.com" , :encrypted_password => "abcde" ) 
u.save 

u = User.new(:email => "xxx@xxx.com", :encrypted_password => "abcde" ) 
u.save 

u = User.new(:email => "xxx@xxx.com", password => "abcde" , password_confirmation => "abcde" ) 
u.save 

*= require bootstrap 

//= require bootstrap

WorkName = Excel.ActiveWorkbook.Name
MsgBox Excel.Workbooks(WorkName).Path

file_path = Excel.Workbooks(WorkName).Path


fs = Dir(file_path & "\*.*")
Do Until fs = ""
r = r + 1
y = 1
Cells(y + r, 2) = fs
fs = Dir
Loop

Dim objsheet As Worksheet


n = UCase(Range("G2"))
m = UCase(Range("G3"))
x = Range("G4")



WorkName = Excel.ActiveWorkbook.Name '此檔案名稱


Excel.Workbooks.Add '開新的workbook

desc = Excel.ActiveWorkbook.Name   '新檔案視窗編號
i = 2
While Windows(WorkName).ActiveSheet.Range("b" & i) <> ""
'    Filename = Windows(WorkName).ActiveSheet.Range("b" & i) & ".xlsx"
    Filename = Windows(WorkName).ActiveSheet.Range("b" & i) & "." & x
    Workbooks.Open Filename:=Excel.Workbooks(WorkName).Path & "\" & Filename    '開啟檔案
    Set objsheet = Windows(Filename).ActiveSheet '切換視窗

     '取消篩選
     ActiveSheet.AutoFilterMode = False


    '選取來源範圍
'     objsheet.Range("A1:AZ500").Select
      objsheet.Range(n & ":" & m).Select

     'copy
     Selection.Copy

    Windows(desc).Activate '切換視窗
    Sheets.Add  '增加活頁
    ActiveSheet.Paste   '貼上
    ActiveSheet.Range("A1").Select  '將選取範圍取消

    With ActiveSheet
        .Rows.RowHeight = 20
    End With

    ActiveSheet.Name = "No_" & (i - 1)


    'ActiveSheet.Name = Windows(WorkName).ActiveSheet.Range("b" & i)     '將活頁名稱改成檔案名稱


    '避免copy太多資料時,要關閉檔案時.會問記憶體的資料是否要保留
    ActiveSheet.Range("A1").Copy

   '將來源檔案關閉

   Workbooks(Filename).Saved = True
   Windows(Filename).Close

    i = i + 1 '讀取下一個檔案名稱
Wend
MsgBox "已將所有檔案匯入各項不同worksheet資料表頁籤中"

Dim a, b, c As Integer '宣告a,b,c為整數

Dim objsheet As Worksheet

Dim sheetname As String '工作表檔名

Dim ispastervalue As String '是否要選擇性貼上值及格式

Source = Excel.ActiveWorkbook.Name '新檔案視窗編號


n = Range("b3")
m = Range("b4")

x = Range("b5")
y = Range("b6")

display_sheetname = UCase(Range("b7"))
display_row_sheetname = UCase(Range("b8"))
insert_page = UCase(Range("b9"))
insert_row = Range("b10")
ispastervalue = UCase(Range("b11"))


 '將之前合併的結果清除
Sheet2.Cells.Delete Shift:=xlUp

z = 1
i = 1

Filename = Range("b" & i) & "." & Range("b2")

FullPath = Excel.Workbooks(Source).Path & "\" & Filename

'檢查檔案是否存在
If Dir(FullPath) = "" Then '檢查檔案是否存在
    MsgBox "檔案:" & FullPath & "不存在，請查看是否有拼錯字"
    Exit Sub
End If


Workbooks.Open Filename:=Excel.Workbooks(Source).Path & "\" & Filename

WorkName = Excel.ActiveWorkbook.Name '此檔案名稱

i = 12

sheetname = Trim(Windows(Source).ActiveSheet.Range("b" & i))


If sheetname = "" Then
   For j = 1 To Sheets.Count

        x = Range("b5")
        y = Range("b6")
       Windows(WorkName).Activate
       Set objsheet = Sheets(j) '切換視窗

       objsheet.Activate

        '讀取來源檔案的X(列數),Y(行數)
        If x = 0 Then
            x = n

            Do While True
                kk = ""
                For l = 1 To 10
                    For k = 1 To 10
                        If IsError(objsheet.Cells(x + l, k)) = False Then
                            kk = kk & objsheet.Cells(x + l, k)
                        End If
                    Next
                Next
                If kk = "" Then Exit Do
                x = x + 1
            Loop
        End If

        If y = 0 Then
              y = m

              Do While True
                  kk = ""
                  For l = 1 To 10
                      For k = 1 To 10
                          If IsError(objsheet.Cells(k, y + l)) = False Then
                              kk = kk & objsheet.Cells(k, y + l)
                          End If
                      Next
                  Next l
                  If kk = "" Then Exit Do
                  y = y + 1
              Loop
        End If

        '選取目的
        Windows(WorkName).Activate




        '選取來源範圍
         objsheet.Range(objsheet.Cells(n, m), objsheet.Cells(x, y)).Select

         'copy
         Selection.Copy

        Windows(Source).Activate

        Sheet2.Activate

        If (display_row_sheetname = "Y") Then
            If display_sheetname = "Y" Then
                Sheet2.Cells(z, 1) = objsheet.Name
                Sheet2.Cells(z, 2) = objsheet.Name
            Else
                Sheet2.Cells(z, 1) = objsheet.Name
            End If
            o = 1
        Else
            o = 0
        End If


        If display_sheetname = "Y" Then
           Sheet2.Cells(z + o, 2).Select
           For k = z To z + x - n + o
              Sheet2.Cells(k, 1) = objsheet.Name
           Next
        Else
           Sheet2.Cells(z + o, 1).Select
        End If

        If (z > 3 And insert_page = "Y") Then
            If display_row_sheetname = "Y" Then
                ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell.Offset(-1, 0)
            Else
                ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
            End If

        End If


        If ispastervalue = "Y" Then
            Sheet2.Activate
            Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
        Else
            ActiveSheet.Paste
        End If


        z = z + x - n + 1 + insert_row + o

       '將來源檔案關閉
       'Windows(Filename).Close

        i = i + 1 '讀取下一個檔案名稱

        Sheet1.Activate

   Next

Else
    While sheetname <> ""

       x = Range("b5")
       y = Range("b6")

       Windows(WorkName).Activate

       '檢查活頁是否存在
       isfind = False
       For Each st In Sheets
           If st.Name = sheetname Then
              isfind = True
              Exit For
           End If
       Next

       If isfind = False Then
           MsgBox "工作表:" & sheetname & "不存在，請查看是否有拼錯字"
           Exit Sub
       End If

       Set objsheet = Sheets(sheetname) '切換視窗

       objsheet.Activate

        '讀取來源檔案的X(列數),Y(行數)
        If x = 0 Then
            x = n

            Do While True
                kk = ""
                For l = 1 To 10
                    For k = 1 To 10
                        If IsError(objsheet.Cells(x + l, k)) = False Then
                            kk = kk & objsheet.Cells(x + l, k)
                        End If
                    Next
                Next
                If kk = "" Then Exit Do
                x = x + 1
            Loop
        End If

        If y = 0 Then
              y = m

              Do While True
                  kk = ""
                  For l = 1 To 10
                      For k = 1 To 10
                          If IsError(objsheet.Cells(k, y + l)) = False Then
                              kk = kk & objsheet.Cells(k, y + l)
                          End If
                      Next
                  Next l
                  If kk = "" Then Exit Do
                  y = y + 1
              Loop
        End If

        '選取目的
        Windows(WorkName).Activate

        '選取來源範圍
         objsheet.Range(objsheet.Cells(n, m), objsheet.Cells(x, y)).Select

         'copy
         Selection.Copy

        Windows(Source).Activate

        Sheet2.Activate

        If (display_row_sheetname = "Y") Then
            If display_sheetname = "Y" Then
                Sheet2.Cells(z, 1) = objsheet.Name
                Sheet2.Cells(z, 2) = objsheet.Name
            Else
                Sheet2.Cells(z, 1) = objsheet.Name
            End If
            o = 1
        Else
            o = 0
        End If


        If display_sheetname = "Y" Then
           Sheet2.Cells(z + o, 2).Select
           For k = z To z + x - n + o
              Sheet2.Cells(k, 1) = objsheet.Name
           Next
        Else
           Sheet2.Cells(z + o, 1).Select
        End If

        If (z > 3 And insert_page = "Y") Then
            If display_row_sheetname = "Y" Then
                ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell.Offset(-1, 0)
            Else
                ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
            End If

        End If

        If ispastervalue = "Y" Then
            Sheet2.Activate
            Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
    xlNone, SkipBlanks:=False, Transpose:=False
        Else
            ActiveSheet.Paste
        End If
         z = z + x - n + 1 + insert_row + o

       '將來源檔案關閉
       'Windows(Filename).Close

        i = i + 1 '讀取下一個檔案名稱

        Sheet1.Activate

        sheetname = Windows(Source).ActiveSheet.Range("b" & i)

    Wend
End If
Windows(Source).Activate
Sheet2.Activate

  With ActiveSheet
  '.Columns.ColumnWidth = .StandardWidth
  .Rows.RowHeight = 20
  End With

Sheet2.Cells(1, 1).Select

'將來源檔案關閉
 Workbooks(Filename).Saved = True
 Windows(WorkName).Close

 MsgBox "合併完畢,請按底下[工作表]切換回設[參數設定]"