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

[µo°Ý] ½Ð°Ý¦p¦ó¥ÎÀx¦s®æ·íÀɦW(VBA)

[µo°Ý] ½Ð°Ý¦p¦ó¥ÎÀx¦s®æ·íÀɦW(VBA)

¦pÃD~·Q½Ð°Ý¦U¦ì«e½ú~§Ú·Q¥ÎVBA¤À§OÀx¦s¼Æ­ÓÀÉ®×~¨º­n¦p¦ó¥H¦U­ÓÀɮפ¤¨ä¤¤¤@­Ó©T©wªºÀx¦s®æ·íÀɦW~

  1. ActiveWorkbook.SaveAs Filename:=filepath  & "/" & range("A1")
½Æ»s¥N½X

TOP

¦^´_ 2# a5007185
·PÁ«e½úªº«ü¾É~·Q¦A½Ð±Ð~¦pªG§Ú­n«ü©wÀx¦s¨ì¬Y­Ó¯S©wªº¦a¤è(Ä´¦pC¼ÑªºAAAÀɮק¨)¸Ó¦p¦ó°µ!!·PÁÂ

TOP

Filepath = "C:/AAA"

TOP

¦^´_ 4# a5007185
1533632723182.jpg
2018-8-7 17:06

¤£¦n·N«ä~¥i¬O·|¥X²{¿ù»~!!½ÐÀ°¦£­×¥¿¿ù»~

TOP

  1. ActiveWorkbook.SaveAs Filename:="C:\User\Eternity\Desktop\·s¸ê®Æ§¨ (3)\" & Range("F1")
½Æ»s¥N½X
§A¸Õ¸Õ¬Ý¡A
¨ä¹ê§ÚFilePath¥Nªí¦r¦êÅܼƤè«K§A§ïÀɮצì¸m¡C

TOP

¦^´_ 6# a5007185
«D±`·PÁÂ~¤w¥i¶¶§Q°õ¦æ~¬Ù¤U¤p§Ì¤£Â_­«½Æ°Ê§@ªº®É¶¡~{:2_37:}

TOP

¦^´_ 7# ¤p¸ô¦èªk


    §Ú¬O³o¼Ë§ïªº¡A¥i¥H°Ñ¦Ò¬Ý¬Ý¡C
  1. Dim xlsmApp As New Excel.Application
  2. Dim Fs , Date1 As String,Fss As Long
  3. Fs = Dir("\\¸ê®Æ§¨¸ô®|\") 'Ū¨ú¸ô®|¥Ø¥þ³¡ÀɮצWºÙ
  4. Do Until Fs = "": If Fs = Date1 & ".xlsx" Then Fss = 1'Àɮפw¦s¦bFss=1
  5. Fs = Dir
  6. Loop
  7. If Fss <> 1 Then
  8. xlsmApp.Visible = False
  9. xlsmApp.Workbooks.Add
  10. xlsmApp.Workbooks(1).SaveAs ("\\¸ê®Æ§¨¸ô®|\" & Date1 & ".xlsx") 'Date1¦r¦êÀɦW¡A§Ú°µ¬°¤é´ÁÅܼƫØÀÉ¡A§A¥i¥H§ï¦¨Range("F1")«ü©wÀx¦s®æ
  11. xlsmApp.Quit
  12. Set xlsmApp = Nothing
  13. End If
½Æ»s¥N½X
¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD