# VBScript Text To Columns

**URL:** <https://forum.robusta.ai/t/vbscript-text-to-columns/101>\
**Category:** FAQ\
**Created:** [April 28, 2022, 8:28am UTC](https://forum.robusta.ai/t/vbscript-text-to-columns/101 "2022-04-28T08:28:14Z")\
**Posts on this page:** 1\
**Page:** 1

<div class="post-metadata">

**Author:** ![ilayda.ipar](https://dub1.discourse-cdn.com/flex005/user_avatar/forum.robusta.ai/ilayda.ipar/32/56_2.png) [@ilayda.ipar](https://forum.robusta.ai/u/ilayda.ipar)\
**Post date:** [April 28, 2022, 8:28am UTC](https://forum.robusta.ai/t/vbscript-text-to-columns/101/1 "2022-04-28T08:28:14Z")

</div>

When you want to make text to columns in Excel, you can use the vbs code below.

```auto
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Visible = false
Set objXLWb = objXLApp.Workbooks.Open("D:\RPA_Projeler\ZES_STOK\2022\02\Gönderilenler\ZES_STOK_2022.02.22.xlsx")
Set oSheet = objXLWb.Worksheets(1) 
 
oSheet.Range("C:C").TextToColumns 
objXLWb.save
objXLWb.close false
objXLApp.Quit

Set objXLWb = nothing
Set objXLApp = nothing

```