一个关于OLE 的问题，大家帮忙

[zhufanamo]

要在一个OLE里显示一个以编辑好的EXCEL表格要做怎么做呀(EXCEL表是可以通过d.DialogTitle = "打开一个Excel 工作表" 来选择的)
下面是我写的
大家看看那错了呀
FROM里有控件COMMAND，OLE，还有一个名为D的COMMONDIALOG
Private Sub Command1_Click()
Dim dataname As String
d.DialogTitle = "打开一个Excel 工作表"
d.FileName = ""
d.InitDir = App.Path
d.Filter = "Excel 工作表后缀|*.xls"
d.ShowOpen
If d.FileName = "" Then Exit Sub
dataname = d.FileName
OLE1.SourceDoc = dataname
OLE1.Class = "Excel.Sheet.8"
OLE1.Visible = True
End Sub

[射天狼]

Private Sub Command1_Click()
Dim dataname As String
d.DialogTitle = "打开一个Excel 工作表"
d.FileName = ""
d.InitDir = App.Path
d.Filter = "Excel 工作表后缀|*.xls"
d.ShowOpen
If d.FileName = "" Then Exit Sub
dataname = d.FileName
OLE1.SourceDoc = dataname
OLE1.Class = "Excel.Sheet.8"
OLE1.CreateLink "C:\Downloads\人员简历-崔占民.xls"
OLE1.Visible = True
End Sub

[射天狼]

把那个文件名换成你的文件名就行了~~

[zhufanamo]

谢谢楼上的， 可是还是不行呀，
而且我用COMMONDIALOG
就是想通过他来选择EXCEL文件，从在OLE里体现出来呀
就是选择个表1，OLE里出现表1 的内容

[射天狼]

对啊,把我的那个文件换成你用COMMONDIALOG打开的文件名就行了~~

[射天狼]

我已经试过了怎么不行~~

[zhufanamo]

楼上的不好意思原来是代码打错
谢谢楼上的