Coba ganti baris :
For iCol = 1 To 5
menjadi :
For iCol = 1 To ubound(T)+1
Wassalam,
Kid.
2012/12/27 Adi <[email protected]>
> **
>
>
> 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...
> > >>
> > >>
> > >>
> > >
> > >
> >
>
>
>
