VBA to update ThisWorkbook's path and directory

[sio]

Create VBA function (on Workbook_Open) to update the path to the current directory and the current workbook in the custom query.

Idea:

ThisWorkbook = 
[
  folder = "C:/Docs/",
  path = "C:/Docs/Workbook.xlsm",
  filename = "Workbook.xlsm"
]

Inspired by http://excelunplugged.com/2018/01/23/modifying-power-query-m-code-with-vba/

[sio]

Implemented in https://github.com/sio/LibPQ/blob/master/VBA/LibPQ_ThisWorkbook.bas