وَعَلَيْكُمْ السَّلاَمُ وَرَحْمَةُ اللهِ وَبَرَكَاته 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" <[email protected]> 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.
