<div>
I would recommend that you add the Excel topic area to your request. &nbsp;If you click Request Attention, request that a moderator add the Excel topic to your question.
</div>


I would recommend that you add the Excel topic area to your request.  If you click Request Attention, request that a moderator add the Excel topic to your question.

<div>
Hi Fyed..<br />
<br />
I have tried this under the excel subject and getting no luck with the vba<br />
Basically unable to complete the task...
</div>


Hi Fyed..

I have tried this under the excel subject and getting no luck with the vba
Basically unable to complete the task...

<div>
<div class="content wysiwyg-content">
Hi experts<br />
<br />
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.<br />
<br />
Dim xlPath As String, xlObj As Object<br />
Dim rs As DAO.Recordset, sql As String<br />
Dim RootMIdir As String<br />
<br />
Set xlObj = CreateObject(&quot;excel.applic<wbr />ation&quot;)<br />
&nbsp; &nbsp; &nbsp;xlObj.Workbooks.Open xlPath &amp;&nbsp;&quot;REPORT_1.xls&quot;<br />
&nbsp; &nbsp; &nbsp;<br />
&nbsp; &nbsp; &nbsp;With xlObj<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Worksheets(&quot;R_1&quot;).Select<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; sql = &quot;SELECT *&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; sql = sql &amp;&nbsp;&quot; FROM R_Data&quot;<br />
&nbsp; &nbsp; &nbsp;<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Set rs = CurrentDb.OpenRecordset(sq<wbr />l)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Range(&quot;a2&quot;).CopyFromRecor<wbr />dset rs<br />
<br />
<br />
I have removed the file path and the activeworkbook.save filename from the above code....
</div>
</div>


Hi experts

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"
     
     With xlObj
          .Worksheets("R_1").Select
          sql = "SELECT *"
          sql = sql & " FROM R_Data"
     
          Set rs = CurrentDb.OpenRecordset(sql)
          
          .Range("a2").CopyFromRecordset rs


I have removed the file path and the activeworkbook.save filename from the above code....

update current macrot to add boarders to a cell range

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.