Wa'alaikumsalam wr. wb., Pak Adi, sebelumnya scriptnya sudah Jan tes di versi 2010 dan dapat berjalan dengan baik, Jan juga tidak mengetahui kenapa muncul error di komputer pak Adi.
Ditunggu saja solusi dari BeExceller yang lain. Maaf jika solusi yang Jan berikan tidak bekerja dengan baik. :) wassalamu'alaikum wr. wb., -Ms. Jan Raisin- Pada 27 Desember 2012 14:30, Adi <[email protected]> menulis: > ** > > > 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... > > >> > > >> > > >> > > > > > > > > > > >
