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 <[email protected]>
>
> 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.
>
>
nomor nama nilai 1 koplo 900 2 jingkrak 800 3 asmuni 700
c__buka_txt_file.xls
Description: MS-Excel spreadsheet
