Hi

I've a button on an excel file and clicking on it will copy sheets
from another excel file. The sheets are copied but what happens is
that in the copied sheets, in the formulas, it copies the file name
from where the sheets are copied. Is there any way where I can just
copy the sheets and formulas without copying links? Manually it can be
done by Edit - Links and specify the current file name. But I want to
do it programatically.
Following is the code which copies the sheets.


Sub GetFile()
Dim FileName As String
Dim FilePath As String
Dim ControlFile As String
Dim i As Integer
ActiveWorkbook.Sheets("Loan Information").Select
FilePath = ActiveWorkbook.Sheets("Loan
Information").range("FilePath").Value
FileName = ActiveWorkbook.Sheets("Loan
Information").range("FileName").Value
ControlFile = ActiveWorkbook.Name
Workbooks.Open FileName:=FilePath & FileName

For i = 1 To Sheets.Count
Sheets(Trim(Sheets(i).Name)).Copy
After:=Workbooks(ControlFile).Sheets(Workbooks(Con trolFile).Sheets.Count)
Windows(FileName).Activate
Next
Windows(FileName).Activate
Windows(FileName).Close SaveChanges:=False
ActiveWorkbook.Save
Windows(ControlFile).Activate
End Sub


Thanks & Regards
Jignesh Gandhi

Assuming that the formulas should be linked to the same cell but in the
current workbook and not the external workbook, you can choose the command
Edit, Links, Change Source and specify your current workbook.

--
Cheers,
Shane Devenshire


"Jignesh Gandhi" wrote:

Hi

I've a button on an excel file and clicking on it will copy sheets
from another excel file. The sheets are copied but what happens is
that in the copied sheets, in the formulas, it copies the file name
from where the sheets are copied. Is there any way where I can just
copy the sheets and formulas without copying links? Manually it can be
done by Edit - Links and specify the current file name. But I want to
do it programatically.
Following is the code which copies the sheets.


Sub GetFile()
Dim FileName As String
Dim FilePath As String
Dim ControlFile As String
Dim i As Integer
ActiveWorkbook.Sheets("Loan Information").Select
FilePath = ActiveWorkbook.Sheets("Loan
Information").range("FilePath").Value
FileName = ActiveWorkbook.Sheets("Loan
Information").range("FileName").Value
ControlFile = ActiveWorkbook.Name
Workbooks.Open FileName:=FilePath & FileName

For i = 1 To Sheets.Count
Sheets(Trim(Sheets(i).Name)).Copy
After:=Workbooks(ControlFile).Sheets(Workbooks(Con trolFile).Sheets.Count)
Windows(FileName).Activate
Next
Windows(FileName).Activate
Windows(FileName).Close SaveChanges:=False
ActiveWorkbook.Save
Windows(ControlFile).Activate
End Sub


Thanks & Regards
Jignesh Gandhi

Hi

Thanks for your reply. But I want to do it programmatically and not
using the menu option. I have mentioned it in my post.

Thanks
Jignesh Gandhi

Hi,

You could try this, it works for me:

Cells.Replace What:="[*]", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
--
Thanks,
Shane Devenshire


"Jignesh Gandhi" wrote:

Hi

Thanks for your reply. But I want to do it programmatically and not
using the menu option. I have mentioned it in my post.

Thanks
Jignesh Gandhi

Hi Jignesh,

Yes, there is a way to copy the sheets and formulas without copying links. You can use the Paste Special feature in Excel to achieve this.

Here are the steps to do it:

1. Copy the sheets from the source workbook to the destination workbook using the code you provided.
2. In the destination workbook, select the cells that contain the formulas with links.
3. Right-click on the selected cells and choose "Copy" or use the keyboard shortcut "Ctrl+C".
4. Right-click on the same selection of cells and choose "Paste Special" or use the keyboard shortcut "Ctrl+Alt+V".
5. In the "Paste Special" dialog box, select "Values" and click "OK".

This will replace the formulas with their values, removing the links to the source workbook.