打開文件夾中的每個文件並使用VBA刪除數據

Question

我正在尋找一個可以打開文件夾中的每個文件（擴展名都不相同 - 它們具有日期擴展名）的excel代碼作爲文本並刪除它。在我想要使用這張表之後。

我實際上試圖從這裏得到一些代碼，但其中大多數是爲xls或沒有拆分。

任何人都可以給我一個skelet代碼我怎麼能解決這個問題？

感謝

Answer 1

此代碼將遍歷一個指定的文件夾中的文件（它會打開一個對話框，選擇文件夾）

Dim sPath As String 
Dim sFil As String 
Dim FolderPath As String 
    Dim diaFolder As FileDialog 

    ' Open the file dialog 
    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker) 
    diaFolder.AllowMultiSelect = False 
    diaFolder.Show 
    FolderPath = diaFolder.SelectedItems(1) 

    ' Cycle through spreadsheets in selected folder 

sPath = FolderPath & "\" 'location of files 

sFil = Dir(sPath & "*.xls") 'change or add formats 
Do While sFil <> "" 'will start LOOP until all files in folder sPath have been looped   through 


Set oWbk = Workbooks.Open(sPath & "\" & sFil) 'opens the file 
' do something 

oWbk.Close True 
sFil = Dir 

Loop 

希望這可以讓你開始。