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... > >> > >> > >> > > > > >
