Forum Discussion

Al2kmontes's avatar
Al2kmontes
Copper Contributor
Nov 13, 2023

Help debbuging - I have checked the path, files names, etc. any help is appreciated.

Private Sub Workbook_Activate() End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Workbooks("DONT DELETE.xls").Close SaveChanges:=False Kill "G:\Training Unit\Cadet Training\Unit Folder...
Macros and VBA
Al2kmontes's avatar
Al2kmontes
Copper Contributor
Nov 13, 2023
ActiveWorkbook.SaveAs "G:\Training Unit\Cadet Training\Unit Folder\Instructors\Class Material\Departments\Testing\DONT DELETE.xls"
  • HansVogelaar's avatar
    HansVogelaar
    MVP
    Nov 13, 2023

    Al2kmontes 

    Try replacing the lines

     

    Workbooks.Add
    ActiveWorkbook.SaveAs "G:\Training Unit\Cadet Training\Unit Folder\Instructors\Class Material\Departments\Testing\DONT DELETE.xls"
    Workbooks.Open Filename:="G:\Training Unit\Cadet Training\Unit Folder\Instructors\Class Material\Departments\Testing\DONT DELETE.xls"

     

    with

     

    Workbooks.Add.SaveAs FileName:="G:\Training Unit\Cadet Training\Unit Folder\Instructors\Class Material\Departments\Testing\DONT DELETE.xls", FileFormat:=xlExcel8

    • Al2kmontes's avatar
      Al2kmontes
      Copper Contributor
      Nov 13, 2023
      I got past that error message but now it is throwing other ones.
      -the file format and extension dont match.
      - cound not find.......(Path could not be found)

Resources