Question

我正在使用vb脚本（如下所示），以便从.xls文件中创建两个.csv文件。由于必须通过算法在迭代过程中使用，我想知道是否有可能自动覆盖两个生成的文件。现在我必须手动确认每次覆盖。代码不是我的，因为我是一个真正的新手，非常感谢你

if WScript.Arguments.Count < 2 Then
WScript.Echo "Error! Please specify the source path and the destination.    Usage: XlsToCsv SourcePath.xlsx Destination.csv"
Wscript.Quit
End If
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
Dim oBook
Set oBook = oExcel.Workbooks.Open(Wscript.Arguments.Item(0))  
Dim WS1
Set WS1 = oBook.WorkSheets.item("Base Reactions")
WS1.Activate
oBook.SaveAs WScript.Arguments.Item(1), 6
Dim WS2
Set WS2 = oBook.WorkSheets.item("Steel Sum - AISC 360-10")
WS2.Activate
oBook.SaveAs WScript.Arguments.Item(2), 6
oBook.Close true
oExcel.Quit

Answer 1

从对象浏览器（Alt + F11，F2，搜索SaveAs）

Sub SaveAs([Filename], [FileFormat], [Password], [WriteResPassword], [ReadOnlyRecommended], [CreateBackup], [AccessMode As XlSaveAsAccessMode = xlNoChange], [ConflictResolution], [AddToMru], [TextCodepage], [TextVisualLayout], [Local])
    Member of Excel.Workbook

按F1获取帮助

ConflictResolution   Optional XlSaveConflictResolution.

XlSaveConflictResolution可以是这些XlSaveConflictResolution常量之一。

xlUserResolution  (display the conflict-resolution dialog box) 
xlLocalSessionChanges (automatically accept the local user's changes) 
xlOtherSessionChanges  (accept other changes instead of the local user's changes)

如果省略此参数，则会显示冲突解决对话框。

自动覆盖vb脚本中的文件

1 个答案: