www.ctrt.net > 您好,我有一个EXCEL文件,里面有VBA代码,但是加...

您好,我有一个EXCEL文件,里面有VBA代码,但是加...

Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim wk1 As Workbook, sh1 As Worksheet, wk2...

你好,我有AOPR4.11绿色版,以及带有VBA解锁功能的excel插件工具集 请追问我留下邮箱,我百度ID与qq邮箱同名 祝顺利!

用指定OPEN事件, Private Sub sheets4_Activate() 改Private Sub Workbook_Open()

Sub tt() Dim p$, f$, n% p = ThisWorkbook.Path & "\" '换成你设定的路径 f = Dir(p & "*.xls*") If f "" Then Do Until f = "" n = n + 1 f = Dir Loop End If MsgBox n End Sub

Sub 宏1() Workbooks.Add ActiveWorkbook.SaveAs Filename:="C:\test.xlsx", FileFormat:=xlOpenXMLWorkbook ActiveWindow.Close End Sub

zglnsywp@126.com 立刻解决

在VBA编辑界面双击ThisWorkBook 跳出代码框,写入 Private Sub Workbook_Open() '写入下面代码 msgBox "你要的效果" End Sub

程序代码如下: Sub 宏1() Dim s, arr1, arr2 s = ActiveSheet.Name s = "314-56.五月份交易记录.AsRuSc.已打印.xlsx" arr1 = Split(s, ".") arr2 = Split(arr1(0), "-") MsgBox "你需要的三个部分是:" & Chr(10) & arr1(0) & Chr(10) & arr2(1)...

sub dakai() mypath="文件路径" Workbooks.Open mypath ~ ~ 你需要的其他代码 ~ ~ end sub

我得说一句,别人不希望你看见代码,你要破解是 不厚道的。。。。 可以发来 给你解除 限制 1052974911@qq.com

网站地图

All rights reserved Powered by www.ctrt.net

copyright ©right 2010-2021。
www.ctrt.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com