Wa'alaikumsalam wr. wb.,
Sambil menunggu saran dari yang lain, coba tambahkan script berikut ini
setelah close #1
Range(Cells(5,2), Cells(5,2).End(xlDown)).TextToColumns _
Cells(5,2), xlDelimited, xlTextQualifierDoubleQuote, 1, Space:=True
Wassalamu'alaikum wr. wb.,
-Ms. Jan Raisin-
Pada 26 Desember 2012 17:57, Adi <[email protected]> menulis:
> **
>
>
> 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...
>
>
>
