Hendrik Karnadi
From: Abu Halimah <adarickya@yahoo.com>
To: XL-mania@yahoogroups.com
Sent: Tuesday, November 2, 2010 8:52:36
Subject: Re: ]] XL-mania [[ cara export data pada file.text ke excel dengan vba
From: stdev i <setiyowati.devi@gmail.com>
To: XL-mania@yahoogroups.com
Sent: Sun, May 30, 2010 6:22:41 PM
Subject: Re: ]] XL-mania [[ cara export data pada file.text ke excel dengan vba
coba pakai ini
Dim FfullName As String
Dim newSheet As Worksheet
Dim openBook As Workbook
Set newSheet = Worksheets.Add
newSheet.Move After:=Sheets( Sheets.Count)
FfullName = ThisWorkbook. Path & "\" & Range("F3").Text
Workbooks.OpenText Filename:=FfullName , _
DataType:=xlDelimit ed, _
TextQualifier: =xlDoubleQuote, _
ConsecutiveDelimite r:=False, _
Tab:=True, _
FieldInfo:=Array( Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1)), _
TrailingMinusNumber s:=True
Set openBook = ActiveWorkbook
ActiveSheet. Cells(1). CurrentRegion. Copy newSheet.Cells( 1)
openBook.Close SaveChanges: =False
file text yg akan diimpor datanya, harus berada di folder yg sama
dengan file ini (namanya kok ya export data to yo..)
nama file text yg akan diimpor mungkin bisa bermacam macam/berganti ganti.
agar tidak perlu mengubah makronya tuliska saja di nama file export data tsb
di sebuah cell tertentu, misal F3
hasil impor data akan selalu ditulis di sheet baru
jika kesulitan membuka file terlampir (*.zi_) agar direname dulu menjadi *.ZIP
>
> To para pakar excel....
> saya ada masalah dengan export data dari file.text ke program excel...
> dengan cara vba...
> file terlampier.. .
> terima kasih atas bantuannya.. .
>
> salam sukses
> dby
| ada yang mau nyobain ice cream bikinan momods? |
| 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