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 <[email protected]> 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 <[email protected]> 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...
>>
>>
>>
>
>
