返回列表 上一主題 發帖

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

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

未命名.png
2019-4-13 00:24

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

資料夾內除了主檔外,還另有若干個檔案(即一定另有1個(含)以上的檔案),且這若干個檔案的名稱,除了中段不同,其前後段都相同,EX︰圖片中的四個檔案名稱為
今日總表(均值排序)-1_2-(2019-02-26),今日總表(均值排序)-2_13-(2019-02-26),今日總表(均值排序)-17_連1-(2019-02-26),今日總表(均值排序)-27_25-(2019-02-26)

需求︰新增一個檔案
檔案名稱=以上述若干個檔案中任一個檔案名稱的【前段11個字(含符號)及後段12個字(含符號) & "_統計"】
檔案內工作表數量=1個
工作表名稱="統計"
工作表內容︰如附件(新增檔案)

請問︰上述需求的語法。
先謝謝各位的幫忙!

回復 1# ziv976688

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

擷取.JPG
2019-4-13 15:42


主程式.rar (37.31 KB)

TOP

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

回復 2# zheng211016
主檔.rar (40.68 KB)

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

TOP

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

TOP

回復 3# ziv976688


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

TOP

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

回復 5# zheng211016
操作步驟如下:
操作步驟.png
2019-4-14 08:21

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

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

TOP

回復 6# ziv976688


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

    主檔.rar (60.17 KB)

TOP

回復 7# zheng211016
不好意思,狀況還是樣^^"
點"建立統計檔案"鍵後,馬上跳出下列畫面
TEST-1.png
2019-4-14 14:30

點偵錯~跳出下列畫面
TEST-2.png
2019-4-14 14:32


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

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

TOP

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)
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

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

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

TOP

        靜思自在 : 待人退一步,愛人寬一寸,就會活得很快樂。
返回列表 上一主題