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

来自:    更新日期:早些时候
VB6.0创建EXCEL~

createobject,百度VB Excel

Set xlapp = CreateObject("Excel.Application") '创建EXCEL对象

按功能键盘上的F5 运行就可以! 如果有错误,VB会出现新窗口,用汉字写出如何错误。在新窗口内点击调试,在代码窗口中出错的代码为黄色背景。 最后保存程序,单击“文件”菜单——选择“保存工程”。需要保存两个窗体,首先是.frm的应用程序窗体,然后是.vbp的工程文件。

'添加部件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



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

相关评论:

相关主题精彩

版权声明:本网站为非赢利性站点,内容来自于网络投稿和网络,若有相关事宜,请联系管理员

Copyright © 喜物网