line input

yin7

請教 如何 輸入excel  以下是.txt        碰到第一行是空白 是否不讀
第一行是空白                                                      

FORM:bom307                                               ☆☆☆   達 生 機 械 股 份 有 限 公 司   ☆☆☆

                                                                    料 品 多 階 結 構 表 (正展)                                               列表日期:2018/06/13
                                                                    ===========================                                               頁    次:  1
母件:DM19DM902-MA49         規格:700CCB*49CM FM:5187 FK:5187  96%                單位:SET           有效單號:
  英文規格:
  規格說明:
  中文規格:
=====================================================================================================================================================================
階層   子件編號           規 格                                       單位   單位用量     使 用 量    子件基數    允損率   生效單號   失效單號   部門
     英文規格
     規格說明
     中文規格
---- -------------------- -----------------------------------------   ----   ---------  -----------   ---------   ------   --------   --------   --------------------
  1  0-DM19DM902          DM19DM902 成車共用件96%                     SET       1.000       1.00000       1.00    0.000               999999



---------------------------------------------------------------------------------------------------------------------------------------------------------------------
  2  BB-ABBUN100B22X       122.5(NL)26.5-68-28W/O F.B                 PC        1.000       1.00000       1.00    0.000               999999
     BOTTOM BRACKET,BB-UN100 SQUARE AXLE:122.5MM(D-NL)           SHELL:BSA 68MM, W/O FIXING BOLT

     DM19DM601 確認單:10-193
---------------------------------------------------------------------------------------------------------------------------------------------------------------------
  2  BC-TIE200             NYLON 紮線帶 200L黑                        PC        1.000       1.00000       1.00    0.000               999999
     NYLON CABLE TIE 200L. BLK

     剎車線或變速線,或電線互綁時用                               有PK-FH-P11G 需另代200L黑色束帶1條(2015.03.25)
---------------------------------------------------------------------------------------------------------------------------------------------------------------------
  2  BC-TIE370             NYLON 紮線帶 370L白(寬3.6)                 PC        1.000       1.00000       1.00    0.000               999999
     NYLON CABLE TIE 370L. WHT

  以下是程式
Sub openfile_test()
Dim strFilename As String
   
strFilename = Application.GetOpenFilename
   If strFilename <> "False" Then
       Open strFilename For Input As #1
      
       Dim data1(1 To 2000) As String
        j = 12
        dd = 1
        i = 1
    Do Until EOF(1)
        Line Input #1, data1(dd)
  
               Cells(j, 5) = Mid(CStr(data1(dd)), 7, 20)  ' 料號
               Cells(j, 7) = Mid(data1(dd), 1, 4) '階層
               Cells(j, 9) = Mid(data1(dd), 28, 37)  '中文規格
               Cells(j, 10) = Mid(data1(dd), 35, 8)  '英文規格
               Cells(j, 11) = Mid(data1(dd), 63, 6)   '單位
               Cells(j, 12) = Mid(data1(dd), 79, 10)   '單位用量
               Cells(j, 13) = Mid(data1(dd), 125, 10)  '生效單號
                i = i + 1
                 j = j + 1
                dd = dd + 1                    
           
Loop
Close #1
End If
      
End Sub


讀到  ===========================  就錯了
Cells(j, 12) = Mid(data1(dd), 79, 10)   '單位用量
謝謝

liulang0808

楼主 可以增加一段if语句，根据关键字判断下，是否是需要提取数据的行
如果不是，提取会有问题吧

yin7

liulang0808 发表于 2018-6-18 17:12
楼主 可以增加一段if语句，根据关键字判断下，是否是需要提取数据的行
如果不是，提取会有问题吧

謝謝  以解決