VBAを使用して式内のファイル名への参照を削除する

Question

Excelワークブックから一連のワークシートをコピーして新しいワークブックに貼り付けようとしています。私が抱えている問題は、ワークシートを新しいワークブックにコピーすると、フォーミュラは古いワークブックへの参照であるということです。私はブックの名前を取得し、null文字で置き換えようとしましたが、私のコードは古いブックではなく新しいブックを参照していると思います。私は 'ThisWorkbook'と同様に 'ActiveWorkbook'と同様の機能を試しましたが、うまく機能していないようです。ここで

は

Sub CopyToNewWorkbook() 

    Dim ws As Worksheet 
    Dim i As Integer 
    Dim wbCurrent As Workbook 
    Dim wbName As Variant 
    Dim wbNew As Workbook 

    'wbName = ActiveWorkbook.Name 
    'wbName = ThisWorkbook.Name 
    Set wbCurrent = ActiveWorkbook 
    Set wbNew = Workbooks.Add 

    For Each ws In wbCurrent.Sheets 
    Do While wbNew.Sheets.Count <= (wbCurrent.Sheets.Count - 3) 
     For i = 3 To wbCurrent.Sheets.Count 
     wbCurrent.Sheets(i).Copy after:=wbNew.Sheets(wbNew.Sheets.Count)    
     Next i 
    Loop    
    Next ws 

    wbNew.Activate 
    Sheets("Sheet1").Select 
    ActiveWindow.SelectedSheets.Delete 

    Cells.Replace What:=MyName, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, _ 
     MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 

End Sub 

Answer 1

次のコードで目的の結果が得られました。

Sub CopyToNewWorkbook()  

    Dim ws As Worksheet 
    Dim i As Integer 
    Dim wbCurrent As Workbook 
    Dim wbName As Variant 
    Dim wbNew As Workbook 

    Call MyName 
    wbName = MyName 

    Set wbCurrent = ActiveWorkbook 
    Set wbNew = Workbooks.Add 

    For Each ws In wbCurrent.Sheets 
    ws.Visible = xlSheetVisible 
    Do While wbNew.Sheets.Count <= (wbCurrent.Sheets.Count - 3) 
     For i = 3 To wbCurrent.Sheets.Count 
     wbCurrent.Sheets(i).Copy after:=wbNew.Sheets(wbNew.Sheets.Count)    
     Next i 
    Loop    
    Next ws 

    wbNew.Activate 
    Sheets("Sheet1").Select 
     ActiveWindow.SelectedSheets.Delete 

    Cells.Replace What:=MyName, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, _ 
     MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False 

    Cells.Replace What:="'[" & wbName & "]", Replacement:="'", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:= _ 
     False, SearchFormat:=False, ReplaceFormat:=False 
End Sub 

Answer 2

はあなただけBreakLinksメソッドを使用することができませんでした....ここ

Function MyName() As String 
    MyName = ThisWorkbook.Name 
End Function 

は完全なコードです....機能ですか？

'Get all links 
    ExternalLinks = wbNew.LinkSources(Type:=xlLinkTypeExcelLinks) 

'Break each link 
For x = 1 To UBound(ExternalLinks) 
    wbNew.BreakLink Name:=ExternalLinks(x), Type:=xlLinkTypeExcelLinks 
Next x