Snasui Excel Forum

Code: Select all

Sub ExportFile_update()				
								
    Dim wb As Workbook				
    Dim lks As Variant				
    Dim i As Integer				
    				
    Sheets(Array("check", "AAA", "BBB", "CCC")).Select				
				
   Sheets(Array("check", "AAA", "BBB", "CCC")).Copy				
				
    				
    Set wb = ActiveWorkbook				
    lks = wb.LinkSources(Type:=xlExcelLinks)				
    				
    With wb				
        .SaveAs Filename:="D:\MyCom\TestRun.xlsm", _				
        Password:="", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False				
        For i = LBound(lks) To UBound(lks)				
            .BreakLink Name:=lks(i), Type:=xlExcelLinks				
        Next i				
    End With				
   				
    Range("M5").Select				
    ActiveWindow.Application.WindowState = xlNormal				
    				
    ActiveWorkbook.Save				
    				
    Windows("Info_Main.xlsm").Activate				
    Sheets("check").Select				
    Range("G1").Select				
				   				
End Sub  

Code: Select all

Dim lks As Variant, i As Integer
With ThisWorkbook
    lks = .LinkSources(Type:=xlLinkTypeExcelLinks)
    For i = LBound(lks) To UBound(lks)
        .BreakLink Name:=lks(i), Type:=xlExcelLinks
    Next i
End With
ChDir "D:\MyCom"
ActiveWorkbook.SaveAs Filename:="D:\MyCom\Test_run.xlsm", FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False