返回列表 上一主題 發帖

[發問] 如何另存無參數資料與巨集的檔案,再恢復檔案原狀以便再另存下一個檔案?

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
96  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-8-21 00:00 | 顯示全部帖子
巨集寫在一般模組
Sheets(1).Copy
ActiveWorkbook.SaveAs
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
96  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-8-21 13:25 | 顯示全部帖子
本帖最後由 Hsieh 於 2010-8-21 13:38 編輯

[code]Sub getnewbook()
Application.DisplayAlerts = False
With Sheets("樣板")
   .Copy
   With ActiveWorkbook
    .ActiveSheet.Columns("A:K").Clear
    .SaveAs "E:\1234.xls"
  End With
Application.DisplayAlerts = True
End With
End Sub
測試用.rar (10.78 KB)
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
96  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2010-8-21 13:56 | 顯示全部帖子
回復 5# luhpro


    那就刪除L:Q
存檔關閉
  1. Sub getnewbook()
  2. Application.DisplayAlerts = False
  3. With Sheets("樣板")
  4.    .Copy
  5.    With ActiveWorkbook
  6.     .ActiveSheet.Columns("L:Q").Clear
  7.     .SaveAs "E:\1234.xls"
  8.     .Close
  9.   End With
  10. Application.DisplayAlerts = True
  11. End With
  12. End Sub
複製代碼
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
96  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2010-8-21 15:01 | 顯示全部帖子
本帖最後由 Hsieh 於 2010-8-21 15:03 編輯

回復 7# luhpro


http://gb.twbts.com/index.php/topic,1878.0.html
學海無涯_不恥下問

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題