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

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

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

2^#

發表於 2012-3-4 22:55 | 只看該作者

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

Private Sub CommandButton1_Click()
With ThisWorkbook
f = Replace(Replace(.Name, StrReverse(Val(StrReverse(Replace(.Name, ".xls", "")))), ""), ".xls", "")
fs = Dir(f & "*.xls")
Do Until fs = ""
fs = Dir
i = i + 1
Loop
f = .Path & "\" & f & i + 1 & ".xls"
.SaveCopyAs f
End With
End Sub

複製代碼

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

學海無涯_不恥下問

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

3^#

發表於 2012-3-4 23:33 | 只看該作者

本帖最後由 iceandy6150 於 2012-3-4 23:38 編輯

回復 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日)已存在就不再執行，那就很完美了

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

哈囉~大家好呀

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

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

4^#

發表於 2012-3-5 01:07 | 只看該作者

回復 3# iceandy6150
試試看

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
fs = Dir(ph & k & "*.xls")
Do Until fs = "" '計算同名檔案數量
fs = Dir
x = x + 1
Loop
fs = ph & k & x + 1 & "日.xls"
ThisWorkbook.SaveCopyAs fs
End Sub

複製代碼

學海無涯_不恥下問

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

5^#

發表於 2012-3-5 15:33 | 只看該作者

回復 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日)已存在就不再執行
請問該怎麼做呢?

謝謝

哈囉~大家好呀

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

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

6^#

發表於 2012-3-5 17:45 | 只看該作者

回復 5# iceandy6150

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
p = Day(DateAdd("M", 1, Format(Date, "yyyy/m/1")) - 1)
For j = 2 To p
fs = ph & k & j & "日.xls"
If Dir(fs) = "" Then ThisWorkbook.SaveCopyAs fs
Next
End Sub

複製代碼

學海無涯_不恥下問

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

7^#

發表於 2012-3-5 18:19 | 只看該作者

回復 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

哈囉~大家好呀

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

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

8^#

發表於 2012-3-5 19:03 | 只看該作者

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

學海無涯_不恥下問

帖子: 129
主題: 25
精華: 0
積分: 159
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2011-12-24
最後登錄: 2022-12-12

9^#

發表於 2012-3-5 22:50 | 只看該作者

回復 8# Hsieh

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

感謝再感謝!

哈囉~大家好呀