宏命令语句(文件打开级内容处理).docxVIP

Function OpenExcelFile(sPath As String, ByVal sFileName As String, bDisplay As Boolean, sPwd As String) As Integer 许长安 时间: 2016-2-4 打开Excel文件 参数说明： sPath:文件绝对路径；sFileName:Excel文件名；bDisplay:True显示错误信息；sPwd:文件打开密码 返回值：-1:同名文件已经打开；-2:文件不存在或密码错误；0:成功打开；1:文件已经被打开 Dim bOpen As Boolean Dim sFullName As Str