[belajar-excel] Re: Kenapa Koma di Text File dianggap sebagai baris baru oleh vba?

Thu, 27 Dec 2012 22:41:11 -0800 

Terima kash atas sarnnya pak, saya sudah coba, tpi blm saya diterapkan.

--- In [email protected], slametharto@... wrote:
>
> وَعَلَيÙ'كُمÙ' السÙ`َلاَمُ
وَرَحÙ'مَةُ اللهِ
وَبَرَكَاته
> Coba gunakan script berikut:
> sub import()
> Dim sData, Char, txt as string
> Dim r,c,I as Long
> Dim Irng as range
>
> Dim sData as String
> Open "D:\jwb.txt" For Input As #1
> r = 0: c = 0: txt =""
> Set Irng = Cells(5, 2)
> Do While Not EOF(1)
> Line Input #1, sData
> For i = 1 To Len(sData) + 1
> Char = Mid(sData, i, 1)
> If char = "," or char = ";" or I > Len(sData) Then
> Irng.offset(r,c) = txt
> c = c + 1
> Else
> If char <> chr(34) Then txt = txt & Mid(sData, i, 1)
> End If
>  Next i
> c = 0: r = r + 1
> AcctiveCell.Offset(1, 0).Select
> Loop
> Close #1
> End Sub
>
> Wassalam
> Powered by Telkomsel BlackBerry®
>
> -----Original Message-----
> From: "Adi" abduhsuryadi@...
> Sender: [email protected]
> Date: Thu, 27 Dec 2012 09:34:48
> To: [email protected]
> Reply-To: [email protected]
> Subject: [belajar-excel] Kenapa Koma di Text File dianggap sebagai
baris baru oleh vba?
>
> Assalamu'alaikum Wr. Wb.
>
> Saya mempunyai data di text file (jwb.txt) seperti ini:
> A007,Abdurrahman,Fisika;22/7/2000;Lombok Barat,NTB;Narmada;ABCDEFGHIJ
>
>     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
>
> Pertanyaan:
> 1. Kenapa tanda koma (,) dianggap sebagai new line?
> 2. Bagaimana cara untuk memecah data tersebut ke setiap kolom, dimana
tanda titik koma (;) menjadi pemisahnya? (5 kolom)
>
> Terima kasih, mohon maaf kalau ada yang salah.
> Wassalamu'alaikum Wr. Wb.
>

Kirim email ke