[已解决]用VB6.0制作 EXCEL自定义菜单(COM加载项)新建E文件E表格问题

事后诸葛亮

请帮忙用VB6.0 完成附件中的新建EXCEL文件 表格 的代码
达到代码中所描述的效果。
请在修改其他位置的代码时注明是您修改过的。免的我一下子对不出来。谢谢了。

生成加载宏 及生成 菜单的代码都写好了。就请帮忙把在点击按钮事件中的新建E文件代码给补充一下。谢谢

求助：用VB6.0制作 EXCEL自定义菜单(COM加载项)新建E文件E表格问题.rar (15.4 KB, 下载次数: 30)

2013-7-24 12:45 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-24 13:14

1. Private Sub mn2_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
   
2.     On Error Resume Next
   
3.     Dim blHasTest As Boolean
   
4.     With oXL
   
5. 
   
6.         '请帮忙写代码：新建工作表
   
7.         .ActiveWorkbook.Worksheets.Add
   
8.         MsgBox "当前新建的工作表名称为：" & .ActiveSheet.Name
   
9. 
   
10.         If Len(.ActiveWorkbook.Worksheets("Test").Name) = 0 Then
    
11.             .ActiveSheet.Name = "Test"
    
12.         Else
    
13.             MsgBox "当前工作簿已经存在 Test 工作表"
    
14.             blHasTest = True
    
15.         End If
    
16. 
    
17.         '请帮忙写代码：新建的工作表重命名为"Test"
    
18.         If Not blHasTest Then
    
19.             .ActiveSheet.Name = "Test"
    
20.             MsgBox "工作表重命名成功"
    
21.         End If
    
22. 
    
23.         '请帮忙写代码："A1"单元格赋值="百度网址"
    
24.         .ActiveSheet.Range("a1").Value = "http://www.baidu.com/"
    
25.         '请帮忙写代码："A1"单元格超链接="http://www.baidu.com/"
    
26.         MsgBox "A1单元格修改成功"
    
27. 
    
28.         '请帮忙写代码：删除“Test”工作表
    
29.         MsgBox "删除“Test”工作表"
    
30.         .DisplayAlerts = False
    
31.         If blHasTest Then
    
32.             .ActiveWorkbook.Worksheets("Test").Delete
    
33.         Else
    
34.             .ActiveSheet.Delete
    
35.         End If
    
36.         .DisplayAlerts = True
    
37. 
    
38. 
    
39.         '请帮忙写代码：保存当前EXCEL文件
    
40.         .ActiveWorkbook.Save
    
41.     End With
    
42. End Sub
    

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Private Sub mn2_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
   
2.     On Error Resume Next
   
3.     Dim blHasTest As Boolean
   
4.     With oXL
   
5. 
   
6.         '请帮忙写代码：新建工作表
   
7.         .ActiveWorkbook.Worksheets.Add
   
8.         MsgBox "当前新建的工作表名称为：" & .ActiveSheet.Name
   
9. 
   
10.         If Len(.ActiveWorkbook.Worksheets("Test").Name) = 0 Then
    
11.             .ActiveSheet.Name = "Test"
    
12.         Else
    
13.             MsgBox "当前工作簿已经存在 Test 工作表"
    
14.             blHasTest = True
    
15.         End If
    
16. 
    
17.         '请帮忙写代码：新建的工作表重命名为"Test"
    
18.         If Not blHasTest Then
    
19.             .ActiveSheet.Name = "Test"
    
20.             MsgBox "工作表重命名成功"
    
21.         End If
    
22. 
    
23.         '请帮忙写代码："A1"单元格赋值="百度网址"
    
24.         .ActiveSheet.Range("a1").Value = "http://www.baidu.com/"
    
25.         '请帮忙写代码："A1"单元格超链接="http://www.baidu.com/"
    
26.         MsgBox "A1单元格修改成功"
    
27. 
    
28.         '请帮忙写代码：删除“Test”工作表
    
29.         MsgBox "删除“Test”工作表"
    
30.         .DisplayAlerts = False
    
31.         If blHasTest Then
    
32.             .ActiveWorkbook.Worksheets("Test").Delete
    
33.         Else
    
34.             .ActiveSheet.Delete
    
35.         End If
    
36.         .DisplayAlerts = True
    
37. 
    
38. 
    
39.         '请帮忙写代码：保存当前EXCEL文件
    
40.         .ActiveWorkbook.Save
    
41.     End With
    
42. End Sub
    

复制代码

事后诸葛亮

hwc2ycy 发表于 2013-7-24 13:14

我爱死你了。完美运行。。
你经常在回答我的问题呵呵。谢谢。
另两个按钮事件给写一下 谢谢

hwc2ycy

事后诸葛亮 发表于 2013-7-24 13:20
我爱死你了。完美运行。。
你经常在回答我的问题呵呵。谢谢。
另两个按钮事件给写一下 谢谢

不要爱上哥，嫂子会凑你的。
问题要是解决了就给最佳吧。{:1012:}

事后诸葛亮

hwc2ycy 发表于 2013-7-24 13:29
不要爱上哥，嫂子会凑你的。
问题要是解决了就给最佳吧。

虽然其他按钮事件还没的帮忙写出来。不过 相信你会一直帮我的。
请帮忙把其他按钮事件给完善一下。谢谢你了。
要不 我重开个贴子？一个按钮事件一个贴子？