如题，在网上找到了下面的代码，可以通过对话框查找到指定的类型的文件，但是后面就不知道如何打开那个excel文件并且读取里边的数据。我的需求是，点击按钮后，弹出对话框，查找到目标excel(或txt)，读取里边的数据（或者直接复制到现有excel表）。谢谢高手指点！
Sub test()
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "DAT FILE", "*.dat,*.txt,*.xlsx"
.Show
For i = 1 To .SelectedItems.Count
MsgBox .SelectedItems(i)
Next
End With
End Sub
Sub test()
Dim wb As Workbook
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "DAT FILE", "*.dat,*.txt,*.xlsx"
.Show
Set wb = Workbooks.Open(.SelectedItems(1))
End With
'继续你的代码
wb.Close True
End Sub
Dim wb As Workbook
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "DAT FILE", "*.dat,*.txt,*.xlsx"
.Show
Set wb = Workbooks.Open(.SelectedItems(1))
End With
'继续你的代码
wb.Close True
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2021-01-16
Excel怎样快速打开文本文件内容
