copying data from excel to word

[vivek.shankar]

HI!!
how can i copy all data from excel to word along with the cells?

Thanks and Regards
Vivek.s

[ALL]

i just did a little test in excell and word, i saved a .xls file and oppened it in word, and it oppened succesfully!

so what do you mean?

PS: unless you plan on somehow making a poject relating to this subject please dont cross-thred

[vivek.shankar]

hi!
can u post that code.........?

thanks and regards
vivek.s

[dglienna]

just save it in excel, and open it in word. no code required.

[vivek.shankar]

hi sorry........i wud like to copy data in sheet1 along with the cells(in a table) using my vb code.....

regards
vivek.s

[dglienna]

my copy of word will open spreadsheets.

[ALL]

why dont you just use:
Shell("C:\Program Files\Microsoft Office\Office\WINWORD.EXE book1.xls")

[vivek.shankar]

hi!
i opened excel from word but i get following output

 †††††††††††††††††††††††††††††††††††††††††††††††††††B
†††††††††††††††††††††††††††††††††††††††††††††††††††䈠Ȁ
1㐱㔹㠠†††††††††††††††††††††††††††††††††††††††††††††††††††䈀Ȁ
Arial1
Arial1
Arial1
Arial1
"$"#,##0_);\("$"#,##0\)
"$"#,##0_);[Red]\("$"#,##0\)
"$"#,##0.00_);\("$"#,##0.00\)
"$"#,##0.00_);[Red]\("$"#,##0.00\)
_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_)
_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)
_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)
_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)à
Sheet1
Sheet2
Sheet3
RECIEPT NUMBER
EMAIL ID
PASSPORT NUMBER
APPOINTMENT DATE ( mm-dd-yyyy)

while my desired output is

RECIEPT NUMBER
EMAIL ID
PASSPORT NUMBER
APPOINTMENT DATE ( mm-dd-yyyy)

in a table..........

regards
vivek.s

[vivek.shankar]

anyways to do this?

thanks and regards
vivek.s

[dglienna]

post it, and we'll take a look. you may have to copy/paste it into word.

[vivek.shankar]

hi
i have to do it using my VB program and data in excel shud be pated in a table in word.......

regards
vivek.s

[dglienna]

just open excel, copy the cells, open word and paste them.

[RobDog888]

Sup vivek. You can insert an Excel workbook into a Word document like
below. Change the parameters if you want a linked object, etc.

'Word application
Application.Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.8", FileName:= _
"D:\Book1.xls", LinkToFile:=False, DisplayAsIcon:=False

Not sure if this is how you need it but I thought I would post it and find out.

HTH

[ALL]

I started working on it once i realized noone else wants to takle this, (!!!NO OFFENCE!!!) and i got it to work sucessfully!!! just make a XLS called "Book1.xls" in drive C or just edit the code, and in the XLS put some data where ever, and then run this and it will make a file called "2.doc" on the C:\ and then open it and !Vwala!

Dim objExcel As Object
Dim objWord As Object
Set objExcel = CreateObject("excel.application")
Set objWord = CreateObject("word.application")
objWord.documents.Add
objExcel.workbooks.open ("C:\book1.xls")
objExcel.cells.Select
objExcel.cells.Copy
objWord.selection.Paste
objWord.activedocument.saveas "C:\2.doc"
Clipboard.Clear
objExcel.quit
objWord.quit
Set objWord = Nothing
Set objExcel = Nothing

PS: FYI, it is really slow!

[dglienna]

didn't you see RD's code? did you try it? (I didn't)

[vivek.shankar]

SUP GURU
WOW!!
THANKS A LOT GUYS!I'M GONNA TRY THESE OUT



Thanks and Regards
Vivek.s

[Karslive]

I tried the code.........its working well for the first sheet.........but how can i copy the contents from second sheet or 3rd sheet?

Regards
karthik

[RobDog888]

I tried the code.........its working well for the first sheet.........but how can i copy the contents from second sheet or 3rd sheet?

Regards
karthik

Which posted code are you refering to?

[Karslive]

i used the code given by All.......and modified to work for different sheets...i used this code

Set bk = objExcel.Workbooks.Open("C:\Book1.xls")
Set sh = bk.Worksheets("Sheet3")
sh.UsedRange.Copy

Now i am facing a problem.......on how to insert a string into word using VB.......

regards
karthi

[RobDog888]

If your using Alls code then the next line would be this - objWord.selection.Paste,
but you need his code to create the Word doc first.

HTH

[ALL]

i was going to add a thing so you could select what sheet to get data out of, but i figured i would keep it simple, it seems to work better usually