How would you amend the current vba in MS Access to add boarder to a range of data based on column A i.e. until the last cell with data in column A and until column AD.
Dim xlPath As String, xlObj As Object
Dim rs As DAO.Recordset, sql As String
Dim RootMIdir As String
Set xlObj = CreateObject("excel.application")
xlObj.Workbooks.Open xlPath & "REPORT_1.xls"
sql = "SELECT *"
sql = sql & " FROM R_Data"
Set rs = CurrentDb.OpenRecordset(sql)
I have removed the file path and the activeworkbook.save filename from the above code....