Control Excel with Access (Complicated Export)

Question

I would like to have MS Access:
Open this Excel Sheet: 
\\Cable\West-Groups\TCR\Construction\Reports\Data.xlsx
Save it as: 
\\Cable\West-Groups\TCR\Construction\Dashboard\Data.xlsx
Close: 
\\Cable\West-Groups\TCR\Construction\Dashboard\Data.xlsx
Export the table [05-Job] to the tab [Data] of
\\Cable\West-Groups\TCR\Construction\Dashboard\Data.xlsx
Open the Excel Sheet: 
\\Cable\West-Groups\TCR\Construction\Dashboard\Data.xlsx
Make the Excel Sheet Visible (this might be required from my past experience with Excel)
I know this is possible, but I don’t know where to start with the code.
Note:  Our department is using Office 2013 (if this matters)

Answer 1

I don't know if this helps, but I do something similar in Excel (to create and control both excel and pdf), but I can't seem to make "what I call simular commands" work in Access to control Excel.
Note:  On using just the code you gave above, I get a VB Compile Error Expected =
Sub Button31_Click()
On Error GoTo ErrorMessage:
Sheet3.Unprotect
Sheet3.Range("AE21") = Environ("USERNAME")
If UCase(Sheet3.Range("AE21")) <> UCase(Sheet3.Range("AE22")) Then
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
MsgBox "At this time, this function works for the serviceability group only"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
If Len(Range("a6")) <> 4 Or Len(Range("a6")) = 0 Then
MsgBox "Error - City Agent"
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
If Len(Range("e6")) > 18 Or Len(Range("e6")) = 0 Then
MsgBox "Error - City Name"
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
If Len(Range("l6")) > 9 Or Len(Range("l6")) = 0 Then
MsgBox "Error = City Abbreviation"
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
If Len(Range("q6")) > 2 Or Len(Range("q6")) = 0 Then
MsgBox "Error - Head End"
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
If Len(Range("u6")) <> 2 Or Len(Range("u6")) = 0 Then
MsgBox "Error - Management Area"
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
If Len(Range("y6")) <> 2 Or Len(Range("y6")) = 0 Then
MsgBox "Error - Service Area"
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
'If Len(Range("ac6")) > 5 Or Len(Range("ac6")) = 0 Then
'MsgBox "Error - Hub"
'Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
'Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'Exit Sub
'End If
If Len(Range("ak6")) <> 2 Or Len(Range("ak6")) = 0 Then
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "Error - State"
Exit Sub
End If
If Len(Range("AN6")) <> 5 Or Len(Range("AN6")) = 0 Then
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox "Error - Zip Code"
Exit Sub
End If
If Len(Range("aq6")) = 0 Then
MsgBox "Notice - Complex Code Is Missing. This is a warning only, continueing with operation"
End If
If Len(Range("aq6")) < 4 And Len(Range("aq6")) > 0 Then
MsgBox "Error - Complex Code"
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
If Len(Range("aq6")) > 5 Then
MsgBox "Error - Complex Code"
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
If Len(Range("f15")) = 0 Then
MsgBox "Error - Project Name"
Exit Sub
End If
If Len(Range("as15")) = 0 Then
MsgBox "Error - Date"
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
End If
Dim Z As String
Sheet1.Unprotect
Z = Right("1000" & Sheet1.Range("K1"), 4)
Sheet1.Range("K1") = Z + 1
ActiveSheet.Unprotect
Range("a1").Value = Environ("USERNAME") & " " & Date
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Dim X As String
Dim fnm1 As String
Dim flnm As String
Dim fnm2 As String
Dim strFilePath As String
X = Sheet3.Range("BA3")
Sheets("Export").Visible = True
Sheets("eSlam").Visible = True
Sheets("Export").Select
Range("A1:BF1101").Clear
Sheets("eSlam").Select
Range("A1:BF" & X).Select
Selection.Copy
Sheets("Export").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
flnm = Right("0000" & Year(Sheet1.Range("AS15")), 4) & Right("00" & Month(Sheet1.Range("AS15")), 2) & Right("00" & Day(Sheet1.Range("AS15")), 2) & " CSV" & Z & " " & Sheet1.Range("F15")
fnm1 = Mid(ActiveWorkbook.Name, 1, InStr(ActiveWorkbook.Name, ".") - 1) 'XLS Name
Sheet4.Copy
fnm2 = ActiveWorkbook.Name
Windows(fnm1).Activate
Sheets("Template").Select
Cells(13, 6).Select
Sheets("Export").Visible = False
Sheets("eSlam").Visible = False
Windows(fnm2).Activate
strFilePath = "G:\Construction\Common\Serviceability\eSlam\" & flnm
ActiveWorkbook.SaveAs strFilePath, xlCSV
ActiveWorkbook.Close (False)
Windows(fnm1).Activate
flnm = Right("0000" & Year(Sheet1.Range("AS15")), 4) & Right("00" & Month(Sheet1.Range("AS15")), 2) & Right("00" & Day(Sheet1.Range("AS15")), 2) & " SRC" & Z & " " & Sheet1.Range("F15")
strFilePath = "G:\Construction\Common\Serviceability\eSlam\" & flnm
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilePath & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Windows(fnm1).Activate
MsgBox "Your CSV and PDF documents are now available in the 'G:\Construction\Common\Serviceability\Eslam\' folder."
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Exit Sub
Sheet3.Range("AE21") = "Do Not Change/Move This Cell"
Sheet1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheet3.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ErrorMessage:
MsgBox "An error occured, please save and close your file, and try again. If error continues, please contact support staff"
End Sub