[µo°Ý] ¥ÎEXCEL¶×¶°¦UÀÉ®×

li_hsien

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

¥D­n¬O¤£ª¾³o¬O§_¥i¦æ?

¤W¨Ó¸ß°Ý¤@¤U


¤p§Ì·Q¥Î¤@­ÓEXCEL¿é¤JÀɮצWºÙ
(ªþÀɬO.pdf)

´N¯à±N²Å¦X³o¨ÇÀɦWªºpdfÀɶ׶°°_¨Ó¡A©ñ¦b¦P¤@­Ó¸ê®Æ§¨¸Ì


EX:
¦³­Ó¸ê®Æ§¨F¸Ì­±¥þ³¡³£¬OpdfÀɪº¸ê®Æ§¨

§Ú¥u­n¦bEXCEL¿é¤JÀɦWAAA¡BBBB¡BCCC

´N¯à±NF¸ê®Æ§¨¸ÌÀɦW¬°AAA¡BBBB¡BCCCªºÀɮ׿ï¨ú°_¨Ó¥t¥~©ñ¦b¦P¤@­Ó¸ê®Æ§¨¸Ì


¤£½T©w¬O§_¶W¥XEXCELªº¯à¤O½d³ò

¤p§Ì·Q°Ý°Ý¥i¦æ©Ê  

ÁÂÁ¦U¦ì¤j¤j  :  )

li_hsien

¦^´_ 3# Hsieh

¬Oªº ³o¬O§Ú·Q­nªº  ¨þ¨þ

§Ú¤]·Q¨ì¸Ñ¨M¿ìªk

1. Private Sub Add_Attachement_Click()
   
2. 
   
3.     Dim path As String
   
4.     Dim i As Integer, j As Integer
   
5.         
   
6.     path = ThisWorkbook.path + "\Report¾ã²z\"
   
7.     i = 2
   
8.     j = 2
   
9.         
   
10.     'On Error GoTo handlerr
    
11.     On Error Resume Next
    
12.    
    
13.     While ActiveSheet.Cells(i, 1) <> ""
    
14.         
    
15.         
    
16.         Call FileSystem.FileCopy _
    
17.         (ThisWorkbook.path + "\Report\" & Cells(i, 1) & ".pdf" _
    
18.         , path & Cells(i, 1) & ".pdf")
    
19.         
    
20.         If Err.Number = 53 Then
    
21.             Cells(j, 3) = Cells(i, 1)
    
22.             j = j + 1
    
23.             Err.Number = ""
    
24.         End If
    
25.         
    
26.         i = i + 1
    
27.         
    
28.     Wend
    
29. 
    
30.     Exit Sub
    
31. 
    
32. 'handlerr:
    
33. '
    
34. '    MsgBox Err.Number & vbCrLf & Err.Description
    
35. 
    
36. End Sub

½Æ»s¥N½X

¤£¹L¸òªO¤jªº»yªk¬Û¤ñ ¬Û¶Z¬Æ»· «¢«¢

ªO¤j§Aªº¦n²`@@

§Ú¦A¨Ó¬ã¨s¤@¤U

ÁÂÁ  :  )

li_hsien

¦^´_ 3# Hsieh

·Q½Ð°Ý¤@¤UªO¤j

fd = .SelectedItems(1) & "\"
³o­Ó¥Î³~¬O???

For Each A In .Range(.[A1], .[A1].End(xlDown))
³o­Ó¬O¶]AÄæ¸Ì­±©Ò¥HªºÀx¦s®æ§a?

fs = Dir(ofd & A & ".pdf")
If fs <> "" Then fds.movefile ofd & fs, fd & fs '²¾°ÊÀÉ®×
³o¨â¦æ§Ú¤]´N¬Ý¤£¤ÓÀ´¤F
¬O²¾°ÊÀɮתº¨î¦¡¼gªk¶Ü?

li_hsien

¦^´_ 7# Hsieh


    ÁÂÁªO¤jªº¸ÑÄÀ
   
   ¸g¹L´Xµf´ú¸Õ

   ²M·¡¦h¤F