Re: ]] XL-mania [[ Text ke Excel (2007)

 

barangkali begini:

buka wokbuk kosong dengan 1 sheet
tulis nama file (yg mo dibuka) di C3 pada sheet1
gambarlah sebuah tombol
ceklik tombolnya




Sub BukaTeksFile()
' siti Vi / 20 nov 2010
Dim dPath As String, FileNm As String
    dPath = ThisWorkbook.Path & "\"
    FileNm = dPath & Range("C3").Text

    Workbooks.OpenText Filename:=FileNm, Origin:=437, _
      StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
      ConsecutiveDelimiter:=True, Tab:=True, Space:=True, _
      FieldInfo:=Array( _
         Array(1, 1), Array(2, 1), Array(3, 1), _
         Array(4, 1), Array(5, 1), Array(6, 1), _
         Array(7, 1), Array(8, 1), Array(9, 1), _
         Array(10, 1), Array(11, 1), Array(12, 1)), _
         TrailingMinusNumbers:=True
End Sub

2010/11/18 bintang mediatama <bintang_mediatama@yahoo.co.id>

salam kenal... Mohon bantuannya rekan2 XL-mania.. Saya punya file (attach) bentuk filenya txt.... dan saya sudah mencoba beberapa kali untuk mengubahnya ke file excel (2007) hingga saat ini masih belum bener... permasalahannya adalah di format number nya belum otomatis ke number melainkan masih format text karena angka tersebut nantinya akan di jadikan perhitungan. Mohon bantuan rekan2 sekiranya dapat membantu saya untuk menemukan cara yang cepat dan jitu untuk menyelesaikan permasalahan saya. Atas bantuan rekan2 saya mengucapkan terima kasih. salam, bintang

__._,_.___

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

Messages in this topic (3)

Recent Activity:

• New Members 85

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat idul adha.... jangan lupa kiriman kambingnya :D :D :D     |
| 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

.

__,_._,___