Need to IMPORT a Worksheet From another WorkBook

K

Krefty

I need to IMPORT an worksheet named "Report" in a workbook called
SendCom.xls. The worksheet that I am trying to update is called "sendcom" in
a workbook called GraphSendCom. I attempted doing this with the following
Macro but it does not work.

Any help would be greatly appreciated.

Sub main()

Dim destCell As Range
Dim totConspWkbk As Workbook

With Workbooks("GraphSendCom.xls").Worksheets("sendcom")
.UsedRange.Clear
Set destCell = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
End With

Workbooks.OpenText Filename:="G:\Gas_Control\EXCEL\DEPT\EOD @ Web
Reports\@ Web SendCom\sendcom.xls", _
Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1), _
Array(30, 1), Array(41, 1), Array(67, 1), Array(78, 1))

Set GraphSendCom = ActiveWorkbook

ActiveSheet.UsedRange.Copy _
Destination:=destCell

GraphSendCom.Close savechanges:=False

Application.Goto destCell, Scroll:=True

ActiveSheet.UsedRange.Columns.AutoFit
Close
End Sub
 
A

Atish

First open the excel file in which you would like to get the worksheet
imported (SendCom.xls).
Right click on "Report" worksheet, click on "Move or Copy", you will get a
small window. Select your file name (under "To book" dropdown) where you
would like to get your present worksheet to be imported (that will be
SendCom.xls).
Then click on the name of the worksheet before which you would like to get
your REPORT worksheet (under "before sheet").
To create a copy click on the check box saying "create a copy" and then
press OK.
Hope this is what you want......
Just trying to help
 
D

Dave Peterson

Check your other post, too.
I need to IMPORT an worksheet named "Report" in a workbook called
SendCom.xls. The worksheet that I am trying to update is called "sendcom" in
a workbook called GraphSendCom. I attempted doing this with the following
Macro but it does not work.

Any help would be greatly appreciated.

Sub main()

Dim destCell As Range
Dim totConspWkbk As Workbook

With Workbooks("GraphSendCom.xls").Worksheets("sendcom")
.UsedRange.Clear
Set destCell = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
End With

Workbooks.OpenText Filename:="G:\Gas_Control\EXCEL\DEPT\EOD @ Web
Reports\@ Web SendCom\sendcom.xls", _
Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1), _
Array(30, 1), Array(41, 1), Array(67, 1), Array(78, 1))

Set GraphSendCom = ActiveWorkbook

ActiveSheet.UsedRange.Copy _
Destination:=destCell

GraphSendCom.Close savechanges:=False

Application.Goto destCell, Scroll:=True

ActiveSheet.UsedRange.Columns.AutoFit
Close
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top