Vba excel宏打开txt文件浏览

时间:2017-02-07 08:56:01

标签: excel vba excel-vba

您好我想打开一个txt文件,但每个月都会更改,所以我需要选择新的文件浏览地图。

我是VBA的完全初学者,我记录了宏,但是当进入特定的编码部分时,我真的不知道大多数东西。

addSlashes("Hello");

H/e/l/l/o

我需要Claim Medical.txt作为一个文件,我可以在使用宏时选择自己,而不是每次都更改源代码

2 个答案:

答案 0 :(得分:1)

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

答案 1 :(得分:0)

试试这个

Sub Medical_txt_excel()
 Dim fd As Office.FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.AllowMultiSelect = False
    fd.Title = "Please select the file."
    fd.Show

With ActiveSheet.QueryTables.Add(Connection:= _
    fd.SelectedItems(1) _
    , Destination:=Range("$A$10"))
    .Name = "Claim Medical"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
End With

End Sub