如何用代码把鼠标所在的表导出为一个工作簿

zzpsx

如何用代码导出当前工作表.rar (8.69 KB, 下载次数: 1)

2023-2-13 19:48 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Dim grxIRibbonUI As IRibbonUI
Sub rxIRibbonUI_onLoad(ribbon As IRibbonUI)
    Set grxIRibbonUI = ribbon
End Sub
Sub rxbtn1_Chick(control As IRibbonControl)
   Dim strFileName$, strPath$, wkb As Workbook

   strFileName = ThisWorkbook.path & "\" & ActiveSheet.Name
   ActiveSheet.Copy
   With ActiveWorkbook
      .SaveAs strFileName
      .Close
   End With

   Beep
End Sub

gwjkkkkk

你这个感觉做成Ribbon菜单比较方便，请楼主参考附件。。。

zzpsx

gwjkkkkk 发表于 2023-2-13 20:43
你这个感觉做成Ribbon菜单比较方便，请楼主参考附件。。。

请问高手，我把代码放在以下附件的原表中，按下f5键为何不能直接运行？
ps：本人使用搜狗输入法的自定义短语来快速输入代码，所以可否不用Ribbon菜单，而是直接运行就可以导出？


1u随机7下213晚上.rar (25.34 KB, 下载次数: 0)

2023-2-13 21:09 上传

点击文件名下载附件

gwjkkkkk

zzpsx 发表于 2023-2-13 21:11
请问高手，我把代码放在以下附件的原表中，按下f5键为何不能直接运行？
ps：本人使用搜狗输入法的自定义 ...

Sub test()
   Dim strFileName$, strPath$

   strFileName = ThisWorkbook.path & "\" & ActiveSheet.Name
   ActiveSheet.Copy
   With ActiveWorkbook
      .SaveAs strFileName
      .Close
   End With

   Beep
End Sub

zzpsx

请问如何做Ribbon菜单？这种菜单是加载在xlsx文件上还是xlsm文件上？

gwjkkkkk

zzpsx 发表于 2023-2-14 10:53
请问如何做Ribbon菜单？这种菜单是加载在xlsx文件上还是xlsm文件上？

https://club.excelhome.net/thread-898848-1-1.html?_dsign=f019dc88
加载在xlsm文件上，具体怎么做请参考链接。。。