将输入保存在 csv 文件中 VB 脚本

Question

下面是原始文本文件中的脚本捕获。但我想将 csv 文件中的输入保存到单元格中。请帮忙

Dim employee_id, employee_name, system_running_status

employee_id = InputBox("Enter your Employee ID", "Employee ID")

employee_name = InputBox("Enter your Name", "Employee Name")

fission_running_status = InputBox("Did you Powered-On the system today (Yes/No) ?","Fission Server Status")

Set obj = CreateObject("Scripting.FileSystemObject")

Const ForWriting = 8

Set obj1 = obj.OpenTextFile("aap.txt", ForWriting)

obj1.WriteLine ("Employee: " & employee_name & "-" & employee_id & " turned on system on: ") & Now() & vbCr

obj1.Close                                            
Set obj=Nothing

Answer 1

您可以简单地重新格式化您的输出字符串：

Set obj1 = obj.OpenTextFile("aap.csv", ForWriting)
obj1.WriteLine employee_name & "," & employee_id & "," & Now() & vbCr

将输入保存在 csv 文件中 VB 脚本

saving input in a csv file VB script

vbscript