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

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

Excel文件:
ID Code Number
A1 A01 001
B1 B01 002

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

------解决方案--------------------
楼主可以参考这篇文章：
http://topic.****.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 intFileNo
End Sub

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

相关推荐