文件路径或文件名有空格，用Shell打开这个文件，应在文件名前后都加上Chr(34)（Chr(34)为英文双引号“"”），如下面这个例子：

Private Sub cmd打开_Click()
  Dim strPathName As String
  strPathName = "D:\My Documents\人 员表.xls"
  Shell "Excel.exe " & Chr(34) & strPathName & Chr(34), 3
End Sub