EXCEL以巨集的方式另存新檔,其檔名如何與某儲存格相同 想要以巨集的方式自動另存新檔,而檔名為此工作表之特定儲存格內之內容產生多個檔案 如 儲存格A1至A3 可自動產生3個檔案出來 ,另可否做利用INPUTBOX 輸入儲存格範圍另存新檔 請問如何撰寫程式碼.謝謝?
回答 (2)
2016-05-15 1:41 pm
Sub 另存新檔()
Application.DisplayAlerts = False
xn = InputBox("請輸入欄位A.B.C.......")
yn = InputBox("請輸入開始列號")
zn = InputBox("請輸入結束列號")
For i = yn To zn
newname = Range(xn & i)
folda = ThisWorkbook.Path
fname = folda & "\" & newname & ".xlsm"
ActiveWorkbook.SaveAs fname
Next
End Sub
Application.DisplayAlerts = False
xn = InputBox("請輸入欄位A.B.C.......")
yn = InputBox("請輸入開始列號")
zn = InputBox("請輸入結束列號")
For i = yn To zn
newname = Range(xn & i)
folda = ThisWorkbook.Path
fname = folda & "\" & newname & ".xlsm"
ActiveWorkbook.SaveAs fname
Next
End Sub
2016-05-15 6:13 pm
謝謝你的解答 另我想加入以下的功能 應如何撰寫程式碼
1)我想每一個產生出來的檔案 其中一格儲存格顯示其檔名 如c:\aaa.xls , 儲存格顯示 aaa
2)我想每一個產生出來的檔案 sheet name ,由sheet 2 開始按儲存格所對應的值更改 如檔案由按a1 至 a3 儲存格產生了 a1 , a2 , a3 三個檔案 , sheet name 由 sheet 2 (sheet 1 不用改) 按所對應的 b1 , b2, b3 的儲存格的值後加上 "p1","p2".....去更改
萬分感謝!!
1)我想每一個產生出來的檔案 其中一格儲存格顯示其檔名 如c:\aaa.xls , 儲存格顯示 aaa
2)我想每一個產生出來的檔案 sheet name ,由sheet 2 開始按儲存格所對應的值更改 如檔案由按a1 至 a3 儲存格產生了 a1 , a2 , a3 三個檔案 , sheet name 由 sheet 2 (sheet 1 不用改) 按所對應的 b1 , b2, b3 的儲存格的值後加上 "p1","p2".....去更改
萬分感謝!!
收錄日期: 2021-05-03 13:45:51
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20160514103907AAv2PZi