sky 發問時間: 電腦與網際網路軟體 · 10 年前

VBA 新建一個檔案 將sheet移至新的檔案後存儲

目前已開啟book1,book1裡面有sheet1~sheet6

1、我要新建一個"book",將新建的book名稱改為"管理"

2、將"book1"裡面的sheet4~6移動到"管理"裡

即是"book1"裡有sheet1~3,"管理"裡有sheet4~6

3、儲存"管理"到與"book1"相同的路徑下

檔案名稱為"管理 2011_01_25 23_40" (管理+日期+時間)

即原本資料夾只有"book1",現在會有"book1"及"管理....."2個檔案

麻煩大大幫我解答了 謝謝...

已更新項目:

Today_Year = Year(Date)

Today_month = Month(Date)

Today_date = Day(Date)

PH = ActiveWorkbook.Path

Workbooks.Add

ActiveWorkbook.SaveAs PH & "\" & "NEWBOOK" & "-" & Today_Year & Today_month & Today_date & ".xls"

2 個已更新項目:

我已經會把新建的檔案在同一個路徑存檔成"newbook+日期.xls"

請問一下怎麼把book1的sheet4~6移至"newbook+日期.xls"裡

2 個解答

評分
  • 夏日
    Lv 5
    10 年前
    最佳解答

    '試試看。

    Sub Macro1()

    Worksheets(Array("sheet4", "sheet5", "sheet6")).Move

    ActiveWorkbook.SaveAs ThisWorkbook.Path & Format(Now, "/管理yyyy_MM_dd_hh_mm")

    ActiveWorkbook.Close

    ActiveWorkbook.Save

    End Sub

    2011-01-27 16:33:30 補充:

    '試試看。

    Sub Macro1()

    Worksheets(Array("sheet4", "sheet5", "sheet6")).Move

    ActiveWorkbook.SaveAs ThisWorkbook.Path & Format(Now, "/管理yyyy_MM_dd_hh_mm")

    ActiveWorkbook.Close

    ActiveWorkbook.Save

    End Sub

  • 10 年前

    = = 我終於弄懂了

    抱歉還問了一堆笨問題

    另外請你在回答那邊解答,我才能給你點數 謝謝你喔.

還有問題?馬上發問,尋求解答。