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

[µo°Ý] ½Ð°Ý±N¤£¦PÀɮ׶פJ¤À­¶ªºµ{¦¡

[µo°Ý] ½Ð°Ý±N¤£¦PÀɮ׶פJ¤À­¶ªºµ{¦¡

½Ð±Ð¤@¤U¦U¦ì¤j¤j
§Ú·Q§âAÀÉ©MBÀÉ©ñ¦Ü¬Y­Ó¸ê®Æ§¨¡A
§Ú·Q¦bABÀɤº¼g¤@­Ó¥¨¶°¡A·|§â§Ú©ñ¦b¸ê®Æ§¨¤ºªºAÀÉBÀɪºA¤À­¶©MB¤À­¶
½Æ»s¨ìABÀɤº
½Ð¤j®aÀ°¦£
¶×¤J¤À­¶.zip (3.7 KB)

§Ú·Q¦bABÀɤº¼g¤@­Ó¥¨¶°¡A·|§â§Ú©ñ¦b¸ê®Æ§¨¤ºªºAÀÉBÀɪºA¤À­¶©MB¤À­¶
½Æ»s¨ìABÀɤº

AÀÉBÀɸ̭±¨Ã¨S¦³¤°»òA¤À­¶©MB¤À­¶§r
¶Ç¿ù¸ê®Æ¤F§a¡H

TOP

¦^´_ 1# imzues
¬O³o¼Ë¶Ü?
  1. Sub Ex() 'ABªº¥¨¶°
  2.     Dim msPath As String
  3.     msPath = ThisWorkbook.Path & "\"
  4.     With Workbooks.Open(msPath & "A.XLS")
  5.         .Sheets("A").Copy ThisWorkbook.Sheets(1)
  6.         .Close False
  7.     End With
  8.     With Workbooks.Open(msPath & "B.XLS")
  9.         .Sheets("B").Copy ThisWorkbook.Sheets(2)
  10.         .Close False
  11.     End With
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# GBKEE


    ½Ð°Ý¤@¤U¹³sheet("A")ªº³¡¥÷¦³¿ìªk¨Ì·Ó·í¤Ñ¤é´Áª½±µ°µ§ïÅܶÜ
¨Ò¦p¤µ¤Ñ¬O10¤ë18¤é
´N·|ª½±µ½ÆÂø1018ªºsheet¡A¥i¥H¶Ü??

TOP

¦^´_ 4# imzues
  1. Sub Ex() 'ABªº¥¨¶°
  2.     Dim msPath As String
  3.     msPath = ThisWorkbook.Path & "\"
  4.     With Workbooks.Open(msPath & "A.XLS")
  5.         .Sheets("A").Copy ThisWorkbook.Sheets(1)
  6.         ActiveSheet.Name = Format(Date, "MMDD")
  7.         .Close False
  8.     End With
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# GBKEE


    ½Ð°Ý»Ý­n±N
.Sheets("A").Copy ThisWorkbook.Sheets(1)§ï¦¨
  .Sheets("mmdd").Copy ThisWorkbook.Sheets(1)
§Ú¸Õ¤£¤Ó¥X¨Ó!!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-10-19 12:50 ½s¿è

¦^´_ 6# imzues

   §Ú¤S­«·s¤W¶Ç¤F¤@¥÷ÀÉ®×
    ­Y¬OAÀɪºsheet¬O¥Ñ¤é´Á©R¦Wªº¡A
   ¨º§Ú¥ÎABÀÉ©ÔÀɮɡA¥i¥H¨C¤Ñ³£·|¦Û¤v©Ô¨ì·í¤Ñªºsheetªº¶Ü?? ¶×¤J¤À­¶v2.zip (3.75 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-10-19 12:50 ½s¿è

¦^´_ 7# imzues
  1. Sub Ex() 'ABªº¥¨¶°
  2.     Dim msPath As String
  3.     msPath = ThisWorkbook.Path & "\"
  4.     With Workbooks.Open(msPath & "A.XLS")
  5.         .Sheets(Format(Date, "MMDD")).Copy ThisWorkbook.Sheets(1)
  6.         .Close False
  7.     End With
  8. End Sub
½Æ»s¥N½X

TOP

¦^´_ 8# GBKEE


    ¤Ó·PÁ¤F~
    ·Q¦A½Ð±Ð¤@­Ó°ÝÃD­Y¬O§ì¨úªºÀɦW¤]¦³¤é´Á®æ¦¡
      ¨Ò¦pÀɦW¬ODailyIdleLot-2011-10-19-0800
   ­Y¤@¼Ë·Q­n¥i¥HÀH¤é´Á¤£¦P¦Ó§ì¤£¦P¤é´ÁªºÀɸӫç»ò§ï??

TOP

¦^´_ 9# imzues
¬O³o¼Ë¶Ü?
  1. Sub Ex() 'ABªº¥¨¶°
  2.     Dim msFile As String
  3.     ChDir ThisWorkbook.Path & "\"
  4.                  'DailyIdleLot -2011 - 10 - 19 - 800
  5.     msFile = Dir("DailyIdleLot -" & Format("yyyy - mm - dd - ") & "*")
  6.     If msFile <> "" Then
  7.         With Workbooks.Open(msFile)
  8.         .Sheets(Format(Date, "MMDD")).Copy ThisWorkbook.Sheets(1)
  9.         .Close False
  10.         End With
  11.     End If
  12. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD