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

excel¶l¥ó±Hµo¦h°ÝÃD

excel¶l¥ó±Hµo¦h°ÝÃD

½Ð°Ý¦U¦ì¥ý¶i¶l¥óµo°eªº°ÝÃD¡A¦¹Àɮ׬O®Ú¾Ú¨Ï¥ÎªÌªº¿ï¾Ü¶i¦æ¶l¥óµo°e¡A¥Ø«eªº°ÝÃD¦p¤U¡G
1.Åý¨Ï¥ÎªÌ¥Hsheet1¿ï¾Ü­n§¨±aªºÀɮצì¸m¡A¦bÂI¿ïimport®É·|¥X²{Application.GetOpenFilename¡A¸Ì­±¥i¥H¿ï¾Ü¦U¦¡ªºÀÉ®×(ex¡GPDF¡BTXT¡BWORD¡BEXCEL)¡A¦b¿ï¨úÀɮ׫á·|±NÀɮצì¸mÅã¥Ü¦bÀx¦s®æc7ªº¦ì¸m


2.®Ú¾Ú¨Ï¥ÎªÌªº¿ï¾Ü±ø¥ó¡A±N³ø§iÃþ§O¨Ìsheet2¤¤¤£¦P¦¬«HªÌªº­n¨D¶i¦æ±Hµo¶l¥ó¡A·í¤¤©Ò¹J¨ìªº°ÝÃD¡G
  2.1 ±N©Ò¿ï¾Üªº³ø§iÂରpdf¨Ã§¨±a
  2.2 ±N©Ò¿ï¾Üªº³ø§i¥Hhtml«¬¦¡©ñ¦b¶l¥óªº¥D¤å¤¤
  2.3 ¿ï¾Üªº³ø§i«¬ºA¡A¨Ì¦¬¥óªÌ¤£¦Pªº»Ý¨D¶i¦æµo°e(TRUE¥Nªíµo°e¡BFALSE¥Nªí¤£µo°e)
  2.4 ¶l¥ó§À´¡¤Jñ¦WÀÉ
  2.5 SHEET1¤¤ªºµo°e«öÁä·|¨Ì¨Ï¥ÎªÌ©Ò¿ï¨úªº¥\¯à¶i¦æ¶l§½µo°e¡AÅã¥Ü©óOUTLOOK¤¤¶i¦æ½T»{

3. ¼W¥[¦¬¥óªÌc.c.»Pb.c.c.¡A¼ÐÃD¬°³ø§i«¬ºA¡A¥D¤åªº°Ý­Ô»y«h°Ñ·ÓA10¤§«áªº¤º¤å¡C

¥H¤W°ÝÃD¡A¸ê½è¤£¨¬¡A¬ã¨s¤F¤@­Ó¤ëÁÙ¬O¸Ñ¨M¤£¤F¡A³Â·Ð¤j®aÀ°¦£¡CÁÂÁÂ

Book1.rar (9.22 KB)

Book1.rar (9 KB)

¦^´_ 17# stillfish00


    §ó¥¿!!!!¦¨¥\¤F!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    ÁÂÁÂstillfish!!!!!!:handshake

TOP

¦^´_ 18# Mindyj
¯àªþ¤W°õ¦æ·|¥X¿ùªºÀɮ׬ݬݶÜ

TOP

¥»©«³Ì«á¥Ñ Mindyj ©ó 2013-5-31 15:06 ½s¿è

¦^´_ 17# stillfish00
°õ¦æµ²ªG¡Gobject doesn't support this property or method

¤@­ÓÀYn­Ó¤j¡B½Ð°ÝÁÙ¦³§Oªº¤è¦¡¶Ü?

TOP

¦^´_ 16# Mindyj
.attachments.add Sheet1.Cells(8, 1).value

TOP

¥»©«³Ì«á¥Ñ Mindyj ©ó 2013-5-31 14:15 ½s¿è

­è­è´ú¸Õ¤F¦pªG±N§¨±aÀɮת½±µ¿é¤JÀɮצì¸m¬O¥i¦æªº¡A

¥i¬O¨Ï¥ÎªÌ·|¨Ì¨C¦¸»Ý¨D¤£¦P¿ï¾Ü¤£¦PªºÀɮסB©Ò¥H¤~±NÀɮצì¸m«ü©w¿é¤J¦ÜSheet1ªºA8Àx¦s®æ¡A

¦ý¬O·í§Ú±N§¨±aÀɮקאּ«ü©w¦ÜÀx¦s®æ´N¤@ª½¥X²{¿ù»~¡A

¦Ó¿ù»~¤@ª½°±¯d¦b.attachments.add Sheet1.Cells(8, 1)

TOP

¦^´_ 14# kimbal

ÁÙ¬O¤£¬O¡B«Ü¯Ç´e¡A¦]¬°³o¤@¦æ¤£°õ¦æªº¸Ü¾ã­Óµ{¦¡¬O¨S°ÝÃDªº¡AÀ³¸Ó¬O¤£»Ý­n¥t¥~¼gfunction?

TOP

¦^´_ 13# Mindyj


    ¸Õ¸Õ?
.attachments.add Sheet1.Cells(8, 1)

¤£¦æªº¸Ü·|¤£·|¬OA8¤Wªºªþ¥ó¦ì¸m¦³¿ù?
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¦^´_ 12# stillfish00


Hi stillfish,
§¨±aÀɮ׫ü©w¬°shee1ªºa8Àx¦s®æ¡A§Ú¨Ï¥Î¤F
                 .AddAttachment Sheet1.Cells(8, 1)
debug·|°±¯d¦b.addattachment

TOP

¦^´_ 11# Mindyj
line#28
     EmailTo = EmailTo & CStr(Sheets("Sheet2").Range("G" & i)) & ";"

line#67
    .attachments.Add "C:\aa.txt"
    ¬õ¦â¬°ªþÀɪº¸ô®|

¬O³o¼Ë¶Ü?

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD