Witam,
Chcialabym wczytac plik zródłowy wraz ze wszystkimi znakami jakie tam wystepuja. Spacjami i tabulatorami itd. [
Gdyz tylko te wiersze ktore maja 120 znaków dlugosci wraz ze spacjami mozna jakos potem rodzielić na kolumny, zeby plik byl czytelny.
Wczytywanie pliku przez zastosowanie wczytanie jak poniizej "gubi" znaki spacje.
W zalaczeniu plik zródlowy.
KOD VBA:
Sub read_f()
Dim myfile As String, textData As String, textRow As String, fileNo As Integer, x As Double
myfile = Application.GetOpenFilename() 'open any file
fileNo = FreeFile 'Get first free file number
textRow = 1
Open myfile For Input As #fileNo
Do While Not EOF(fileNo)
Line Input #fileNo, textData
Cells(textRow, 1) = textData
textRow = textRow + 1
Loop
Close #fileNo
End Sub
Chcialabym wczytac plik zródłowy wraz ze wszystkimi znakami jakie tam wystepuja. Spacjami i tabulatorami itd. [
Gdyz tylko te wiersze ktore maja 120 znaków dlugosci wraz ze spacjami mozna jakos potem rodzielić na kolumny, zeby plik byl czytelny.
Wczytywanie pliku przez zastosowanie wczytanie jak poniizej "gubi" znaki spacje.
W zalaczeniu plik zródlowy.
KOD VBA:
Sub read_f()
Dim myfile As String, textData As String, textRow As String, fileNo As Integer, x As Double
myfile = Application.GetOpenFilename() 'open any file
fileNo = FreeFile 'Get first free file number
textRow = 1
Open myfile For Input As #fileNo
Do While Not EOF(fileNo)
Line Input #fileNo, textData
Cells(textRow, 1) = textData
textRow = textRow + 1
Loop
Close #fileNo
End Sub