打开文件夹中的每个文件，并使用VBA消除数据

Question

我正在寻找一个excel代码，它可以打开文件夹中的每个文件（扩展名不一样 - 它们有一个日期扩展名）作为文本并将其删除。在我想使用这个表之后。

我实际上试图从这里获取一些代码，但大多数是xls或没有删除。

任何人都可以给我一个骨架代码我该如何解决这个问题？

由于

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

希望这能让你开始。