(已经解决，是自己的错误造成的)敬请各位高手解决打开Excel文件的问题。谢谢。 - VB6论坛

问题点数：0 回复次数：0

(已经解决，是自己的错误造成的)敬请各位高手解决打开Excel文件的问题。谢谢。

已经解决，是自己的错误造成的,以下是vb6打开Excel文件的代码，是可以打开Excel文件的。

Private Sub myOpen1()
  s = "e:\aBoo2.xls"
   If Dir(s) <> "" Then
      Set xlapp = CreateObject("Excel.Application")
      Set xlBook = xlapp.Workbooks.Open(s)
      xlapp.Visible = True
    End If
End Sub
Private Sub myOpen2()
  s = "e:\aBoo2.xls"
   If Dir(s) <> "" Then
      Set xlapp = CreateObject("Excel.Application")
      xlapp.Workbooks.Open s
      xlapp.Visible = True
    End If
End Sub

[此贴子已经被作者于2016-10-12 17:42编辑过]