'获取文件名（不含扩展名）

Function getFilename(text)
text = Left(text,inStrRev(text,".")-1)
getFilename = text

End Function

 

'获取扩展名

Function getExtn(text)
text = Left(text,inStr(text,".")-1)
getExtn = text
End Function
Function getFileExt(sFileName) 
getFileExt = Mid(sFileName,InstrRev(sFileName,".") + 1) 
End Function

微软office提供在线加载服务：
https://view.officeapps.live.com/op/view.aspx?src=xxx.xlsx
https://view.officeapps.live.com/op/embed.aspx?src=xxx.xlsx
参数：src：文件链接（不支持本地）
view：只读模式，带功能菜单
embed：只读模式，只有内容区