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

　暱稱: zheng逸

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

2^#

發表於 2019-4-13 15:43 | 只看該作者

回復 1# ziv976688

只要選取檔案它就會自動建立一個工作表並存於同一個目錄底下

主程式.rar (37.31 KB)

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

3^#

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

本帖最後由 ziv976688 於 2019-4-13 17:26 編輯

回復 2# zheng211016

主檔.rar (40.68 KB)

zheng211016大大:您好!
感謝解題^^
測試結果︰"統計"工作表無法另成立為如需求名稱的新檔案(偵錯)^^"
請指正!
我的Excel版本是MS2003
謝謝您!

　暱稱: zheng逸

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

4^#

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

回復 3# ziv976688
我測試是正常的唷
你只要選取今日總表(均值排序)-(2019-02-26).xls 這種類型的任何一個檔案都可以成功
或者你把操作過程給我

　暱稱: zheng逸

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

5^#

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

回復 3# ziv976688

我是依照你上面說的固定前後字去抓取命名規則的你可以注意一下是否選取的檔案有誤

帖子: 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個字(含符號)】 & "_統計"，
作為產生新檔案的名稱。
可否請您指導?
謝謝您!

　暱稱: zheng逸

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

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

8^#

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

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

點偵錯~跳出下列畫面

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

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

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

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

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︰要執行的時候，同一個資料夾內，我只會放置"執行主檔"和"單種名稱"的檔案。

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