时间戳

首页 > 解决方案 > 如何在 vbscript 中“写入新的 .csv 文件”或“另存为新的 .csv 文件”

csv - 如何在 vbscript 中“写入新的 .csv 文件”或“另存为新的 .csv 文件”

问题描述

我有一个文本文件作为读取的输入和一个输出文本文件 (.csv) 用于写入。来自输入的错误被写入输出。我遇到的问题是多人可以使用该脚本，我不希望输出文件有任何问题。

可以从任何位置选择输入文件。但是输出文件位置在我的脚本中被硬编码到网络位置。

我尝试做的是在脚本运行时写入输出 .csv 文件。在脚本结束时，提示用户查看输出文件（错误列表）。我想将原始 .csv 文件另存为，然后让用户打开该文件，这样就不会使用原始文件。

Sub subExternalFile
strFilter = ""
strExternalFilePath = funcSolicitFile(strFilter)
strExternalFilePath1 = 
    "\\DAYFS02\mortsvc$\_Scripts_Custom\TaskScript_OutPut.csv"  
Set objFile = 
     oFileObject.OpenTextFile(strExternalFilePath,ForReading)
     Set objFileOutput = 
     oFileObject.OpenTextFile(strExternalFilePath1,ForWriting)
       funcRunScriptConfirmation
End Sub

If strMsgBox = 6 Then

      OutputFileLocation = 
      "\\DAYFS02\mortsvc$\_Scripts_Custom\Task_Script_Output" & 
      Task_ID & "__" & Year(Date) & Right("0" & Month(Date),2) & 
      Right("0" & Day(Date),2) & ".csv"

      Set oExcelObject = GetObject("","Excel.Application")
      oExcelObject.DisplayAlerts = False
      oExcelObject.Workbooks(1).SaveAs "OutputFileLocation", 6

      Set ExcelWorkbook = 
      oExcelObject.Workbooks.Open(OutputFileLocation)
      oExcelObject.Application.Visible = True
        Wscript.Quit

Else            
   subTerminateScript("Script Completed")
End If

我想写入原始文件并保存为新的 .csv 文件，以便脚本用户不会使用原始文件。或者我只想能够打开一个新的 .csv 文件并写入该文件而根本不保存。

标签： csvvbscriptsave-as

解决方案

推荐阅读