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

事后诸葛亮

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

请帮忙用VB6.0 完成附件中的新建EXCEL文件 的代码

达到代码中所描述的效果。
请在修改其他位置的代码时注明是您修改过的。免的我一下子对不出来。谢谢了。

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

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

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-24 16:23

1. Private Sub mn3_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
   
2.     With oXL
   
3.         '请帮忙写代码：新建EXCEL文件
   
4. 
   
5.         .Workbooks.Add
   
6.         MsgBox "当前新建的工作薄(E文件)名称为：" & .ActiveWorkbook.Name
   
7. 
   
8. 
   
9. '        '请帮忙写代码：在第一个工作表中"A1"单元格赋值="百度网址"
   
10. '        '请帮忙写代码：在第一个工作表中"A1"单元格超链接="http://www.baidu.com/"
    
11.         With .ActiveWorkbook.Worksheets(1)
    
12.             .Range("a1") = "百度网址"
    
13.             .Hyperlinks.Add Anchor:=.Range("a1"), Address:="http://www.baidu.com/", TextToDisplay:="百度网址"
    
14.         End With
    
15.         MsgBox "A1单元格修改成功"
    
16. '
    
17. '        '请帮忙写代码：新建的EXCEL文件重命名为"测试用工作薄.xls"
    
18. '        '请帮忙写代码：保存"测试用工作薄.xls"到D盘根目录下"D:"
    
19.         
    
20.         MsgBox "文件重命名并保存成功："
    
21.         .ActiveWorkbook.SaveAs FileName:="d:\测试用工作簿.xls", FileFormat:=1
    
22. '
    
23. '
    
24.         MsgBox " 删除 D:\测试用工作薄.xls "
    
25.         ''请帮忙写代码：删除“Test”工作表
    
26.         .ActiveWorkbook.ChangeFileAccess 3    'xlReadOnly
    
27.         .ActiveWorkbook.Close False
    
28.         Kill "d:\测试用工作簿.xls"
    
29.     End With
    

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Private Sub mn1_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
   
2.     With oXL
   
3.         If .Workbooks.Count Then
   
4.             'If .Workbooks.Count Then
   
5.             MsgBox "当前EXCEL文件的路径为：" & .ActiveWorkbook.Path & vbCrLf & "名称为：" & vbCrLf & .ActiveWorkbook.Name & "程序版本为:" & .Version
   
6.         End If
   
7.     End With
   
8. End Sub

复制代码

hwc2ycy

1. Private Sub mn3_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
   
2.     With oXL
   
3.         '请帮忙写代码：新建EXCEL文件
   
4. 
   
5.         .Workbooks.Add
   
6.         MsgBox "当前新建的工作薄(E文件)名称为：" & .ActiveWorkbook.Name
   
7. 
   
8. 
   
9. '        '请帮忙写代码：在第一个工作表中"A1"单元格赋值="百度网址"
   
10. '        '请帮忙写代码：在第一个工作表中"A1"单元格超链接="http://www.baidu.com/"
    
11.         With .ActiveWorkbook.Worksheets(1)
    
12.             .Range("a1") = "百度网址"
    
13.             .Hyperlinks.Add Anchor:=.Range("a1"), Address:="http://www.baidu.com/", TextToDisplay:="百度网址"
    
14.         End With
    
15.         MsgBox "A1单元格修改成功"
    
16. '
    
17. '        '请帮忙写代码：新建的EXCEL文件重命名为"测试用工作薄.xls"
    
18. '        '请帮忙写代码：保存"测试用工作薄.xls"到D盘根目录下"D:"
    
19.         
    
20.         MsgBox "文件重命名并保存成功："
    
21.         .ActiveWorkbook.SaveAs FileName:="d:\测试用工作簿.xls", FileFormat:=1
    
22. '
    
23. '
    
24.         MsgBox " 删除 D:\测试用工作薄.xls "
    
25.         ''请帮忙写代码：删除“Test”工作表
    
26.         .ActiveWorkbook.ChangeFileAccess 3    'xlReadOnly
    
27.         .ActiveWorkbook.Close False
    
28.         Kill "d:\测试用工作簿.xls"
    
29.     End With
    

复制代码

事后诸葛亮

hwc2ycy 发表于 2013-7-24 16:23

还没测试  就知道肯定可以。哈哈 谢谢