Need to IMPORT a Worksheet From another WorkBook

[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

 

[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

 

[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