Snasui Excel Forum

Code: Select all

Sub DNCN()
    Dim Lrow3 As Integer
    
        ChDir "C:\Temp"
        Workbooks.OpenText Filename:="C:\Temp\knr001.out", Origin:=874, StartRow _
        :=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(28, 1), Array _
        (47, 1), Array(74, 1), Array(88, 1), Array(104, 1), Array(134, 1), Array(154, 1), Array(165 _
        , 1), Array(176, 1)), TrailingMinusNumbers:=True

        Cells.Find(What:="Total DN", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate 'ËÒ DN 
        End SuB