vba代码求解释

Sub 文本导入()
fileToOpen = Application.GetOpenFilename("请选文本(*.txt), *.txt", , "导入逗号分隔文本") '-----弹出选择文件窗口
If fileToOpen = False Then '-----如果没选择文件则退出本程序
Exit Sub
End If
Range("A1").Select '-----A1选中
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fileToOpen, Destination:=Range("A1")) '-----激活工作表.新增检索，连接文本，fileToOpen文件名
.FieldNames = True '-----读取字段名
.RowNumbers = False '-----不读取行数
.FillAdjacentFormulas = False '-----
.PreserveFormatting = True '-----
.RefreshOnFileOpen = False '-----不刷新文件数据
.RefreshStyle = xlInsertDeleteCells '-----
.SavePassword = False '-----不保存密码
.SaveData = True '-----保存数据
.AdjustColumnWidth = True '-----自适应列宽
.RefreshPeriod = 0 '-----
.TextFilePromptOnRefresh = False '-----
.TextFilePlatform = 936 '-----
.TextFileStartRow = 1 '-----从第一行开始读取
.TextFileParseType = xlDelimited '-----
.TextFileTextQualifier = xlTextQualifierDoubleQuote '-----
.TextFileConsecutiveDelimiter = False '-----
.TextFileTabDelimiter = False '-----
.TextFileSemicolonDelimiter = False '----
太多了，只翻译了一部分
不过我建议不要全部都理解，很多是没必要了解的多余代码，就像录制的宏一样
你只需要知道关键的代码即可