关于加载宏(AddIn)的问题

Excel123

请问，加载宏如何从列表中彻底删除？宏文件在被删除后每次打开Excel都会提示“找不到文件”，在加载宏列表中去除选择状态后，下次打开Excel依然提示这个信息，请大家帮忙。找了不少资料，看到的都是Addin.Installed = True/false之类的回答，但这个只能操作加载宏的加载状态，并不能从列表中删除。

谢谢。

taller

在2000中,如果删除了宏文件,在tools->Addin再次选中此加载宏时,会提示找不到文件是否从列表中删除

Excel123

谢谢！这段代码构思精巧，很好，但在测试过程发现似乎不太稳定，某些时候可以删除Addin文件和列表项，但重复操作又发现只能删除文件，还是出现找不到文件的提示，需要手工确认删除才从加载宏列表中消失，怀疑是 SendKeys "%y" 没有被执行，因为在单步调试时发现，程序找到宏文件，也即If .Item(I).Title = txt Then，但下一句没有执行。环境：WXP+XL XP

chijanzen

你好: 請參考附件 主程式會移除 Addin 項目,並且刪除檔案

Declare Function SHFileOperation Lib "shell32.dll" Alias _

"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Type SHFILEOPSTRUCT

hwnd As Long

wFunc As Long

pFrom As String

pTo As String

fFlags As Integer

fAnyOperationsAborted As Boolean

hNameMappings As Long

lpszProgressTitle As String

End Type

---

Sub KillAddinFile(txt As String)

With AddIns

.Item(txt).Installed = False

If Dir(.Item(txt).FullName) <> "" Then

RecycleFile (.Item(txt).FullName)

End If

SendKeys "{HOME}"

For I = 1 To .Count

If .Item(I).Title = txt Then

SendKeys "%y"

End If

SendKeys "{DOWN}"

Next I

End With

SendKeys "~{ESC}"

Application.CommandBars.FindControl(ID:=943).Execute

' DoEvents

End Sub

---

Sub RecycleFile(sFile As String)

Dim FileOperation As SHFILEOPSTRUCT

Dim lReturn As Long

Dim sFileName As String

Const FO_DELETE = &H3 '刪除pFrom所指定的檔案或目錄

Const FOF_ALLOWUNDO = &H40 '可還原(若沒有 FOF_ALLOWUNDO 則不會到資源回收桶)

Const FOF_NOCONFIRMATION = &H10 '不顯示對話方塊直接送到回收筒

With FileOperation

.wFunc = FO_DELETE

.pFrom = sFile

.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION '不顯示對話方塊直接送到回收筒

' .fFlags = FOF_ALLOWUNDO '顯示對話方塊

End With

lReturn = SHFileOperation(FileOperation)

End Sub

---

Sub Formshow()

ReAddinForm.Show

End Sub

詳細明詳 http://www.officefans.net/cdb/viewthread.php?tid=15347

palycoding

高手.受教了.

fecmen

建议对3楼的进行加精啊。这问题还能解决！！

sncoco123

你真有办法！谢谢

MIKE888

高手,谢谢

ZYOL

这段代码构思精巧，很好