小弟我在VB中用这些脚本为何无法向Excel中写数据

我在VB中用这些脚本为何无法向Excel中写数据？
Private   Sub   Command3_Click()
        If   Me.CommonDialog1.FileName   <>   " "   Then
                objExcel1.Workbooks.Open   (Me.CommonDialog1.FileName)
                objExcel1.Worksheets( "Sheet1 ").Cells(1,   1)   =   100
                objExcel1.DisplayAlerts   =   False     '不显示提示对话框
                objExcel1.Quit
                Set   objExcel1   =   Nothing
        End   If
End   Sub
按下按钮后Excel中一点数据都没有

[解决办法]
呵呵，恭喜楼主自己解决了问题。
[解决办法]
蹭点分
[解决办法]
呵呵
[解决办法]
这也有送分的，我也要