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

[µo°Ý] ½Ð°Ý¦p¦ó«ü©w®É¶¡°Ï¶¡ªº¤u§@ï¡A¦X¨Ö¬°¦P¤@±i¤u§@ªí©O?!

[µo°Ý] ½Ð°Ý¦p¦ó«ü©w®É¶¡°Ï¶¡ªº¤u§@ï¡A¦X¨Ö¬°¦P¤@±i¤u§@ªí©O?!

½Ð°Ý¦p¦ó«ü©w®É¶¡°Ï¶¡ªº¤u§@ï¡A¦X¨Ö¬°¦P¤@±i¤u§@ªí©O?!
202010262.png
2020-10-26 11:31

°²³]§Ú­n«ü©w¨C¤Ñªº7ÂI¨ì15ÂIªº¤u§@ï¡A¦X¨Ö¨ì¦P¤@±i¤u§@ªí¡AVBAÀ³¸Ó«ç»ò¼g¤~¦n?
¥ýÁÂÁÂÀ°¦£ªº¤j¤j¤F!!

¦^´_ 1# lin0902

´£¨Ñ°Ñ¦Ò
Sub ex()
Dim file$, fn$, wb As Workbook
Application.ScreenUpdating = False
r = 1
file = Dir(ThisWorkbook.Path & "\*.xls*")
Do While file <> ""
   If Split(file, ".")(0) >= Format(Date, "mmdd") & "0700" And Split(file, ".")(0) <= Format(Date, "mmdd") & "1500" Then
      fn = ThisWorkbook.Path & "\" & file
      Set wb = GetObject(fn)
'---------------³o¤@¬q­n°µ¤°»ò½Ð¦Û¦æ­×§ï--------
      'Set sht = wb.Worksheets(1)
      'arr = sht.[a1].CurrentRegion
      'Cells(r, "a") = arr
'-------------------------------------------------
      wb.Close False
   End If
   r = r + 1
   file = Dir
Loop
Application.ScreenUpdating = True
End Sub

TOP

ÁÂÁÂjcchiang¤jÀ°¦£¡A³o¨â¤Ñ¦³ÂI¦£¡Aµ¥±ßÂI¦³ªÅ¦A¦A¨Ó¥Î±zªº¤èªk¸Õrun¡A·PÁ¡C

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD