[發問] 刪除特定物件

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

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

2^#

發表於 2013-12-16 08:18 | 顯示全部帖子

回復 2# wl02353427

謝謝w的回覆 : )

不過我是要刪掉儲存格中的物件

而非儲存格的內容

此做法應該只能清掉儲存格的內容而已

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

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

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

3^#

發表於 2013-12-16 18:15 | 顯示全部帖子

[版主管理留言]

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

回復 4# Hsieh

請問板大

我 If Ob.OLEType = xlOLELink Then 這行

一直判斷不進去

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

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

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

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

4^#

發表於 2013-12-18 08:55 | 顯示全部帖子

回復 4# Hsieh

我現在才發現通知

附檔的有點晚

Attach File.zip (36.33 KB)

在A欄位填上編號

最後按下按鈕

會把PDF檔抓進來到B欄

我想設個RESET按鈕

讓所附的PDF檔可以清除掉

麻煩大大幫我看看

謝謝 : )

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

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

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

5^#

發表於 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
點名: 194
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-30

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

6^#

發表於 2013-12-23 08:18 | 顯示全部帖子

回復 8# Hsieh

謝謝板大

可以刪除了

想請問一下

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

簡潔有力的語法
謝謝 : )

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