方法一，无法实现读取Excel数据

Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)                                         

On Error Resume Next 

Dim objExcelApp,objExcelBook,objExcelSheet,objExcelAsk

Dim fso

Dim fg

Dim sheetname,filepath

    filepath="D:\Trend\SD01.xlsx" '文件的路径全名

Set sheetname=HMIRuntime.SmartTags("TP_Name")'工作表名称

'sheetname="参数一"    '工作表名称

Set fso=CreateObject("Scripting.FileSystemObject")'创建文件对象模型

If (fso.FileExists(filepath)) Then

Set objExcelApp =CreateObject("Excel.Application") '创建表格对象模型

objExcelApp.Visible = False '设置表格对象可见，不可见=False

objExcelApp.Workbooks.Open  filepath '如果存在打开该文件，

objExcelApp.Worksheets(sheetname).Activate '激活工作表格

方法二，可以实现读取Excel数据

Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)                                 

On Error Resume Next 

Dim objExcelApp,objExcelBook,objExcelSheet,objExcelAsk

Dim fso

Dim sheetname,filepath

filepath="D:\Trend\SD01.xlsx" '文件的路径全名

sheetname="参数一"    '工作表名称

Set fso=CreateObject("Scripting.FileSystemObject")'创建文件对象模型

If (fso.FileExists(filepath)) Then

Set objExcelApp =CreateObject("Excel.Application") '创建表格对象模型

objExcelApp.Visible = False '设置表格对象可见，不可见=False

objExcelApp.Workbooks.Open  filepath '如果存在打开该文件，

objExcelApp.Worksheets(sheetname).Activate '激活工作表格

请大咖帮忙分析分析