VBA Excel宏打开txt文件浏览

M.P 发表于 Dev

嗨，我想打开一个txt文件，但它每个月都会更改，因此我需要能够通过地图选择新的一个。

我是VBA的一个完整的初学者，我记录了宏，但是当进入特定的编码部分时，我实际上并不了解大多数内容。

Sub Medical_txt_excel()

With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;C:\Users\user101\Documents\Macro Sales Monthly\Dec 2016-selected\Claim Medical.txt" _
    , Destination:=Range("$A$10"))
    .Name = "Claim Medical"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False

我需要Claim Medical.txt为文件，使用宏时可以选择自己，而无需每次都更改源代码

灰

ChDir "C:\Users\user101\Documents\Macro Sales Monthly\Dec 2016-selected"
Dim fpath: fPath = Application.GetOpenFilename("Text Files (*.txt),*.txt")
if fPath = False Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:= "TEXT;" & fPath, Destination:=Range("A10"))
  ...
End With

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。