Can you use VBA? If you do, you can place code in ThisWorkbook to update query string:
Sub UpdateQuery()
'This is just an example. Query must be changed accordingly
ThisWorkbook.Connections(1).ODBCConnection = "SELECT `Sheet1$`.a, `Sheet1$`.b FROM `" & ThisWorkbook.FullName & "`.`Sheet1$` `Sheet1$`"
End Sub
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
If Success Then UpdateQuery
End Sub
Private Sub Workbook_Open()
UpdateQuery
End Sub