2023年12月2日发(作者：)

打开CSV文件.vbs829363738394647484950'*****************************************''   1、利用通用文件对话框选择要打开的文件' 2、利用vbs脚本启动Excel并打开CSV文件''*****************************************Option ExplicitOn Error Resume NextDim openDialog'实例化通用对话框对象Set openDialog = ScreenItems("OpenFile")'打开的CSV文件路径filePath =  & "Report"'设置对话框属性Title ="请选择需要打开的报表文件"'过滤文件类型 = "CSV文件(*.CSV)|*.CSV"

'默认文件类型tExt = ".csv"'初始化文件选择路径r = filePath'显示对话框en'选择文件strFileName = me

'*****************************************'   利用vbs脚本启动打开Excel文件'*****************************************Dim shellDim exePathDim exeNameDim strPara2021/3/8 21:16'Excel应用程序路径exePath = "C:Program FilesMicrosoft OfficerootOffice16"'Excel应用程序名exeName = " "If strFileName = "" Then  Msgbox "请选择报表文件"Else strPara = exePath & exeName  & strFileName '实例化Shell对象页 1 共 2打开CSV文件.vbs5152535455 Set shell = Createobject("")2021/3/8 21:16 '执行应用程序   strParaEnd If页 2 共 2