1 koplo 900
2 jingkrak 800
3 asmuni 700
sudah agak lama ndak ada tanggapan; ini pasti karena
anda ogah /ndak mau melampirkan contoh data secuilpun..
secara umum perintahnya adalah method OpenText (Workbook.Opentext)
tetapi berhubung method tsb punya parameter buanyaaak sekaleee maka
"bunyi" makronya bisa variatif sesuai keadaan file textnya
* apakah pemisahan data diberi "tanda pemisah" (delimiter)
atau Fixedwidth
* jika pakai delimiter, berupa karakter apa ?
* berapa "kolom" per baris nya?
* dsb, dst..
terlampir 2 file
1. txt : berisi data yg dipisahkan dengan delimiter TAB
(tiap baris dipisahkan dengan ENTER)
kedua hal tsb KUDU diketahui oleh pembuat makro.
nomor nama nilai
1 koplo 900
2 jingkrak 800
3 asmuni 700
(ada lho.. file text yg tidak permah di-enter dari awal sampai akhir..
jangan-jangan file anda spt itu..)
2. xls : sheet kosong tetapi vbe nya berisi makro
makronya adalah hasil Record_Macro yg diedit & diringkas dikitt....
kedua file dianggap berada dlm folder yg sama
tombol di sheet1 untuk menjalankan makro-nya
Sub BukaFileText_
Dim fPath As String
fPath = ThisWorkbook.
Workbooks.OpenText Filename:=fPath & "\file_txt.txt", _
Origin:=437, _
StartRow:=1, DataType:=xlDelimit
TextQualifier:
ConsecutiveDelimite
FieldInfo:=Array(
TrailingMinusNumber
End Sub
2010/7/19 Arief Agung Pribowo <agungcoml@yahoo.
>
Dear All,
mohon info, saya ingin membuat macro di excel,dengan cara mengambil data dari sebuah file txt, kemudian dengan macro itu hasil di excel sudah dalam kolom2 sendiri.
Thanks
Best Regards,
Arief Agung Pribowo M.
| yak.... tembus 15,000. member ke 15,000 angkat tangannnnn... mau |
| momods kirimin coklat.... hehehe... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário