Assalamu'alaikum Wr. Wb.
Saya mempunyai data di jwb.txt
isinya kira-kira:
A002 Adi 10-A Biologi DACDEDAEDA
A004 Ahmad 10-B Fisika ADCDEEAACA
kode saya untuk membaca file tersebut ke excel seperti ini:
Dim sData as String
Open "D:\jwb.txt" For Input As #1
Cells(5, 2).Select
Do While Not EOF(1)
Input #1, sData
ActiveCell.Value = sData
ActiveCell.Offset(1, 0).Select
Loop
Close #1
Hasil yang didapatkan semua berada di satu kolom.
Bagaimana cara agar setiap data yang dipisah dengan tab dalam text file
tersebut berada dalam kolom tersendiri?
Terima kasih, wassalam...
