用VB脚本打开一个Excel文件，这个文件的文件名是动态创建的，如date-1,date-2,...,等等。
如下，大家帮忙看下：
Dim fso
Set fso = CreateObject("s cripting.FileSystemObject")
HMIRuntime.Tags("i").write fso.GetAbsolutePathName("")
Dim objTag,WriteDataToFile,dstr,str,fname
Set objTag = HMIRuntime.Tags("Tag1") '// 用Tag1计数，用来表示新建文件名的个数
objTag.Read
dstr = FormatDateTime(Date)
str=CStr(objTag.value)
'fname="D:\Foshan\"+dstr+"-"+str+".xls"
fname=HMIRuntime.ActiveProject.Path+"\"+dstr+"-"+str+".xls"
Dim ObjExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExCelApp.Visible = True
objExcelApp.Workbooks.Open fname
此路径下已创建文件，路径，文件都没问题！

此问题已解决，谢谢；