How to create cell border lines in Excel using VB code

Learn Certification
1

Dim xlApp As Microsoft.Office.Interop.Excel._Application = Nothing
Dim xlWorkBooks As Microsoft.Office.Interop.Excel.Workbooks = Nothing
Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook = Nothing
Dim xlWorkSheet1 As Microsoft.Office.Interop.Excel.Worksheet = Nothing
Dim xlWorkSheets As Microsoft.Office.Interop.Excel.Sheets = Nothing

xlApp=New Microsoft.Office.Interop.Excel.ApplicationClass
xlApp.DisplayAlerts=False
xlWorkBooks=xlApp.Workbooks
xlWorkBook=xlWorkBooks.Open(fileName_invoke)
xlApp.Visible = False
xlWorkSheets=xlWorkBook.Sheets

xlWorkSheet1= CType(xlWorkSheets(1),Microsoft.Office.Interop.Excel.Worksheet)

xlWorkSheet1.Range(“A1:K21”).Borders.LineStyle = XlLineStyle.xlContinuous

xlApp.ActiveWindow.Zoom = 100
xlWorkBook.Save()
xlWorkBook.Close() 'Book を閉じる
xlWorkBook = Nothing
xlApp.Quit() 'Quit メソッドを使って Excel を終了します。
xlApp = Nothing

2

Hello @etss1016!

It seems that you have trouble getting an answer to your question in the first 24 hours.
Let us give you a few hints and helpful links.

First, make sure you browsed through our Forum FAQ Beginner’s Guide. It will teach you what should be included in your topic.

You can check out some of our resources directly, see below:

  1. Always search first. It is the best way to quickly find your answer. Check out the image icon for that.
    Clicking the options button will let you set more specific topic search filters, i.e. only the ones with a solution.

  2. Topic that contains most common solutions with example project files can be found here.

  3. Read our official documentation where you can find a lot of information and instructions about each of our products:

  4. Watch the videos on our official YouTube channel for more visual tutorials.

  5. Meet us and our users on our Community Slack and ask your question there.

Hopefully this will let you easily find the solution/information you need. Once you have it, we would be happy if you could share your findings here and mark it as a solution. This will help other users find it in the future.

Thank you for helping us build our UiPath Community!

Cheers from your friendly
Forum_Staff