将.html中的所有文件转换为文件夹中的.xlsx，并使用VBA保存为文件名

Question

我的问题是我的标题。

将文件夹中的所有文件从HTML（从浏览器下载）转换为.xlsx格式。

1. 我使用相同的文件夹路径来存储我想要转换的文件，然后每天取代它
2. 每日使用的文件数量将更改
3. 没有＆＃39;文件掩码＆＃39;但相关文件是该文件夹中唯一的文件，没有子文件夹
4. 必须打开文件，转换为xlsx，然后使用相同的源文件名再次保存。
5. 冲洗并重复，直到所有文件都已转换并保存在相同（或不同，如果更容易的文件夹）
中
6. 我使用的是Excel 2011（适用于Mac），因此文件路径会略有不同，但如果只是VBA代码，则应该没有在此平台上使用它的问题。主要区别在于路径由:而不是\分隔。例如Macintosh HD:Users:Documents:R7M:Planning:Locations

我研究过的一些与我的答案相近的链接在这里：

Opens all txt files and saves as excel：我尝试更改了一些信息

Looping through files in a folder with mac：先进，但可能是对需要使用的内容的一个很好的参考。我不允许发布三个链接，但这个网站提供了一些很好的参考......我想。

这（来自链接1）可能是我最需要的东西......

Private Sub CommandButton1_Click()
 Dim MyFolder As String
 Dim myfile As String
 Dim folderName As String

 With Application.FileDialog(msoFileDialogFolderPicker)
 .AllowMultiSelect = False
 If .Show = -1 Then

 folderName = .SelectedItems(1)
 End If
 End With

 myfile = Dir(folderName & "\*.txt")

 Do While myfile <> ""
 Workbooks.OpenText Filename:=folderName & "\" & myfile
'save as excel file
 ActiveWorkbook.SaveAs Filename:=folderName & "\" & Replace(myfile, ".txt", ".xls")
'use below 3 lines if you want to close the workbook right after saving, so you dont have a lots     of workbooks opened
 Application.DisplayAlerts = False
 ActiveWorkbook.Close
 Application.DisplayAlerts = True
 myfile = Dir
 Loop
End Sub

任何帮助都会很棒！