VBS 弹出文件选择框选择Excel文件数据导入自定义曲线

效果动画演示

 实现步骤

 第一步：创建“窗口0”

 第二步：变量字典双击，创建变量

 第三步：分别给 X 对应显示的值关联动画；Y值对应显示的值关联动画；增量设置显示和输入的值分别关联动画和事件“模拟值输入”关联设置；

第四步：XY曲线和自定义曲线设定曲线集合

 

第五步：导出“XY曲线”按钮事件==>左键按下；选择Excel文件数据导入“按钮事件”==>左键按下；

Call XY曲线0.ExportRealData("Series0")

 

'===============================win 7 & win 10 环境下使用

filePath= CreateObject("WScript.Shell").Exec("mshta vbscript:""<input type='file' id='f'><script>f.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(f.value);close();</script>""").StdOut.ReadAll
If Len(filePath)<=0 then
    Exit Sub
End If
If Len(filePath)>0 then
    quxiansuoyin=CInt( Var.曲线索引)
    dt=ReportCmd.DirectImportToDataTable(filePath)
    Call 自定义曲线0.DataTableDataLoad(dt,quxiansuoyin,0,1)
    Var.曲线索引=Var.曲线索引+1
End If