Terima kasih banyak atas petunjuknya Mr. kalau boleh saya bertanya lagi, kenapa koma dianggap sebagai baris baru? saya mempunya data di text file seperti di bawah ini (contoh):
A007,Abdurrahman,Laki;22/7/2000;Lombok Barat,NTB;Narmada;ABCDEFGHIJ akan berada di record/row baru yang lain di excel. bagaimana cara menanganinya? terima kasih Mr. Wassalam.... --- In [email protected], "Mr. Kid" <mr.nmkid@...> wrote: > > Coba ganti baris : > For iCol = 1 To 5 > menjadi : > For iCol = 1 To ubound(T)+1 > > Wassalam, > Kid. > > > 2012/12/27 Adi <abduhsuryadi@...> > > > ** > > > > > > trmkash Miss.. > > saya coba kode yg terakhir dan ada error: "subscript out of range". kira2 > > kenapa ya? > > wassalam... > > > > > > --- In [email protected], Jan Raisin <miss.jan.raisin@> > > wrote: > > > > > > ups.. salah xixixix :D > > > yang tadi untuk space delimiter, coba ubah script menjadi seperti ini: > > > > > > Dim sData As String > > > Dim T As Variant > > > Dim iRow As Long, iCol As Integer > > > > > > Open "D:\jwb.txt" For Input As #1 > > > iRow = 5 > > > Input #1, sData > > > Do While Not EOF(1) > > > T = Split(sData, vbTab) > > > For iCol = 1 To 5 > > > Cells(iRow, iCol + 1) = T(iCol - 1) > > > Next iCol > > > iRow = iRow + 1 > > > Input #1, sData > > > Loop > > > Close #1 > > > > > > Wassalamu'alaikum wr. wb., > > > > > > -Ms. Jan Raisin- > > > > > > Pada 27 Desember 2012 10:12, Jan Raisin <miss.jan.raisin@> menulis: > > > > > > > > > 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 <abduhsuryadi@> 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... > > > >> > > > >> > > > >> > > > > > > > > > > > > > > > > > >
