[µo°Ý] §R°£¯S©wª«¥ó

li_hsien

½Ð°Ý¦U¦ì¤j¤j

¤p§Ì§Ú¥Î¤F¤@¨Ç»yªk´¡¤Jª«¥ó(.pdf)¨ìÀx¦s®æ¤¤

1.     DisplayAsIcon:=True, IconFileName:= _
   
2.                     "C:\WINDOWS\Installer\{AC76BA86-7AD7-1028-7B44-A93000000001}\PDFFile_8.ico", _
   
3.                     IconIndex:=0, IconLabel:=icon_name1).Select

½Æ»s¥N½X

§Ú²{¦b·Q³]­ÓresetÁä

Åý©Ò¦³ªº.pdfÀɤ@¦¸§R°£±¼

½Ð°Ý³o»yªk¸Ó«ç»ò¼¶¼g©O???

¤@ª½¸Õ¤£¥X¨Ó
§Ú¥Î¤FActiveSheet.OLEObjects.delete
µ²ªG¥þ³¡ª«¥ó³£§R¤FXDD

½Ð°Ý¸Ó¦p¦ó«ü©w¥u§R.pdfªºÀÉ®×??

ÁÂÁ  :  )

li_hsien

¦^´_ 2# wl02353427

ÁÂÁÂwªº¦^ÂР :  )

¤£¹L§Ú¬O­n§R±¼Àx¦s®æ¤¤ªºª«¥ó

¦Ó«DÀx¦s®æªº¤º®e

¦¹°µªkÀ³¸Ó¥u¯à²M±¼Àx¦s®æªº¤º®e¦Ó¤w

li_hsien

¦^´_ 4# Hsieh


½Ð°ÝªO¤j

§Ú If Ob.OLEType = xlOLELink Then ³o¦æ

¤@ª½§PÂ_¤£¶i¥h

¤£ª¾­ì¦]¥X¦b­þ¸Ì????

li_hsien

¦^´_ 4# Hsieh

§Ú²{¦b¤~µo²{³qª¾

ªþÀɪº¦³ÂI±ß

Attach File.zip (36.33 KB)

¤U¸ü¦¸¼Æ: 8

2013-12-18 08:51

¦bAÄæ¦ì¶ñ¤W½s¸¹

³Ì«á«ö¤U«ö¶s

·|§âPDFÀɧì¶i¨Ó¨ìBÄæ

§Ú·Q³]­ÓRESET«ö¶s

Åý©ÒªþªºPDFÀÉ¥i¥H²M°£±¼

³Â·Ð¤j¤jÀ°§Ú¬Ý¬Ý

ÁÂÁ  :  )

li_hsien

¦^´_ 7# nissin

¤U¸ü (40.33 KB)

2013-12-19 09:18

§Úªº§@ªk¬O¦bAÄæ¿é¤J©Ò­nªºPDFÀɦW

«ö¤U«ö¶s

¦b¯S©w¸ô®|·j´MPDFÀÉ

©ñ¨ìBÄæ¦ì¸Ì­±

¥H¤U¬O§ÚªþÀɪº¤è¦¡

1. Private Sub Attach_File_Click()
   
2. 
   
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.         '³ø§i¦s§_
    
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 "¾ã²z§¹¦¨"
    
26. 
    
27. End Sub

½Æ»s¥N½X

³Â·Ð¤j¤j À°§Ú¬Ý¬Ý

ÁÂÁ  :  )

li_hsien

¦^´_ 8# Hsieh

ÁÂÁªO¤j

¥i¥H§R°£¤F

·Q½Ð°Ý¤@¤U

If Ob.progID = "AcroExch.Document.7"
¬O§äPDFÀɪº·N«ä¶Ü???
.progID¥D­n¬O«ü¤°»ò§r


²¼ä¦³¤Oªº»yªk
ÁÂÁ  :  )