Ternyata masalahnya sudah ketemu Mr. solusinya yaitu menaruh kata Line sebelum input. terima kasih semua atas perhatiannya. wassalamu'alaikum Wr. Wb.
--- In [email protected], "Mr. Kid" <mr.nmkid@...> wrote: > > Sebaiknya disertakan file txt-nya. Potong data agar berisi data contoh saja > beberapa puluh baris. > > Wassalam, > Kid. > > 2012/12/27 Adi <abduhsuryadi@...> > > > ** > > > > > > Assalamu'alaikum Wr. Wb. > > > > Saya mempunyai data di text file (jwb.txt) seperti ini: > > A007,Abdurrahman,Fisika;22/7/2000;Lombok Barat,NTB;Narmada;ABCDEFGHIJ > > > > 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 > > > > Pertanyaan: > > 1. Kenapa tanda koma (,) dianggap sebagai new line? > > 2. Bagaimana cara untuk memecah data tersebut ke setiap kolom, dimana > > tanda titik koma (;) menjadi pemisahnya? (5 kolom) > > > > Terima kasih, mohon maaf kalau ada yang salah. > > Wassalamu'alaikum Wr. Wb. > > > > > > >
