[初学者级别]把一个文件的数据取出放到另一个文件里如何做

[菜鸟级别]把一个文件的数据取出放到另一个文件里怎么做？
想从一个没有扩展名的文件里把一些文字列取出放到一个Excel文件夹里作为列。
没有扩展名的文件:
INSERT into A_TABLE
ID = “A1”‘有的前面有双引号
Code = “A01”
Number = 001‘有的前面没有双引号
;
INSERT into B_TABLE
ID = “B1”
Code = “B01”
Number = 002
;

Excel文件:
IDCodeNumber
A1A01001
B1B01002

本人菜鸟，劳烦大侠帮帮忙，真心感谢~！！


[解决办法]
楼主可以参考这篇文章：
http://topic.csdn.net/u/20110720/12/119ee538-e3b0-4b28-9ec7-22b61aa99486.html
[解决办法]
楼主参考一下这个代码：

VB code

Sub MoveData()   Dim strFileName As String   Dim intFileNo  As Integer   Dim strData    As String   Dim objSht     As Worksheet   Dim Column(3)  As String   Dim ColumnName As String   Dim lColumnTop As Long           ' 用一个变量来记录列名表数组上界值   Column(0) = "ID"   Column(1) = "Code"   Column(2) = "Number"   Column(3) = "IDCode"   intFileNo = FreeFile   i = 1   '填入數據初始列   j = 3   '填入數據初始行   'k = 0   '數組列號      ' 这句有必要吗？   lColumnTop = 3   strFileName = "C:\Documents and Settings\Administrator\デスクトップ\TEST"   Open strFileName For Input As #intFileNo   Set objSht = Worksheets("Sheet1")   Do While Not EOF(intFileNo)      Line Input #intFileNo, strData            Do         'If (strData = ";") Then j = j + 1: k = 0: i = 1: Exit Do         If (strData = ";") Then j = j + 1:  Exit Do         If (strData Like "INSERT into*") Then k = 0: i = 1: Exit Do         strData = Replace(strData, """", "")         ColumnName = Split(strData, " = ")(0)         ' 用下面的循环来找‘列名’的 序号         For k = 0 To lColumTop            If (ColumnName = Column(k)) Then Exit For         Next         If (k > lColumnTop) Then Exit Do       ' 不是需要的数据         objSht.Cells(j, i + k).Value = Split(strData, " = ")(1)         Exit Do      Loop   Loop   Set objSht = Nothing   Close intFileNoEnd Sub