ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤@­Ó¤u§@ªí«ö±ø¥ó¦s¬°¤£¦PPDF

[µo°Ý] ¤@­Ó¤u§@ªí«ö±ø¥ó¦s¬°¤£¦PPDF

Attendance Data Report ¦s¤À©±PDF.rar (134.62 KB)

¦³¤@­Ó¥X¶Ôªí¤º¦³¤£¦P¤À©±­û¤u¥X¶Ô¸ê®Æ, ¨D±Ð¦p¦ó¥HVBA«ö±ø¥óSAVE¬°¥H¤À©±¦W¬°¦WªºPDF.
²{®É­n¨C­Ó¤À©±¿ï©w½d³ò¤~SAVE PDF, «D±`ºC¤Î®ö¶O®É¶¡.
¦³³Ò¨ó§U!:L :'(

Attendance Data Report TEST5.rar (135.12 KB) ¦^´_ 1# missbb


§Ú¥i¥H±NSHOP A¤ÎSHOP B¶i¦æ¿z¿ï, ¦ý¬O¤£ª¾¦p¦ó:
1)±NA, Bµ¥SHOP¦¨¬°ÅܼÆ, ¦A¥H°j°é§¹¦¨, ¦]¬°¨ä¹ê¦³30 SHOP, ­n³]¥ßARRAY(1,2,3.....30)¶Ü?
2) ¦p¦ó¥i¥H¤@¦¸¹L¸g±N¤£¦PSHOP¿W¥ß¦s¬°¦¨30­ÓPDF©O?

¤w¬Ý¤F®Ñ¦ý½T¹ê»â·|¤£¤F, ¨D±Ð!:'(

TOP

¦^´_ 2# missbb
2007ª©¬O§_¤w¦³¥t¦s¦¨PDFÀÉ¥\¯à?
¥H¤U¦b2010ª©¥»¥i¦æ
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With ActiveSheet
  4. For Each a In .Range(.[E4], .[E4].End(xlDown))
  5.   d(a.Value) = ""         '¨ú±o©Ò¦³¤£­«½Æ¤À©±
  6. Next
  7. For Each ky In d.keys
  8.      .Range("B4").AutoFilter field:=4, Criteria1:=ky
  9.      If Dir("D:\" & ky & ".pdf") <> "" Then Kill "D:\" & ky & ".pdf"  '¦P¦WÀɮקR°£
  10.      .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  11.         "D:\" & ky & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
  12.         IgnorePrintAreas:=False, OpenAfterPublish:=True  '¥t¦s¦¨PDFÀÉ®×
  13. Next
  14. If .FilterMode = True Then .ShowAllData 'Åã¥Ü©Ò¦³¸ê®Æ
  15. End With
  16. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ missbb ©ó 2015-8-1 09:08 ½s¿è

¦^´_ 3# Hsieh


¦hÁ¦^ÂÐ, ¤w¥i¥H±NA¤À©±¤ÎB¤À©±Åܦ¨PDF, ¦ý¨C­ÓPDF¦³114­¶, ¦]¬°¦V¤UªºªÅ¥Õ¦C³£¤@¨ÖÅܦ¨¤FPDF.
1)½Ð°Ý¦p¦ó¥i¥H¥h°£A¤À©±ªºªÅ¥Õ¦C?
2) ¥t¦p¦ó¥i¥H½Õ¾ã¦¨¤@­¶, ª½¦VA4©O? (¥tªþ¥ó) PDF ¼Ë¿ì.pdf (41.75 KB)
3)¦³¨S¦³¦bPDF´¡¤J«ü©w¹q³sµ²ªº¤èªk?

¦³³Ò:'( [attach]21598[/attach][attach]21598[/attach]

TOP

¦^´_ 4# missbb 3

¥t¥~, ·Q±NÀɦWÅܬ°A 201507, §ï¤F¤U­±ªº½X, ¦ýÀɦW¤´µM¬OA, ¬°¬Æ»ò©O?

    If Dir("D:\" & ky & "201507" & ".pdf") <> "" Then Kill "D:\" & ky & "201507" & ".pdf" '¦P¦WÀɮקR°£
     .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

TOP

¦^´_ 3# Hsieh

¦³³Ò¦A¨ó§U!

TOP

¦^´_ 5# missbb


         If Dir("D:\" & ky & "201507.pdf") <> "" Then Kill "D:\" & ky & "201507.pdf"  '¦P¦WÀɮקR°£
     .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        "D:\" & ky & "201507.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True  '¥t¦s¦¨PDFÀÉ®×
Next

TOP

¦^´_ 7# starry1314

§A¦n, ¦ý§Ú¥[¤J¤F·sµ{¦¡½X, ¤´µM¦³°ÝÃD, ¥iÀ°¦£¬Ý¬Ý¶Ü?

VBA Attendance Data Report to PDF 20150801 test.rar (129.66 KB)

TOP

¦^´_ 8# missbb
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With ActiveSheet
  4. For Each a In .Range(.[E4], .[E4].End(xlDown))
  5.   d(a.Value) = ""         '¨ú±o©Ò¦³¤£­«½Æ¤À©±
  6. Next
  7. For Each ky In d.keys
  8.      .Range("B4").AutoFilter field:=4, Criteria1:=ky
  9.      If Dir("D:\" & ky & "201507.pdf") <> "" Then Kill "D:\" & ky & "201507.pdf"  '¦P¦WÀɮקR°£
  10.      .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  11.         "D:\" & ky & "201507.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
  12.         IgnorePrintAreas:=False, OpenAfterPublish:=True  '¥t¦s¦¨PDFÀÉ®×
  13. Next
  14. If .FilterMode = True Then .ShowAllData 'Åã¥Ü©Ò¦³¸ê®Æ
  15. End With
  16. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# starry1314 1

·PÁÂ, ¦ý°ÝÃD¬O¤@ÂàPDF´N¬O113­¶, ¬O¿ï©w½d³òªº°ÝÃD¶Ü?
¥t¦p¦ó³]©wÃä¬É?¬O¦bÂध«e°µ¦n¤F³]©w¤~Âà©Î¬O¦bVBA½X¤º³]©w?

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD