我怎么能取这个名字。txt文件,在多重选择中?
我已经做到了:
- Dim lngCount As Long ' Open the file dialog
- With Application.FileDialog(msoFileDialogOpen)'.AllowMultiSelect = True
- .Show ' Display paths of each file selected
- For lngCount = 1 To .SelectedItems.Count 'MsgBox .SelectedItems(lngCount)
- Next lngCount
之后,在上使用数据提取。txt,并处理信息,但我需要每个的名称。txt文件
的名称。txt文件,我必须再次获取这些文件,代码如下:
- Dim txtname As String
- txtname = Application.GetOpenFilename("text files (*.txt), *.txt,")
我不想一个接一个。txt文件中,我只想取第一个选择,并将名称记录在一个新变量中
这是一个vba的excel,但是一个补充我的lisp。。。
如果有任何帮助,我将不胜感激!! |