i have a sheet that connects to an oracle database. i want to be able to have vba that will copy a sheet from that workbook post the values and formatting in to another workbook in a server location and rename that tab(worksheet) to todays date.
i already have the oracle connection going collecting the data just having an issue with my vba it get an error... any help would be greatly appreciated
Sub Test() 'Update Links ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources, Type:=xlExcelLinks 'Refresh Workbook Workbooks("TWO WEEK COUNT 2022").RefreshAll 'Shut off Prompts Application.DisplayAlerts = False 'Open a workbook 'Open method requires full file path to be referenced. Workbooks.Open "\\serverpath\2 Week Count.xlsx" Workbooks("TWO WEEK COUNT 2022.xlsm").Activate Sheets("2018 1 Hour Counts").Copy After:=Workbooks("2 Week Count.xlsx").Sheets(Workbooks("2 Week Count.xlsx").Sheets.Count) ActiveSheet.Range("A1:AI80").Copy ActiveSheet.Range("A1:AI80").PasteSpecial xlPasteValues ActiveSheet.Shapes("Rectangle: Rounded Corners 1").Delete ActiveSheet.Shapes("Rectangle: Rounded Corners 2").Delete Dim Val As String Val = Sheets("2018 1 Hour Counts").Format(Date"MMM DD").Value ActiveSheet.Name = Val ActiveWorkbook.Save ActiveWorkbook.Close End Sub