Note:- add word library "Microsoft Word library " This is simply copy and paste value from excel to word and you need to select range (will be asked by program) which you want to transfer in word
Sub Button1_Click()
Dim wrd As New Word.Application
Dim doc As Word.Document
Dim RNG As Range
Set RNG = Application.InputBox("Please Select Range to Transfer in Word:",
Type:=8)
Set doc = wrd.documents.Add
wrd.Visible = True 'if you dont want to show wrd application then just use
false instead of true
RNG.Copy
wrd.Selection.Paste
Set tbl = doc.Tables(1)
doc.SaveAs2 ThisWorkbook.Path & "\" & ActiveSheet.Name & ".doc" 'change save
as path as per ur requirement
End Sub
-----Original Message-----
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of amar takale
Sent: Monday, March 31, 2014 3:35 PM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ VBA Code to Import Excel table in Word file
Dear Ashish Sir,
I learned many VBA work from your Code which is a lot of time saving & easy
to do. Before one week on our excel forum one topic discussed as (Macro to
Import Word Tables to Excel from a folder). I got code from word to excel
but I required excel to word.I use excel 2003.
Can you share code excel to word table as proper in one sheet with
respective sheet name.
I would appreciate very much if you can help me on this.
Regards
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please
Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will
not get quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security
measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups
"MS EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an
email to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.
NOTE : Don't ever post confidential data in a workbook. Forum owners and
members are not responsible for any loss.
---
You received this message because you are subscribed to the Google Groups "MS
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.
EXCEL TO WORD(TBL).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
