Re: ]] XL-mania [[ cara export data pada file.text ke excel dengan vba

 

bu Siti, mudah2an mau membantu saya.

 

Bagaimana ya solusinya ya jika data file.text nya ada spasi sehingga file tersebut tidak bisa terexport semuanya. contoh attachment.

 

Terima kasih.

---

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

2010/5/27 Dobby Paku <dp_140279@yahoo. com>
>
> 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

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (5)

Recent Activity:

• New Members 101

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___