|
在个人宏工作薄里面新建一个模块,将下面代码加进去,然后将我附件里面的四个文件放到桌面上,就会实现新建一个文件,打开一个文件1.txt,取数,粘到新建的文件里,关闭1.txt,再打开下2.txt,取数,追加到新建的文件里,再关闭文件2.txt…… 不知道能否对你有所启发。
FAVA40uz.rar
(286 Bytes, 下载次数: 0)
Sub Macro1()
Workbooks.Add a = ActiveWorkbook.Name Range("A1").Select ActiveCell.FormulaR1C1 = "姓名" Range("B1").Select ActiveCell.FormulaR1C1 = "年龄" '————————上面一段是新建一个文件,并且在新文件里面输入表头。———————— '下面进入循环语句,自动打开和关闭文件,自动取数。对文件文件的打开,可以用录制宏来做。 For i = 1 To 4 Workbooks.OpenText Filename:= _ "C:\Documents and Settings\Administrator\桌面\" & i & ".txt", Origin:=936, StartRow:= _ 1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1)), _ TrailingMinusNumbers:=True
Range("A2:B2").Select Selection.Copy Windows(a).Activate Range("a65536").End(xlUp).Offset(1, 0).Select ActiveSheet.Paste Windows(i & ".txt").Close '关闭文件。 Next End Sub
[此贴子已经被作者于2007-4-14 12:57:43编辑过] |