Re: ]] XL-mania [[ cara ekspor excel ke word dengan vba

 



Dear Pak Ramdhani,

 

Generalnya seperti ini pak, tinggal dikembangkan saja,

Mudah mudahan membantu.

 

Dim AppWord As Object
Dim InputCells As Excel.Range

 

On Error Resume Next
Set AppWord = CreateObject("Word.Application")
AppWord.Visible = True

 

Set InputCells = _
Application.InputBox(Prompt:="Select range ato cell", _
Title:="Copy paste ke word", Type:=8)
InputCells.Copy

 

AppWord.Documents.Add
AppWord.Selection.Paste

 

Application.CutCopyMode = False

 

Set AppWord = Nothing
Set InputCells = Nothing

 

Thanks, riky

 

 

----- Original Message -----

From: Ramdhani Jamil

To: XL-mania@yahoogroups.com

Sent: Wednesday, February 17, 2010 5:38 PM

Subject: ]] XL-mania [[ cara ekspor excel ke word dengan vba

 

to pakar excel mania saya mo nanya nieh gimana cara ekspor data yang udah si buat di excel di eksport ke word trus dia langsung ngeprint...... dengan menggunakan VBA di excel Trims tuk bantuannya

---

Coba Yahoo! Mail baru yang LEBIH CEPAT. Rasakan bedanya sekarang!

__._,_.___

Reply to sender | Reply to group

Messages in this topic (2)

Recent Activity:

• New Members 118

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| malu bertanya kerja manual... kebanyakan nanya (malas lihat post  |
| lama, nanya itu2 aja, males liat help) capeee deh... :( :( :(     | 
| 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

.

__,_._,___