Tecnologia, programação e muito Visual FoxPro.

sábado, 24 de julho de 2010

Re: ]] XL-mania [[ Sintaks untuk insert txt ke excel

nomor nama nilai
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_Tab_Delimited()
  Dim fPath As String
  fPath = ThisWorkbook.Path
  Workbooks.OpenText Filename:=fPath & "\file_txt.txt", _
     Origin:=437, _
     StartRow:=1, DataType:=xlDelimited, _
     TextQualifier:=xlDoubleQuote, _
     ConsecutiveDelimiter:=False, Tab:=True, _
     FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), _
     TrailingMinusNumbers:=True
End Sub



2010/7/19 Arief Agung Pribowo <agungcoml@yahoo.com>
>

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.

__._,_.___
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| 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:

Arquivo do blog