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

[µo°Ý] Àɮפ¤ªº¨â­ÓSheet ½Æ»s¨ì·sªºÀÉ®×°ÝÃD

[µo°Ý] Àɮפ¤ªº¨â­ÓSheet ½Æ»s¨ì·sªºÀÉ®×°ÝÃD

¥Øªº:AÀÉ®×(test01.xls)ªº¼Ï¯Ã¾ã²z§¹²¦«á,±NAÀɮתº¨ä¤¤´X­ÓSheets(TEST¡BRAW;TEMP¤£­nCOPY)¤º®e½Æ»s¨ìBÀÉ®×Àx¦s,¨Ã¨ÌÀx¦s¤é´Á®É¶¡©R¦W.

¥Ø«eVBA¤º®e¤w¦³ 1.ÀɮשR¦W, 2.AÀɮתºSheets½Æ»s·|·s¼W¤@­ÓExeclÀÉ®×,«áÄò°Ê§@,¤@ª½¸Õ¤£¥X¨Ó,µL¨¥,³Â·Ðª©¤jÀ°¦£¤F

¥»©«³Ì«á¥Ñ jackyliu ©ó 2013-8-30 23:02 ½s¿è

¦^´_ 25# stillfish00

­ì¥»´ú¸ÕÀÉ®×, Run°_¨Ó¨S°ÝÃD; «á¨Ó§Ú±Ncode Âà¨ì¨ä¥LÀɮפW(¥|­Ósheet¸Ì,¦@¦³¤»­Ó¼Ï¯Ã¸ê®Æ,Á`¦@¦³28MB),
µ{¦¡¶]°_¨Ó,´N¥X°ÝÃD,ªþ¤W¬ÛÃö¹Ï¤ù...


¤j¤j: ¦³¨ä¥Lªº¤èªk¶Ü?¯àÅý§Úmail¥X¥h¶Ü? ¥Ø«e§Ú³£¤H¤u¤è¦¡,±N¼Ï¯Ã¸ê®Æ°é¿ï«á,
¦b¨ìOutlook ¾Þ§@ ¿ï¾Ü©Ê¶K¤W..ÂI°}¹Ï ,¦Amail ¥X¥h ~ ¯à°÷¦Û°Ê¤Æ¶Ü?

TOP

¦^´_ 21# jackyliu
  1. Sub RangeToPicture()
  2.   Dim rngSrc As Range
  3.    
  4.   With ActiveSheet
  5.     Set rngSrc = .UsedRange
  6.    
  7.     rngSrc.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
  8.     With .ChartObjects.Add(Left:=rngSrc.Left, Top:=rngSrc.Top, Width:=rngSrc.Width, Height:=rngSrc.Height)
  9.       .Chart.Paste
  10.       .Chart.Export "C:\pic1.jpg"
  11.       .Delete
  12.     End With
  13.   End With
  14. End Sub
½Æ»s¥N½X

TOP

¦^´_ 23# Hsieh

¥D­n¬O±NexeclÀɮ׸̪º¥|­Ósheet ¤º®e, ¥ÎOutlook  mail¤è¦¡±H¥X(¦Û°Ê¤Æ)
¥Ø«e¬O¤H¤u¤â°Ê¶}±ÒexeclÀÉ®× , ±N¥|­Ósheet ¤º®e ¥Î cut¹Ï³nÅé, ½Æ»s¶K¨ì Outlook  mail¤è¦¡±H¥X,
§Æ±æ ¯à¦³¿ìªk,¥Îvba³B²z.

³o­n¬Ý¸ê®Æ½d³ò¤j¤p¦Ó©w¡A­YµLªk§¹¾ãÅã¥Ü¸ê®Æ°Ï°ì¨º±NµLªk¨ú±o§¹¾ãµe­±
¦^ÂÐ:  1. sheet+½d³ò ½Æ»s¶K¨ì Outlook  mail¤è¦¡±H¥X
          2. ª½±µ±N¥|­Ósheet , ½Æ»s¶K¨ì Outlook  mail¤è¦¡±H¥X
¥H¤W¨âºØ§@ªk,­þ­Ó°µªº¥X¨Ó?

TOP

¦^´_ 21# jackyliu
¤u§@ªí­n¦s¦¨¹ÏÀÉ?
³o­n¬Ý¸ê®Æ½d³ò¤j¤p¦Ó©w¡A­YµLªk§¹¾ãÅã¥Ü¸ê®Æ°Ï°ì¨º±NµLªk¨ú±o§¹¾ãµe­±
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# GBKEE


    ¦³¿ìªk±Nexecl ªº¥|­Ósheet ½Æ»s¥t¦s¦¨¹ÏÀɶÜ?
Mail¦Û°Ê¤Æ¦³¸Ñ¶Ü?

³Ì²×µ²ªG¦p¹Ï¤ù©Ò¥Ü: ±NexeclÀɮ׸̪º¥|­Ósheet ½Æ»s¥t¦s¦¨¹ÏÀÉ,¨Ãmail ¥X¥h...
ªþ¥ó´N¬Ooutlook ±H¥Xµe­±¡A§Æ±æ¤j®a¯à°÷À°¦£©M¤À¨É,·PÁÂ!

0829.JPG (125.46 KB)

³Ì²×µ²ªG

0829.JPG

TOP

¦^´_ 4# Hsieh

¦³¿ìªk±Nexecl ªº¥|­Ósheet ½Æ»s¥t¦s¦¨¹ÏÀɶÜ?
¦³¸Ñ¶Ü?

TOP

¦^´_ 19# c_c_lai

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'please put your server name below
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxx.xxx.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

TOP

¦^´_ 18# jackyliu
©pªº SMTP Server ªº IP Address ¬O³]©w¦h¤Ö¡H

TOP

¦^´_ 17# c_c_lai

§Ú¹J¨ì·s½Æ»ssheetªºÀɮ׶W¹L25mb, mailµo¤£¥X¥h...
ÁÙ¦b·Q¦³¨ä¥L¤è¦¡¶Ü?

¥t¥~¤À¨É§Úªºcode
Sub sendmail(fs As String)
Dim CDO_Mail_Object As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim Email_Subject, Email_Send_From, Email_Send_To, Email_Cc, Email_Bcc, Email_Body As String
Email_Subject = "Today IB Bank List! (Attachment)"
Email_Send_From = "[email protected]"
Email_Send_To = "[email protected]"
Email_Cc = "[email protected]"
Email_Bcc = "[email protected]"
Email_Body = "test "
Set CDO_Mail_Object = CreateObject("CDO.Message")
On Error GoTo debugs
Set CDO_Config = CreateObject("CDO.Configuration")
CDO_Config.Load -1
Set SMTP_Config = CDO_Config.Fields
With SMTP_Config
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'please put your server name below
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxx.xxx.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
With CDO_Mail_Object
Set .Configuration = CDO_Config
End With
CDO_Mail_Object.Subject = Email_Subject
CDO_Mail_Object.From = Email_Send_From
CDO_Mail_Object.To = Email_Send_To
CDO_Mail_Object.TextBody = Email_Body
CDO_Mail_Object.CC = Email_Cc 'Use if needed
CDO_Mail_Object.BCC = Email_Bcc 'Use if needed
CDO_Mail_Object.AddAttachment "D:\test.xls"


CDO_Mail_Object.Send
debugs:
If Err.Description <> "" Then MsgBox Err.Description
'Sheet1.Select
ThisWorkbook.Save
Application.DisplayAlerts = True
ThisWorkbook.Close
End Sub

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD