[發問] 如何用按鈕複製檔案?(已解決)

iceandy6150

各位大大好

我有一個檔案，麻辣家族1日.xls，裡面sheet1我放了一個按鈕

希望按下去後，能自動複製自己，並更名為 : 麻辣家族2日.xls

然後此新複製出來的檔案會和原本的檔案放在同一資料夾裡面

(假設原本的檔案在c:\test)


又.....如果此按鈕是放在同資料夾，但另外一個 A.xls裡面，寫法一樣嗎?

謝謝

Hsieh

回復 1# iceandy6150
複製檔案最重要是檔名問題
如果以第一例中文名稱+數值作為檔名
可計算同名稱檔案數量後加上號碼做為新檔案名稱

1. Private Sub CommandButton1_Click()
   
2. With ThisWorkbook
   
3. f = Replace(Replace(.Name, StrReverse(Val(StrReverse(Replace(.Name, ".xls", "")))), ""), ".xls", "")
   
4. fs = Dir(f & "*.xls")
   
5. Do Until fs = ""
   
6. fs = Dir
   
7. i = i + 1
   
8. Loop
   
9. f = .Path & "\" & f & i + 1 & ".xls"
   
10. .SaveCopyAs f
    
11. End With
    
12. End Sub

複製代碼

若執行巨集的檔名與另存的檔案名稱沒有任何規則，可能就要指定檔名再去計算同名不同編號的檔案數量
在另存新檔

iceandy6150

回復 2# Hsieh


    Private Sub CommandButton1_Click()
With ThisWorkbook
f = Replace(Replace(.Name, StrReverse(Val(StrReverse(Replace(.Name, ".xls", "")))), ""), ".xls", "")
                                                '大大，上面這一步驟是??用好多層喔。發現抓到的是   f=麻辣1日
fs = Dir(f & "*.xls")
Do Until fs = ""
fs = Dir
i = i + 1
Loop
f = .Path & "\" & f & i + 1 & ".xls"           '這一步，f=麻辣1日1.xls
.SaveCopyAs f
End With
End Sub

我完整的功能是想要
每月會有一資料夾，資料夾裡面只有 [麻辣1日.xls] 本身
麻辣1日.xls是當範本，裡面東西改好，按下按鈕後
會複製自己，然後產生麻辣2日.xls，麻辣3日.xls......麻辣31日.xls
(我需要2~31日的內容、功能通通跟1日一樣，手動複製貼上要30次，所以想寫程式)

這邊想法如下
i=2 to 31
複製 麻辣1日.xls
更名為  "麻辣" & cstr(i) & "日.xls"
next i

另外是防呆
1日裡面的按鈕會產生2日~31日
2日~31日的檔案是複製1日的，所以任何一日不小心按到的話，會再產生一次2日~31日
若能偵測檔案(2日~31日)已存在就不再執行，那就很完美了


可是我不知道怎麼寫，或是怎麼利用大大的去改
再麻煩一下囉，謝謝

Hsieh

回復 3# iceandy6150
試試看

1. Private Sub CommandButton1_Click()
   
2. On Error Resume Next
   
3. ph = ThisWorkbook.Path & "\"
   
4. f = ThisWorkbook.Name
   
5. i = 1
   
6. Do Until i > Len(f) Or Not IsEmpty(n)
   
7. n = Empty
   
8.    n = CInt(Mid(f, i, 1))
   
9.    If IsEmpty(n) Then k = k & Mid(f, i, 1)
   
10.    Err.Clear
    
11.    i = i + 1
    
12. Loop
    
13. fs = Dir(ph & k & "*.xls")
    
14. Do Until fs = "" '計算同名檔案數量
    
15. fs = Dir
    
16. x = x + 1
    
17. Loop
    
18. fs = ph & k & x + 1 & "日.xls"
    
19. ThisWorkbook.SaveCopyAs fs
    
20. End Sub

複製代碼

iceandy6150

回復 4# Hsieh


    前輩你好
<問題一>
您的程式按下去後，原有麻辣1日.xls不動，會新增麻辣2日.xls
再按一次，會新增3日
可是我想要按下去後會直接新增  麻辣2日.xls~麻辣31日.xls

於是我做了小測試，在您程式最前加了 for j =2 to 5  最後加 Next j  (先用5次試試看)
結果跑出來是 1日(原有的)  2日  4日  7日  11日
請問該怎麼改呢?

<問題二>
防呆
1日裡面的按鈕會產生2日~31日
2日~31日的檔案是複製1日的，所以任何一日不小心按到的話，會再產生一次2日~31日
若能偵測檔案(2日~31日)已存在就不再執行
請問該怎麼做呢?

謝謝

Hsieh

回復 5# iceandy6150

1. Private Sub CommandButton1_Click()
   
2. On Error Resume Next
   
3. ph = ThisWorkbook.Path & "\"
   
4. f = ThisWorkbook.Name
   
5. i = 1
   
6. Do Until i > Len(f) Or Not IsEmpty(n)
   
7. n = Empty
   
8.    n = CInt(Mid(f, i, 1))
   
9.    If IsEmpty(n) Then k = k & Mid(f, i, 1)
   
10.    Err.Clear
    
11.    i = i + 1
    
12. Loop
    
13. p = Day(DateAdd("M", 1, Format(Date, "yyyy/m/1")) - 1)
    
14. For j = 2 To p
    
15. fs = ph & k & j & "日.xls"
    
16. If Dir(fs) = "" Then ThisWorkbook.SaveCopyAs fs
    
17. Next
    
18. End Sub

複製代碼

iceandy6150

回復 6# Hsieh


   感謝超級版主~~可以用了
以下是我對這個程式的瞭解
有不對或不懂的地方，可以請超級版主講解一下，感謝你!

Private Sub CommandButton1_Click()
On Error Resume Next
ph = ThisWorkbook.Path & "\"                  '是抽取檔案的路徑 + \
f = ThisWorkbook.Name                             '是抽取檔案的名稱

i = 1
Do Until i > Len(f) Or Not IsEmpty(n)
n = Empty
   n = CInt(Mid(f, i, 1))
   If IsEmpty(n) Then k = k & Mid(f, i, 1)
   Err.Clear
   i = i + 1
Loop                                                                '這個loop是針對檔名做處理

p = Day(DateAdd("M", 1, Format(Date, "yyyy/m/1")) - 1)
                                                                          '這個P是?????
For j = 2 To p                                               '菜鳥如我，只會用 j = 2 to 31    為什麼用P呢
fs = ph & k & j & "日.xls"                           '設定檔名
If Dir(fs) = "" Then ThisWorkbook.SaveCopyAs fs            '做防呆，沒有同檔名的話就新增，有同檔名就不新增以免覆蓋
Next
End Sub

Hsieh

回復 7# iceandy6150
Day(DateAdd("M", 1, Format(Date, "yyyy/m/1")) - 1)
這可取得這個月的日數
DateAdd("M", 1, Format(Date, "yyyy/m/1")) 得到下個月第一天日期
所以減1就是本月最後一天

iceandy6150

回復 8# Hsieh


    感謝超級版主的講解，又讓小弟學習了不少

    感謝再感謝!