My code below does not convert unix text file to pc text file. I want to insert a script to do the conversion.
Sub Sensors()
Application.ScreenUpdating = False
Dim myline As String
Dim myrange As Range
Sheets("Sensors").Select
Range("A6:I6").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A6").Select
myfile = Application.GetOpenFilename("All Files (*.*),*.*")
If myfile = False Then End
Set myrange = Range("A6")
Open myfile For Input As #2
While Not EOF(2)
Line Input #2, myline
If Left(myline, 3) = "FDU" Then
myrange = Mid(myline, 7, 9)
myrange.Offset(0, 1) = Mid(myline, 23, 6)
myrange.Offset(0, 2) = Mid(myline, 31, 7)
myrange.Offset(0, 3) = Mid(myline, 47, 3)
myrange.Offset(0, 4) = Mid(myline, 95, 9)
myrange.Offset(0, 5) = Mid(myline, 103, 7)
myrange.Offset(0, 6) = Mid(myline, 110, 7)
myrange.Offset(0, 7) = Mid(myline, 117, 7)
myrange.Offset(0, 8) = Mid(myline, 128, 19)
Set myrange = myrange.Offset(1, 0)
End If
Wend
Close #2
Range("A5").Select
Application.ScreenUpdating = True
SendKeys "^{HOME}", True
End Sub