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

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-8-21 00:00 | 只看該作者

巨集寫在一般模組
Sheets(1).Copy
ActiveWorkbook.SaveAs

學海無涯_不恥下問

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

3^#

發表於 2010-8-21 13:01 | 只看該作者

巨集寫在一般模組
Sheets(1).Copy
ActiveWorkbook.SaveAs
Hsieh 發表於 2010-8-21 00:00

試過不行呢.

Sub aa()
With Sheets("樣板").[L1

34]
.Copy
.Clear

ActiveWorkbook.SaveAs Filename:="1234.xls", FileFormat:=xlExcel4

.[L1].PasteSpecial
End With
End Sub

Clear 執行後剪貼簿上的資料就消失了,
似乎會記憶它的資料是從哪裡貼過來的,
而來源資料一旦被清掉後它的資料也會被同步清掉?

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 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)

學海無涯_不恥下問

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

5^#

發表於 2010-8-21 13:49 | 只看該作者

回復 4# Hsieh

可能是我的敘述有不清楚的地方,
左邊 A ~ E 欄的資料是要另存到一個 (沒有巨集與沒有右邊 L ~ Q 欄這些參數資料的) 檔案,
存完後畫面回到沒有任何修改的狀態 (也就是有 L ~ Q 欄這些參數資料與巨集程式)
不知這樣的需求是否可以達到呢?

謝謝 Hsieh 大大...

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2010-8-21 13:56 | 只看該作者

回復 5# luhpro

那就刪除L:Q
存檔關閉

Sub getnewbook()
Application.DisplayAlerts = False
With Sheets("樣板")
.Copy
With ActiveWorkbook
.ActiveSheet.Columns("L:Q").Clear
.SaveAs "E:\1234.xls"
.Close
End With
Application.DisplayAlerts = True
End With
End Sub

複製代碼

學海無涯_不恥下問

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

7^#

發表於 2010-8-21 14:16 | 只看該作者

本帖最後由 luhpro 於 2010-8-23 20:28 編輯

回復 6# Hsieh

太漂亮了.^^
這就是我想要的結果.

試過很多種方式,
說明裡的例子一個一個試了很多都失敗.
原來只要先 Copy 過,
於 SaveAs 過後之前修改過的狀態自己就會還原了,
這在 Excel VBA 的說明裡似乎根本找不到相關敘述.

試過後裡面我只改了一行
.SaveAs Filename:="D:\1234.xls", FileFormat:=xlExcel4
就可以完全達到此目的了.

另外首篇中所問的 Excel 2000 Professional 的說明裡雖然有 DataObject 的範例,
但實際套用Excel卻會說不認識這個資料型態,
不知道是不是還要開啟什麼項目它才能正常使用此資料形態呢?

謝謝 Hsieh 大大...

回復 8# Hsieh
原來在舊網站內有資料,
曾經嘗試去舊網站中找一些資訊,
但似乎沒辦法做全站或單板文章的搜尋,
只能一頁一頁逐一尋找找到眼花花...

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2010-8-21 15:01 | 只看該作者

本帖最後由 Hsieh 於 2010-8-21 15:03 編輯

回復 7# luhpro

http://gb.twbts.com/index.php/topic,1878.0.html

學海無涯_不恥下問