Question

我要用vb6.0 建个小程序就是添加一个单击按钮可以调出一个已知excel表格要详细步骤我自己做的老是提示错

Answer 1

'添加部件Microsoft Common Dialog Control 6.0 (SP6)，并在form中画一个CommonDialog控件
'将以下代码添加到你需要的地方即可
Set wsh = CreateObject("WScript.Shell")
With CommonDialog1
    .DialogTitle = "选取文件"
    .Flags = 4
    .FileName = ""
    .InitDir = wsh.SpecialFolders("Mydocuments")
    .Filter = "Excel2003电子表格(*.xls)|*.xls"
    .ShowOpen
End With
strfilename = CommonDialog1.FileName
If strfilename = "" Then Exit Sub
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(strfilename)
xlapp.Visible = True