PJChen

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-8-28 01:22 | 只看該作者

讓巨集另存新檔,以指定的儲存格命名

各位大大好,
這是我錄製的巨集,在執行完後另存新檔,但感覺不太好用,我想改為讓巨集另存新檔,以指定的儲存格命名,
我如何修改以下的巨集程式?
ChDir "P:\BCM\Shipping Doc\PJ_出貨文件"
ActiveWorkbook.SaveAs Filename:= _
      "P:\BCM\Shipping Doc\PJ_出貨文件\CI11-AX for Courier.xls", FileFormat:=xlExcel8, _
      Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
      CreateBackup:=False
例如:儲存格Q5的值="CI11-A8"又儲存格H18的值="PD12345",我想要讓巨集另存新檔時自動儲存
檔名為:"儲存格Q5" for "儲存格H18"=>因為是用在工作上,儲存格的值會一直改變,如何使檔名自動
抓取指定的儲存格呢?
因為我不會寫程式,只能用錄巨集的方式,請在回覆時,用上列錄製好的程式去修改.謝謝.

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

2^#

發表於 2011-8-28 09:38 | 只看該作者

"P:\BCM\Shipping Doc\PJ_出貨文件\" & [Q5] & " for " & [H18] & ".xls"

學海無涯_不恥下問

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2011-8-28 15:59 | 只看該作者

超級版主您好,
我將你幫我修正過的巨集程式貼上去執行巨集後,一切都ok,真是幫了我一個大忙.但因為我有很多不同的巨集,若是我將指定的儲存格替換為其他的儲存格時,有時就會出現一個對話框:"執行階段錯誤 '1004':"...,我不了解為什麼?我想儲存格要指定哪一個應該是可以自主的,但為什麼會有這個情形?版主可以解釋給我嗎?...謝謝

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 2011-8-28 19:01 | 只看該作者

回復 3# PJChen

請確認"P:\BCM\Shipping Doc\PJ_出貨文件\"這個資料夾存在
[Q5] & " for " & [H18] 所組成的字串檔名並未使用過

學海無涯_不恥下問

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2011-8-30 22:35 | 只看該作者

感謝!幫了大忙了!

TOP