-1

我有一个这样的 Excel 文件：

Excel 数据

这个文件可以有两个以上的组。在 VBScript（用于 Siemens WinCC）中，我想按组（一个可视数组）收集数据。使用对象和记录集，我可以浏览所有文件，但如何才能仅按名称获取数字值？

我想要的是例如：

获取 PLTTZF, 1.043, 0, 1.5, 1.043 其中 Name=FORME 1.5/1 PLAN42

我试过这样的查询：

StrSQL = "SELECT [F4] FROM [01$] where [F2]='FORME 1.5/1 PLAN42'"

但它不返回任何值，因为名称只写在一个单元格上。

你有解决方案吗？

4

2 回答 2

0

我已经完成了这个脚本：

Const EXCEL_FILE= "C:\Temp\datatest.xls"
Dim strConnectionString
Dim StrSQL
Dim objConnection, objCommand, objRecordset


Dim i, strNaam, line, flag, counter,counter2, lineOK, row
Dim Search
Search = "FORME 1.5/1 PLAN42"


strConnectionString = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" &    EXCEL_FILE  & "; ReadOnly=False;"

'StrSQL = "SELECT [F3],[F4],[F5],[F6],[F7],[F8],[F9] FROM [01$] where [F2]='FORME 1.5/1 PLAN42'"
StrSQL = "SELECT * from [01$]"

Set objConnection = CreateObject("ADODB.Connection")

objConnection.ConnectionString = strConnectionString

objConnection.Open

Set objCommand = CreateObject("ADODB.Command")

objCommand.ActiveConnection = objConnection

objCommand.CommandText = strSQL

Set objRecordset=objCommand.Execute

objRecordset.Movefirst

line = 0
flag = 0
counter = 0
counter2 = 0
lineOK = 0
row = 0

Dim tmpvalue
While Not objRecordset.EOF
    line = line + 1

    For i = 0 To 8'objRecordset.Fields.Count - 1
        HMIRuntime.Trace "Data : " & objRecordset.Fields(i).Name & " " & objRecordset.Fields(i).Value & vbNewline

        If flag = 1  Then

            'If counter < 9  Then
                tmpvalue = tmpvalue & objRecordset.Fields(i).Value & ";"
                counter = counter + 1

            'End If 


            'If counter = 9 Then
                'counter = 0
                'tmpvalue = tmpvalue & vbNewline
            'End If
            'HMIRuntime.Trace "Data : " & objRecordset.Fields(i).Name & " " & objRecordset.Fields(i).Value & vbNewline
            'strNaam = objRecordset.Fields(0).Value
            'HMIRuntime.Trace "Data2 : " & strNaam & vbNewline
            'HMIRuntime.Trace "Line : " & line & vbNewline
        End If

        If objRecordset.Fields(i).Value = Search Then
            flag = 1
            lineOK = line
        End If

        If line = lineOK + 5 Then
            flag = 0
        End If

        If i = 8 Then 
            tmpvalue = tmpvalue & vbNewline
        End If
    Next    

    objRecordset.MoveNext

Wend
HMIRuntime.Trace tmpvalue

这是工作它给我的结果：

;;;;;;;
;;PLTZF;1.043;0;;1.5;1.043;;
;;FRTZF;0.622;0; ;1;0.622; ;
;;MAX;0.522;0;;0.75;0.522;;
;;MIN;-0.389;0;;0.75;-0.389; ;

但是记录集错过了一些列，如果我浏览所有数据，记录集没有找到“实际”、“名义”、“Tol+”和“Dev”：

Data : F1 
Data : F2 
Data : F3 
Data : F4 
Data : F5 
Data : F6 Tol -
Data : F7 
Data : F8 
Data : F9 Out

例如，我没有得到“-0,75”，我不知道为什么：

Data : F3 MAX
Data : F4 0.522
Data : F5 0
Data : F6 
Data : F7 0.75
Data : F8 0.522
于 2019-11-13T15:12:29.897 回答
-1

使用其他驱动解决。

于 2019-11-20T08:11:00.140 回答