Sebaiknya disertakan file txt-nya. Potong data agar berisi data contoh saja beberapa puluh baris.
Wassalam, Kid. 2012/12/27 Adi <[email protected]> > ** > > > 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. > > >
