|
楼主 |
发表于 2011-4-2 23:13
|
显示全部楼层
回复 放浪形骸 的帖子
这是我到处找的关于对外部数据TXT文档提取的语句:
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
f = Dir(ThisWorkbook.Path & "\*.txt")
Do While f > " "
Workbooks.Add
With Workbooks(Workbooks.Count)
.SaveAs ThisWorkbook.Path & "\" & Left(f, Len(f) - 3) & "xls"
ThisWorkbook.Sheets("Sheet1").Cells.Copy .Sheets("sheet1").[a1]
Open ThisWorkbook.Path & "\" & f For Input As #1 ' 打开输入文件。
ar = [b3:d6]
Line Input #1, a
.Sheets("sheet1").[d2] = a
Input #1, ar(1, 1), ar(1, 3), ar(2, 1), ar(2, 3), ar(3, 1), ar(3, 3), ar(4, 1) ' 将数据读入变量。
.Sheets("sheet1").[b3:d6] = ar
Close #1 ' 关闭文件。
.Close 1
End With
f = Dir
Loop
Application.DisplayAlerts = True
End Sub
确实不会将您们刚才说的具体语句融入其中,请问,如具体成上面这样的句子,如何写呢?
|
|