我现在能将打开的EXCEL表另存为到制定的路径,但是我不需要EXCEL...

发布网友发布时间：2024-04-28 14:49

共3个回答

热心网友时间：2024-05-07 03:47

要先勾选信任对VB的访问

兰版做过一段code，你参考下

Sub 删除指定文件所有模块()
Dim wb As Workbook, ph As String, x As Integer, Objvbc As Object
Application.DisplayAlerts = False
ph = ThisWorkbook.Path & "\"
Set wb = Workbooks.Open(ph & "test.xls")
Windows(wb.Name).Visible = True
For Each Objvbc In wb.VBProject.VBComponents
If Objvbc.Type = 100 Then
Objvbc.CodeModule.DeleteLines 1, Objvbc.CodeModule.CountOfLines
Else
wb.VBProject.VBComponents.Remove Objvbc
End If
Next
wb.Close True
Set wb = Nothing
Application.DisplayAlerts = True
End Sub

热心网友时间：2024-05-07 03:51

建议将代码制作为加载宏,作为菜单挂在EXCEL上,这样宏就和具体的表分开了,并且是通用于所有的表格的

热心网友时间：2024-05-07 03:52

复制过来后,把VBA删掉就好