Skip to Content

SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

SiePortalDeutsch

Search

Home
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menu temporary not available
- Menue temporary not available
- {{item.title}}

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

Exporting data to excel with VBScript

Created by: umutorkan at: 8/24/2021 2:44 PM (6 Replies)

Rating (1)

Thanks 0

7 Entries

8/24/2021 2:44 PM	Rate (0)
umutorkan Regular Member Joined: 10/20/2019 Last visit: 1/10/2025 Posts: 14 Rating: (0)	Hello, I have been data exporting with VBScript to excel file I have a problem with it. In excel, my collumns' number formats are 0.00E+00. I want to change it to 0.00, when I try to fix it in excel file the new values are written with same format (0.00E+00). Is ıt possible to change the number format of the excel with vbscript while exporting ? Best regards. Here is my code; FolderPath = "C:\Users\Pres\Desktop\Rapor Dosyası" Filename = "Akım Raporu.csv" Set ObjectPath = CreateObject("Scripting.FilesystemObject") 'Check if folder exists If Not ObjectPath.FolderExists(FolderPath) Then ObjectPath.CreateFolder FolderPath End If ' Check if file exists Set File = CreateObject("Scripting.FilesystemObject") FileExist = File.FileExists(FolderPath & "\" & Filename) If FileExist = False Then File.CreateTextFile(FolderPath & "\" & Filename) Set Apendix = File.OpenTextFile(FolderPath & "\" & Filename, 8) Apendix.WriteLine(" Tarih ; Saat ; Tambur ; Helezon ; Besleme ; Sıcak Su ; Mixer ; Vibrasyon") Apendix.Close Set File = Nothing End If 'Write data to file Set File = CreateObject("Scripting.FilesystemObject") Set Row = File.OpenTextFile(FolderPath & "\" & Filename, 8) Row.WriteLine(Date & ";" & Time & ";" & SmartTags("Tambur_Akımı") & ";" & SmartTags("Helezon_Akımı") & ";" & SmartTags("HY_Motor_Akımı_Real") & ";" & SmartTags("Sıcak_Su_Akım") & ";" & SmartTags("Mixer_Akım") & ";" & SmartTags("Vibrasyon") & ";") Row.Close Set File = Nothing
	Last edited by: umutorkan at: 08/24/2021 14:45:53 Last edited by: umutorkan at: 08/24/2021 14:46:21
Suggestion To thank Quote Answer

8/24/2021 7:06 PM	Rate (0)
Prof. Frink Platinum Expert Joined: 7/5/2013 Last visit: 4/25/2025 Posts: 3149 Rating: (524)	Hello umutorkan, the script only writes to a csv-file which contains no formatting data - like a txt-file. Formatting is done by Excel when viewing the csv-file there. Regards, Frink
	Pi is exactly three! All you have to do is think of things which people need but which don’t exist yet.
Suggestion To thank Quote Answer

8/25/2021 11:04 PM	Rate (1)
rdoliveira Gold Expert Joined: 4/26/2012 Last visit: 4/25/2025 Posts: 1629 Rating: (186)	umutorkan Hello, I have been data exporting with VBScript to excel file I have a problem with it. In excel, my collumns' number formats are 0.00E+00. I want to change it to 0.00, when I try to fix it in excel file the new values are written with same format (0.00E+00). Is ıt possible to change the number format of the excel with vbscript while exporting ? Best regards. Here is my code; FolderPath = "C:\Users\Pres\Desktop\Rapor Dosyası" Filename = "Akım Raporu.csv" Set ObjectPath = CreateObject("Scripting.FilesystemObject") 'Check if folder exists If Not ObjectPath.FolderExists(FolderPath) Then ObjectPath.CreateFolder FolderPath End If ' Check if file exists Set File = CreateObject("Scripting.FilesystemObject") FileExist = File.FileExists(FolderPath & "\" & Filename) If FileExist = False Then File.CreateTextFile(FolderPath & "\" & Filename) Set Apendix = File.OpenTextFile(FolderPath & "\" & Filename, 8) Apendix.WriteLine(" Tarih ; Saat ; Tambur ; Helezon ; Besleme ; Sıcak Su ; Mixer ; Vibrasyon") Apendix.Close Set File = Nothing End If 'Write data to file Set File = CreateObject("Scripting.FilesystemObject") Set Row = File.OpenTextFile(FolderPath & "\" & Filename, 8) Row.WriteLine(Date & ";" & Time & ";" & SmartTags("Tambur_Akımı") & ";" & SmartTags("Helezon_Akımı") & ";" & SmartTags("HY_Motor_Akımı_Real") & ";" & SmartTags("Sıcak_Su_Akım") & ";" & SmartTags("Mixer_Akım") & ";" & SmartTags("Vibrasyon") & ";") Row.Close Set File = Nothing Hello, try this, use the Round, I test with 3 decimal places. Row.WriteLine(Date & ";" & Time & ";" & CStr( Round( SmartTags("Mixer_Akım"),3)) & ";" & CStr(Round( SmartTags("Vibrasyon"),3)) & ";") good luck
	"Always make a backup before performing any tests and check the best time to do so. Obrigado.
Suggestion To thank Quote Answer

9/3/2021 11:22 AM	Rate (0)
Murof Platinum Expert Joined: 8/3/2009 Last visit: 4/25/2025 Posts: 15355 Rating: (1895)	Hello if you work with a PC based Runtime (WinCC Advanced RT or WinCC Professional RT) and you have installed MS Excel (32 bit) on this system then you can also use the MS Automation interface of excel to create and edit xls Files directly (in CSV Files you only can write asci no format information) Bye Murof
	If this Information really helps, you could use the Rate function
Suggestion To thank Quote Answer

9/8/2021 9:11 AM	Rate (0)
umutorkan Regular Member Joined: 10/20/2019 Last visit: 1/10/2025 Posts: 14 Rating: (0)	Thank you so much I will try

Suggestion To thank Quote Answer

9/8/2021 9:33 AM	Rate (0)
umutorkan Regular Member Joined: 10/20/2019 Last visit: 1/10/2025 Posts: 14 Rating: (0)	Thank you so much it worked

Suggestion To thank Quote Answer

9/8/2021 9:33 AM	Rate (0)
umutorkan Regular Member Joined: 10/20/2019 Last visit: 1/10/2025 Posts: 14 Rating: (0)	rdoliveira umutorkan Hello, I have been data exporting with VBScript to excel file I have a problem with it. In excel, my collumns' number formats are 0.00E+00. I want to change it to 0.00, when I try to fix it in excel file the new values are written with same format (0.00E+00). Is ıt possible to change the number format of the excel with vbscript while exporting ? Best regards. Here is my code; FolderPath = "C:\Users\Pres\Desktop\Rapor Dosyası" Filename = "Akım Raporu.csv" Set ObjectPath = CreateObject("Scripting.FilesystemObject") 'Check if folder exists If Not ObjectPath.FolderExists(FolderPath) Then ObjectPath.CreateFolder FolderPath End If ' Check if file exists Set File = CreateObject("Scripting.FilesystemObject") FileExist = File.FileExists(FolderPath & "\" & Filename) If FileExist = False Then File.CreateTextFile(FolderPath & "\" & Filename) Set Apendix = File.OpenTextFile(FolderPath & "\" & Filename, 8) Apendix.WriteLine(" Tarih ; Saat ; Tambur ; Helezon ; Besleme ; Sıcak Su ; Mixer ; Vibrasyon") Apendix.Close Set File = Nothing End If 'Write data to file Set File = CreateObject("Scripting.FilesystemObject") Set Row = File.OpenTextFile(FolderPath & "\" & Filename, 8) Row.WriteLine(Date & ";" & Time & ";" & SmartTags("Tambur_Akımı") & ";" & SmartTags("Helezon_Akımı") & ";" & SmartTags("HY_Motor_Akımı_Real") & ";" & SmartTags("Sıcak_Su_Akım") & ";" & SmartTags("Mixer_Akım") & ";" & SmartTags("Vibrasyon") & ";") Row.Close Set File = Nothing Hello, try this, use the Round, I test with 3 decimal places. Row.WriteLine(Date & ";" & Time & ";" & CStr( Round( SmartTags("Mixer_Akım"),3)) & ";" & CStr(Round( SmartTags("Vibrasyon"),3)) & ";") good luck Thank you so much it worked

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on