(已经解决,是自己的错误造成的)敬请各位高手解决打开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编辑过]