大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
一定要先在VB中添加excel引用。
在兖州等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供成都网站设计、网站制作 网站设计制作按需定制,公司网站建设,企业网站建设,成都品牌网站建设,全网营销推广,外贸网站制作,兖州网站建设费用合理。
在工程中引用Microsoft Excel类型库: 从"工程"菜单中选择"引用"栏;选择Microsoft Excel 11.0 Object Library(EXCEL2003),然后选择"确定"。表示在工程中要引用EXCEL类型库。
调用excel的工作表中的命令按钮,代码如下:
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "e:\data.xls" '打开的工作簿路径名称
SheetName = "sheet1" '命令按钮所在的工作表名
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
……
xlBook.Close (True) '保存并关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
end sub
你好,你使用这种方法只是在控制Form3的visible属性,Form3只是可见或隐藏,并不是真正的关闭了,而你使用Form3上的关闭按钮,他就是真的关闭了,是调用的Form3的Close方法,就是真的没有了,"我设置的S_form3就不起作用了”这句话你应该是想说按钮不起作用了吧,你的S_form3只是个变量,跟Form3没有什么关系,你只是用来当一个Form3可见性的标志,使用bool变量更能清楚表达你的意图。。。没必要用string啊。。。,
by the way,你在按钮事件里添加代码 Form3.Close()就会达到和在form3上按关闭按钮同样的效果。
用callbyname,以下请参考;用变量值做作被调用的过程或者函数的名称;
Sub FT1()
Dim T1 As Integer
Dim T2 As Integer
Dim T3 As Integer
T1 = 2
T2 = 3
T3 = T1 + T2
Debug.Print T3
End Sub
Private Sub Command1_Click()
Dim F As String
F = "FT1"
CallByName Me, F, VbMethod
End Sub