Coba sertakan file txt-nya yang berisi beberapa puluh contoh data. Wassalam, Kid.
2012/12/28 Adi <[email protected]> > ** > > > 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... > > > > >> > > > > >> > > > > >> > > > > > > > > > > > > > > > > > > > > > > > > > > > >
