Need to IMPORT a Worksheet From another WorkBook
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
"Krefty" wrote:
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
|