DEER
Lv 4
DEER 發問時間: 電腦與網際網路軟體 · 6 年前

VBA_資料夾內的檔案各顯示式樣和排序方式的語法。

http://www.funp.net/492950

知識+爬文都沒有找到相關答案,勞駕各位大大幫忙!謝謝!

在資料夾內任一空白處_

按滑鼠右鍵_會有一個選項框出現_

請問︰

1.檢視次選項的大、中、小圖式和清單,詳細內容,並排,內容等的語法要怎麼寫?

2.排序方式次選項的名稱,類型,修改日期,遞增,遞減等的語法要怎麼寫?

3.EX︰如果將目前範例的資料夾內的檔案以中圖式和修改日期顯示,程式碼應該怎麼寫?

以上 敬請各位先進指教!謝謝!

已更新項目:

抱歉!範例內的資料夾經壓縮後_原手動設定的以中圖式和修改日期顯示不見了^^"

請在效果資料夾內任一空白處按滑鼠右鍵__以手動設定就可瞭解本題需求_謝謝!

2 個已更新項目:

相關程式碼_

Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7")).Move

If Sa <> 7 Then

Application.DisplayAlerts = False

3 個已更新項目:

MkDir ThisWorkbook.Path & "\L7R當期拖數_" & mthcount & "期"

ChDrive Left(ThisWorkbook.Path, 1) '增加此行,以轉換〔磁碟代碼〕

ChDir ThisWorkbook.Path & "\L7R當期拖數_" & mthcount & "期\"

4 個已更新項目:

Kill MyPath & "\*.xls" '刪除目前路徑的所有檔案

Else

Sa = 0 '沒資料工作表個數歸 0

GoTo end_work

End If

5 個已更新項目:

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\L7R當期拖數_" & mthcount & "期\L7R當期拖數_" & mthcount & "期_ML.xls"

Sa = 0

ActiveWindow.Close

6 個已更新項目:

1 個解答

評分
還有問題?馬上發問,尋求解答。