Excel VBA - 文本文件和文件夹操作实例集锦(13)

30，不打开多工作簿导出指定数据到指定文本文件

‘http://club.excelhome.net/thread-579126-1-1.html ‘提取数据0526.xls Sub tqsj()

Dim myPath$, Mynm$ Dim myFs As FileSearch Dim Filename$ Dim i&, n&, j&

Dim aa, nm$, nm1$, arg, rng, bb$

Set myFs = Application.FileSearch myPath = ThisWorkbook.path & \ Mynm = ThisWorkbook.Name With myFs

.NewSearch

.LookIn = myPath

.FileType = msoFileTypeNoteItem .Filename = \

If .Execute(SortBy:=msoSortByFileName) > 0 Then n = .FoundFiles.Count

ReDim myfile(1 To n) As String For i = 1 To n

myfile(i) = .FoundFiles(i) Filename = myfile(i)

aa = InStrRev(Filename, \

nm = Right(Filename, Len(Filename) - aa) If nm <> Mynm Then For j = 1 To 4 Select Case j Case 1

rng = \ Case 2