Double Handling within working code Write to access and fire access macro

I Believe I could but i would need some support converting the access queries that are running so they would work in Excel.

Ive posted some examples below of the queries in access.

UPDATE Dates INNER JOIN Archive ON Dates.Dates = Archive.CalendarDate SET Archive.PlanYr = IIf([Archive].[CalendarDate]=[Dates].[Dates],1,0);

DELETE Archive.*, Archive.UploadDate, Archive.PlanYr
FROM Archive
WHERE (((Archive.UploadDate)=Date()) AND ((Archive.PlanYr)="1"));

INSERT INTO Archive ( CalendarDate, Details, Name, funct, TeamName, Location, Location2, Skill, UploadDate )
SELECT Dates.Dates, dbo_tbl_activity.Details, dbo_tbl_staff.Name, dbo_tbl_function.funct, dbo_tbl_cluster.TeamName, dbo_tbl_location.Location, dbo_tbl_location.LocationCode, dbo_tbl_skill.Skill, Date() AS Expr1
FROM Dates INNER JOIN ((((dbo_tbl_function INNER JOIN (dbo_tbl_activitytype INNER JOIN (dbo_tbl_activity INNER JOIN dbo_tbl_staff ON dbo_tbl_activity.idstaff = dbo_tbl_staff.id) ON dbo_tbl_activitytype.id = dbo_tbl_activity.Activitytype) ON dbo_tbl_function.id = dbo_tbl_staff.Funct) INNER JOIN dbo_tbl_cluster ON dbo_tbl_staff.Cluster = dbo_tbl_cluster.id) INNER JOIN dbo_tbl_location ON dbo_tbl_activity.Location = dbo_tbl_location.id) INNER JOIN dbo_tbl_skill ON dbo_tbl_staff.Skill = dbo_tbl_skill.id) ON Dates.Dates = dbo_tbl_activity.StartDate;

[/CODE]
UPDATE Archive SET Archive.HashTag = (IIf(IsNull([Details]),"#Free",IIf(InStr([Details],"#")>0,IIf(InStr(InStr([Details],"#"),[Details]," ")>0,Mid([Details],InStr([Details],"#"),InStr(InStr([Details],"#"),[Details]," ")-InStr([Details],"#")),Mid([Details],InStr([Details],"#"),999)),IIf(InStr([Details],"Bank Holiday")>0,"#hols",IIf(InStr([Details],"Holiday")>0 Or InStr([Details],"Leave")>0,"#Hols",IIf(InStr([Details],"Training")>0,"#Trng",IIf(InStr([Details],"Routine")>0,"#ROUT",IIf(InStr([Details],"left")>0,"#left",IIf(InStr([Details],"Directed")>0,"",IIf(InStr([Details],"Dutie")>0,"#Other",IIf(InStr([Details],"prep")>0,"#Prep",IIf(InStr([Details],"maint")>0,"#mtce"))))))))))))
WHERE (((Archive.HashTag) Is Null) AND ((Archive.UploadDate)=Date()));

[/CODE]