I need to create a vbscript (Not VBA) to copy a worksheet from one workbook
into another workbook.

Any help would be appreciated.

Hello everyone,

I would be interested in the a VBA example.

Thanks,
Himansu

"Bill Ebbing" <Bill wrote in message
...
I need to create a vbscript (Not VBA) to copy a worksheet from one
workbook
into another workbook.

Any help would be appreciated.

The macro recorder is your friend. If you know how to do it manually then
you can record the macrothen clean it up or post back here for more help.

--
Don Guillett
SalesAid Software

"Himansu" wrote in message
...
Hello everyone,

I would be interested in the a VBA example.

Thanks,
Himansu

"Bill Ebbing" <Bill wrote in message
...
I need to create a vbscript (Not VBA) to copy a worksheet from one
workbook
into another workbook.

Any help would be appreciated.

'This will open the file C:\data\ron.xls and copy Sheet1 in the Activeworkbook and then close C:\data\ron.xls

Sub test()
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Application.ScreenUpdating = False
Set Wb1 = ActiveWorkbook
Set Wb2 = Workbooks.Open("C:\data\ron.xls")
Wb2.Sheets("Sheet1").copy _
after:=Wb1.Sheets(Wb1.Sheets.Count)
Wb2.Close False
Application.ScreenUpdating = True
End Sub

If you need a example with two open workbooks post back


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Himansu" wrote in message ...
Hello everyone,

I would be interested in the a VBA example.

Thanks,
Himansu

"Bill Ebbing" <Bill wrote in message
...
I need to create a vbscript (Not VBA) to copy a worksheet from one
workbook
into another workbook.

Any help would be appreciated.

Ron, is this a reply to my request?

"Ron de Bruin" wrote:

'This will open the file C:\data\ron.xls and copy Sheet1 in the Activeworkbook and then close C:\data\ron.xls

Sub test()
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Application.ScreenUpdating = False
Set Wb1 = ActiveWorkbook
Set Wb2 = Workbooks.Open("C:\data\ron.xls")
Wb2.Sheets("Sheet1").copy _
after:=Wb1.Sheets(Wb1.Sheets.Count)
Wb2.Close False
Application.ScreenUpdating = True
End Sub

If you need a example with two open workbooks post back


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Himansu" wrote in message ...
Hello everyone,

I would be interested in the a VBA example.

Thanks,
Himansu

"Bill Ebbing" <Bill wrote in message
...
I need to create a vbscript (Not VBA) to copy a worksheet from one
workbook
into another workbook.

Any help would be appreciated.

No, to Himansu
See Dave's reply

I would be interested in the a VBA example.



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Bill Ebbing" wrote in message ...
Ron, is this a reply to my request?

"Ron de Bruin" wrote:

'This will open the file C:\data\ron.xls and copy Sheet1 in the Activeworkbook and then close C:\data\ron.xls

Sub test()
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Application.ScreenUpdating = False
Set Wb1 = ActiveWorkbook
Set Wb2 = Workbooks.Open("C:\data\ron.xls")
Wb2.Sheets("Sheet1").copy _
after:=Wb1.Sheets(Wb1.Sheets.Count)
Wb2.Close False
Application.ScreenUpdating = True
End Sub

If you need a example with two open workbooks post back


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Himansu" wrote in message ...
Hello everyone,

I would be interested in the a VBA example.

Thanks,
Himansu

"Bill Ebbing" <Bill wrote in message
...
I need to create a vbscript (Not VBA) to copy a worksheet from one
workbook
into another workbook.

Any help would be appreciated.

Thanks Ron.

"Ron de Bruin" wrote in message
...
'This will open the file C:\data\ron.xls and copy Sheet1 in the
Activeworkbook and then close C:\data\ron.xls

Sub test()
Dim Wb1 As Workbook
Dim Wb2 As Workbook
Application.ScreenUpdating = False
Set Wb1 = ActiveWorkbook
Set Wb2 = Workbooks.Open("C:\data\ron.xls")
Wb2.Sheets("Sheet1").copy _
after:=Wb1.Sheets(Wb1.Sheets.Count)
Wb2.Close False
Application.ScreenUpdating = True
End Sub

If you need a example with two open workbooks post back


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Himansu" wrote in message
...
Hello everyone,

I would be interested in the a VBA example.

Thanks,
Himansu

"Bill Ebbing" <Bill wrote in message
...
I need to create a vbscript (Not VBA) to copy a worksheet from one
workbook
into another workbook.

Any help would be appreciated.

Maybe something like:

Dim XLApp
Dim XLWkbk1
Dim XLWkbk2

Set XLApp = CreateObject("Excel.Application")
XLApp.Visible = True

Set XLWkbk1 = XLApp.Workbooks.Open("c:\my documents\excel\book1.xls")
Set XLWkbk2 = XLApp.Workbooks.Open("c:\my documents\excel\book2.xls")

XLWkbk1.Worksheets("sheet1").Copy _
XLWkbk2.Worksheets(1)

XLWkbk2.Close True

XLApp.Quit

Set XLWkbk2 = Nothing
Set XLWkbk1 = Nothing
Set XLApp = Nothing


..visible = true is nice for debugging.

Bill Ebbing wrote:

I need to create a vbscript (Not VBA) to copy a worksheet from one workbook
into another workbook.

Any help would be appreciated.

--

Dave Peterson