返回列表 上一主題 發帖

[發問] 刪除特定物件

li_hsien

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-12-13 17:29 | 顯示全部帖子

[發問] 刪除特定物件

請問各位大大

小弟我用了一些語法插入物件(.pdf)到儲存格中
  1.     DisplayAsIcon:=True, IconFileName:= _
  2.                     "C:\WINDOWS\Installer\{AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico", _
  3.                     IconIndex:=0, IconLabel:=icon_name1).Select
複製代碼
我現在想設個reset鍵

讓所有的.pdf檔一次刪除掉

請問這語法該怎麼撰寫呢???

一直試不出來
我用了ActiveSheet.OLEObjects.delete
結果全部物件都刪了XDD

請問該如何指定只刪.pdf的檔案??

謝謝  :  )
收藏 分享
用功到世界末日那一天∼∼∼

li_hsien

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2013-12-16 08:18 | 顯示全部帖子
回復 2# wl02353427

謝謝w的回覆  :  )

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

而非儲存格的內容

此做法應該只能清掉儲存格的內容而已
用功到世界末日那一天∼∼∼

TOP

li_hsien

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

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 這行

一直判斷不進去

不知原因出在哪裡????
用功到世界末日那一天∼∼∼

TOP

li_hsien

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

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檔可以清除掉

麻煩大大幫我看看

謝謝  :  )
用功到世界末日那一天∼∼∼

TOP

li_hsien

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
5#
發表於 2013-12-19 09:19 | 顯示全部帖子
回復 7# nissin



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

按下按鈕

在特定路徑搜尋PDF檔

放到B欄位裡面

以下是我附檔的方式
  1. Private Sub Attach_File_Click()

  3.     For i = 2 To Range("A65536").End(xlUp).Row
  4.    
  5.     Range("B" & i).Select
  6.     icon_name = Range("A" & i)
  7.             
  8.     Path = "C:\Documents and Settings\hsien.li\桌面\"
  9.     Filename = Path & icon_name & ".pdf"
  10.             
  11.         '報告存否
  12.         If Dir(Filename) <> "" Then
  13.             ActiveSheet.OLEObjects.Add(Filename:=Filename, Link:=False, Link:=False, _
  14.                 DisplayAsIcon:=True, IconFileName:= _
  15.                 "C:\WINDOWS\Installer\{AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico", _
  16.                 IconIndex:=0, IconLabel:=icon_name).Select
  17.         Else
  18.             Range("B" & i) = "找不到" & icon_name & "檔案"
  19.         End If
  20.         
  21.         Debug.Print icon_name
  22.       
  23.     Next
  24.    
  25.     MsgBox "整理完成"

  27. End Sub
複製代碼
麻煩大大 幫我看看

謝謝  :  )
用功到世界末日那一天∼∼∼

TOP

li_hsien

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

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主要是指什麼呀


簡潔有力的語法
謝謝  :  )
用功到世界末日那一天∼∼∼

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題