0

出现错误：第 22 行字符 60 上的“预期 ')'”（即在 QueryTables.Add 函数中的“连接”处）。批处理文件正在调用此 VBA。我试图了解我的语法有什么问题，以便我可以调用 VB 作业将文本文件转换为格式化的 CSV。文本文件已经是制表符分隔的。

批处理文件：

pushd %~dp0                    **Used to get current DIR
set path=%~dp0                 **Used to set a path variable to send to VBScript
txtToCsv.vbs %path%            **Used to invoke the VBScript

VBA 脚本：

if WScript.Arguments.Count < 1 Then
     WScript.Echo "Error! Please specify the source path and the destination. Usage: txtToCsv Destination.csv"
     Wscript.Quit
End If
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
oExcel.DisplayAlerts = False

Dim oBook
Set oBook = oExcel.Workbooks.Add()
With oBook
    .Title = "Deal Data"
    .Subject = "Deal Data"
    .SaveAs WScript.Arguments(0)&"Deal_Data.xlsx"&YEAR(Date)&MONTH(Date)&DAY(Date)
End With

Dim sourceFile
Set sourceFile = "TEXT;"&WScript.Arguments(0)&"deal_data.txt"

Set ActiveSheet = Worksheets("Sheet1")
With ActiveWorkbook.ActiveSheet.QueryTables.Add(Connection:="TEXT;" & sourceFile,    Destination:=ActiveCell)
    .Name = "deal_data"
        .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 437
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With

oBook.Close False
oExcel.Quit
WScript.Echo "Done"
4

1 回答 1

0

您的第二个脚本是 VBScript，而不是 VBA，即使您在其中调用 Excel VBA 方法。虽然这两种语言有一些相似之处，但也存在一些根本差异。

  1. 您需要一个句柄来访问 VBA 方法和集合。

  2. 您不能在 VBScript 中使用名称参数。

此外，您似乎已经在变量中构造了连接字符串sourceFile。

更改以下 2 行：

Set ActiveSheet = Worksheets("Sheet1")
With ActiveWorkbook.ActiveSheet.QueryTables.Add(Connection:="TEXT;" & sourceFile,    Destination:=ActiveCell)

进入这个：

Set ActiveSheet = oBook.Worksheets("Sheet1")
With ActiveSheet.QueryTables.Add(sourceFile, oExcel.ActiveCell)

问题应该消失了。

于 2013-05-11T23:32:43.517 回答