在启用宏的工作簿中打开csv文件并进行更改，保存未启用宏的cvs文件

Question

我有一个.csv文件，该文件会经常生成并使用时间戳命名。 我需要在其中运行宏并更新.csv文件。 我使用此解决方案从外部Excel运行Excel宏使用“从命令行使用VBScript ”运行宏，但是我的问题是，如果没有启用宏并保存更改，则无法保存.csv文件。 我只有一张csv文件。 谢谢您的帮助！ 这是我正在使用的代码（从该链接获得）：

   Dim oFSO
   Dim oShell, oExcel, oFile, oSheet
   Set oFSO = CreateObject("Scripting.FileSystemObject")
   Set oShell = CreateObject("WScript.Shell")
   Set oExcel = CreateObject("Excel.Application")
   Set wb2 = oExcel.Workbooks.Open("D:\.....\PERSONAL.XLSB") 'Specify     foldername here 

   oExcel.DisplayAlerts = False

   For Each oFile In oFSO.GetFolder("D:\..\Output1\").Files
      If LCase(oFSO.GetExtensionName(oFile)) = "csv" Then
 
         With oExcel.Workbooks.Open(oFile, 0, True, , , , True, , , , False, , False)
         oExcel.Run wb2.Name & "!final1"
         
         End With
      End If
   Next

Answer 1

csv文件是文本文件。 使用文本编辑器打开它，您将看到。

它没有将宏嵌入其中的功能。

您需要将宏包含在excel文件中，并使其执行所需的工作