189 8069 5689
一定要先在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