返回列表下一主題上一主題發帖

[發問] 自動複製指定名稱的檔案資料

papaya

中學生 Rank: 2

帖子: 323
主題: 79
精華: 0
積分: 407
點名: 0
作業系統: win7
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-10-22
最後登錄: 2022-1-18

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-7-25 09:11 | 顯示全部帖子

[發問] 自動複製指定名稱的檔案資料

測試檔︰

TEST.rar (210.24 KB)
備註︰
1_Arr = Array("七政","八卦","五行","六沖","合數","生肖","均值","尾數")
2_效果檔只列出"七政"和"生肖"的部分內容之範例。
3_為達到流程的完整和流暢，所以將多項需求一次提出，尚請見諒！謝謝！

需求流程︰
1_在程式檔Module1的列16插入
[AZ2:AAZ231]更改日期格式為"yyyy-mm-dd"(EX: 2020-07-17)的程式碼。

2_設立一個"InputBox"
XXXX = InputBox("請輸入日期(EX:2020-07-17) ", "輸入日期")。

3_將"InputBox"填入的日期(EX: 2020-07-17),複製->選擇性貼上->值->轉置在程式檔的" Arr "等各工作表的A1。

4_依據填入"InputBox"的日期(EX: 2020-07-17),將DATA的A欄相同日期之下1列的B:H內容,複製->選擇性貼上->值->轉置在" Arr "等各工作表的A3。.

5_以"遺漏"+"程式檔"的" Arr "等各工作表名稱+前述各工作表的B欄項目及C欄名次等各關鍵字,對"程式檔"以外的其他檔案名稱做分類搜尋_
然後將上述搜尋到的對應分類檔案之AZ欄="InputBox"的日期(EX: 2020-07-17)的"上1列之BA:BS內容,複製->選擇性貼上->值->轉置_在"程式檔"的" Arr "等各工作表之E2等相對應的儲存格.

6_程式檔"的" Arr "等各工作表以下範圍之欄列格式_
                  Columns("A:W").Font.Name = "Arial"
                  Columns("A:W").HorizontalAlignment = xlCenter
                  Columns("A:W").EntireColumn.AutoFit
                  [A2].Select
                  ActiveWindow.FreezePanes = True
                  ActiveWindow.Zoom = 75

7_將程式檔"的" Arr "等各工作表複製輸出為1個獨立檔案_檔案名稱="大樂透_遺漏空總統計表_輸入InputBox的日期(EX: 2020-07-17)"

8_將程式檔"的" Arr "等各工作表以下範圍之內容移除_
[A3:A9].ClearContents
[E2:W72].ClearContents

9_請設立1個計時器，並記載共完成複製多少個檔案(如本測試檔為”共完成複製12個檔案”)。

請問︰以上程式的需求語法(2003版)應該如何編寫？
謝謝！