[發問] 刪除特定物件

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 212
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

9^#

發表於 2013-12-23 08:18 | 只看該作者

回復 8# Hsieh

謝謝板大

可以刪除了

想請問一下

If Ob.progID = "AcroExch.Document.7"
是找PDF檔的意思嗎???
.progID主要是指什麼呀

簡潔有力的語法
謝謝 : )

用功到世界末日那一天～～～

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 247
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2013-12-19 09:54 | 只看該作者

本帖最後由 Hsieh 於 2013-12-19 09:56 編輯

回復 6# li_hsien

Sub AddObject() '加入PDF檔案物件
Dim A As Range, f$, fd$, fn$
Application.ScreenUpdating = False
For Each A In Range([A2], [A2].End(xlDown))
fd = ThisWorkbook.Path & "\"
f = Dir(fd & A & ".pdf")
fn = fd & f
MyIcon = "C:\Windows\Installer\{AC76BA86-7AD7-1028-7B44-AA1000000001}\PDFFile_8.ico" '我的圖示檔位置
'MyIcon = "C:\WINDOWS\Installer\{AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico"'你的圖示檔位置
A.Offset(, 1) = ""
If f <> "" Then
With ActiveSheet.OLEObjects.Add(Filename:= _
fn, Link:=False, DisplayAsIcon _
:=True, IconFileName:= _
MyIcon, _
IconIndex:=0, IconLabel:=fn)
.Left = A.Offset(, 1).Left
.Top = A.Top
End With
Else
A.Offset(, 1) = "找不到檔案" & A & ".pdf"
End If
Next
End Sub
Sub DeletObject() '刪除PDF
Dim Ob As OLEObject
For Each Ob In ActiveSheet.OLEObjects
If Ob.progID = "AcroExch.Document.7" Then Ob.Delete
Next
MsgBox "整理完成"
End Sub

複製代碼

學海無涯_不恥下問

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 212
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

7^#

發表於 2013-12-19 09:19 | 只看該作者

回復 7# nissin

我的作法是在A欄輸入所要的PDF檔名

按下按鈕

在特定路徑搜尋PDF檔

放到B欄位裡面

以下是我附檔的方式

Private Sub Attach_File_Click()
For i = 2 To Range("A65536").End(xlUp).Row
Range("B" & i).Select
icon_name = Range("A" & i)
Path = "C:\Documents and Settings\hsien.li\桌面\"
Filename = Path & icon_name & ".pdf"
'報告存否
If Dir(Filename) <> "" Then
ActiveSheet.OLEObjects.Add(Filename:=Filename, Link:=False, Link:=False, _
DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico", _
IconIndex:=0, IconLabel:=icon_name).Select
Else
Range("B" & i) = "找不到" & icon_name & "檔案"
End If
Debug.Print icon_name
Next
MsgBox "整理完成"
End Sub

複製代碼

麻煩大大幫我看看

謝謝 : )

用功到世界末日那一天～～～

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 212
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

6^#

發表於 2013-12-18 08:55 | 只看該作者

回復 4# Hsieh

我現在才發現通知

附檔的有點晚

Attach File.zip (36.33 KB)

在A欄位填上編號

最後按下按鈕

會把PDF檔抓進來到B欄

我想設個RESET按鈕

讓所附的PDF檔可以清除掉

麻煩大大幫我看看

謝謝 : )

用功到世界末日那一天～～～

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 212
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2024-11-14

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

5^#

發表於 2013-12-16 18:15 | 只看該作者

[版主管理留言]

Hsieh(2013-12-16 19:05): 請上傳檔案

回復 4# Hsieh

請問板大

我 If Ob.OLEType = xlOLELink Then 這行

一直判斷不進去

不知原因出在哪裡????

用功到世界末日那一天～～～