[發問] 新增一個檔案的語法

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

14^#

發表於 2019-4-16 04:42 | 只看該作者

回復 13# zheng211016
zheng211016大大:您好!
您太謙虛了^^
謝謝您的詳細註解，使我更瞭解程式碼的意涵。

zheng211016

　暱稱: zheng逸

中學生 Rank: 2

帖子: 98
主題: 15
精華: 0
積分: 163
點名: 0
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2017-5-30
最後登錄: 2024-1-7

13^#

發表於 2019-4-15 21:45 | 只看該作者

本帖最後由 zheng211016 於 2019-4-15 21:47 編輯

回復 8# ziv976688

我在拆字的部分設定錯誤所以偵錯會出現另存檔案失敗
幸好有版大出手幫忙
那我就協助註解的部分

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

12^#

發表於 2019-4-14 18:09 | 只看該作者

回復 11# 准提部林

版主:您好!
感謝解題。
測試OK如需求。
您太厲害了，竟能任選1個或2個或...或全選，
這樣我就不用作6個主檔了。
謝謝您的耐心指導~感恩^^

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

11^#

發表於 2019-4-14 17:59 | 只看該作者

回復 10# ziv976688

Sub 新增檔案()
Dim S, P$, T$, xB As Workbook, N%
P = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each S In Array("均值", "尾數", "合數", "生肖", "五行", "八卦")
T = Dir(P & "今日總表(" & S & "排序)-*_*-(????-??-??).xls")
If T = "" Then GoTo 101
T = Left(T, 11) & Left(Right(T, 16), 12) & "_統計.xls"
Sheets("統計").Copy
With ActiveWorkbook: .SaveAs Filename:=P & T, CreateBackup:=False: .Close: End With
N = N + 1
101: Next
If N > 0 Then MsgBox "共建立 " & N & " 個新檔案! "
End Sub

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

10^#

發表於 2019-4-14 17:25 | 只看該作者

本帖最後由 ziv976688 於 2019-4-14 17:27 編輯

回復 9# 准提部林
准提版主︰您好!
感謝解題^^
測試結果︰執行OK!
謝謝您!
=================================
准提版主︰
您誤會了~只要手動更改檔案名稱就能解決的工作，我怎麼好意思上來麻煩各位^^"
因為我總共有6種名稱不同但格式相同的檔案名稱︰
今日總表(均值排序)-1_4-(2019-04-12)，
今日總表(尾數排序)-1_4-(2019-04-12)，
今日總表(合數排序)-1_4-(2019-04-12)，
今日總表(生肖排序)-1_4-(2019-04-12)，
今日總表(五行排序)-1_4-(2019-04-12)，
今日總表(八卦排序)-1_4-(2019-04-12)，
所以我的需求是希望能點執行鍵後，能自動選取與主檔同一個資料夾內的另任一個(或第1個)檔案的名稱之【前段11個字(含符號)及後段12個字(含符號)】 & "_統計"，作為產生新檔案的名稱。
PS︰要執行的時候，同一個資料夾內，我只會放置"執行主檔"和"單種名稱"的檔案。

能否煩請版主再次指導!
謝謝您!

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

9^#

發表於 2019-4-14 16:26 | 只看該作者

Sub 新增檔案()
Dim P$, T$, xB As Workbook
P = ThisWorkbook.Path & "\"
T = Dir(P & "今日總表(均值排序)-*_*-(????-??-??).xls")
If T = "" Then Exit Sub
T = "今日總表(均值排序)-" & Split(Right(T, 16), ".xls")(0) & "_統計.xls"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("統計").Copy
With ActiveWorkbook: .SaveAs Filename:=P & T, CreateBackup:=False: .Close: End With
MsgBox "新檔案建立完成! "
End Sub

工作表內容, 在主檔中增建一張"統計"工作表樣本:

新增檔案的語法(主檔).rar (9.16 KB)

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

8^#

發表於 2019-4-14 14:51 | 只看該作者

回復 7# zheng211016
不好意思，狀況還是樣^^"
點"建立統計檔案"鍵後，馬上跳出下列畫面

點偵錯~跳出下列畫面

另外點"選擇檔案"鍵後，最後的畫面狀況與 6#相同。

不知問題出在哪裡?
是不是版本的問題?我只有MS2003版，沒有辦法以2007或2010測試^^"
煩請再指正!
謝謝您!

zheng211016

　暱稱: zheng逸

中學生 Rank: 2

帖子: 98
主題: 15
精華: 0
積分: 163
點名: 0
作業系統: WIN7
軟體版本: office2010
閱讀權限: 20
性別: 男
註冊時間: 2017-5-30
最後登錄: 2024-1-7

7^#

發表於 2019-4-14 13:42 | 只看該作者

回復 6# ziv976688

了解我提供你兩個按鈕
選擇檔案 : 是讓你自行選擇檔案他會依照你選擇的檔案位置去新建1個統計exel 位於同一目錄底下
建立統計檔案 : 就是你想要的結果在主檔的檔案位置新建統計excel

主檔.rar (60.17 KB)

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

6^#

發表於 2019-4-14 08:22 | 只看該作者

本帖最後由 ziv976688 於 2019-4-14 08:33 編輯

回復 5# zheng211016
操作步驟如下:

請參考!
是否有誤~請指正!
謝謝您!

========================================
本題最主要的目的是希望點執行鍵後，能自動選取與主檔同一個資料夾內的另任一個(或第1個)檔案的名稱之【前段11個字(含符號)及後段12個字(含符號)】 & "_統計"，
作為產生新檔案的名稱。
可否請您指導?
謝謝您!