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

[µo°Ý] ½Ð°Ý¦p¦ó¦b"¤å¦r¤è¶ô"¿é¤J±ø¥ó«á¦A¥h·j´M¸ê®Æ

¦^´_ 9# GBKEE


Dear  GBKEE ª©¥D¤j¤j¡G

¡@¦A½Ð°Ý¤@¥ó¨Æ±¡¡G³Ì«á«ç»ò¦Û°Ê¶}啓³o­Ó¸ê®Æ§¨?
  1. gb = "D:\" & ML3 & "\" '¦sÀɦì¸m
½Æ»s¥N½X
   


¡@ª¦¤å«á¡A¥uª¾¹D¤U­±³o¦æµ{¦¡¡G
  Shell "explorer D:\´ú¸Õ¥Î\"  '³æ¯Â¥´¶}¸ê®Æ§¨
  Workbooks.Open ("D:\´ú¸Õ¥Î\·j´MÃöÁä¦r.xls")  '³æ¯Â¥´¶}ÀÉ®×

¡@¦ý¤£ª¾¹D«ç»ò¹B¥Î
§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

TOP

¦^´_ 11# »k¥ú°j¯T


   
¦ý¤£ª¾¹D«ç»ò¹B¥Î
§A­n°µ¦ó¨Æ?
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 12# GBKEE


Dear  GBKEE ª©¥D¤j¤j¡G

¡@¥´ºâ¦b¥H¤Uµ{¦¡°õ¦æ§¹«á¡A¦Û°Ê±a¥X¦Û³Ð¸ê®Æ§¨

¡@
  1. Option Explicit
  2. '¼Ò²Õ¤WºÝªº Dim («Å§iÅܼƬ°³o¼Ò²Õªº¨p¥ÎÅܼÆ),¶È³o¼Ò²Õªºµ{§Ç¥i¨Ï¥Î
  3. Dim gb As String, fsd As Object, ML3 As String


  4. Private Sub CommandButton1_Click()

  5. Dim fd As String, dm As String, ML1 As String, ML2 As String
  6. 'µ{§Ç¤¤ªº Dim («Å§iÅܼƬ°³oµ{§Çªº¨p¥ÎÅܼÆ,¶È³oµ{§Ç¤¤¥i¨Ï¥Î)

  7. dm = "D:\´ú¸Õ¥Î\" '·j´M¥D¸ô®|
  8. ML1 = Range("E3") '·j´MÀɮ׸ê®Æ§¨¥Ø¿ý¤@
  9. ML2 = Range("E5") '·j´MÀɮ׸ê®Æ§¨¥Ø¿ý¤G
  10. ML3 = Range("E7") '·j´MÀÉ®×ÃöÁä¦r
  11. gb = "D:\" & ML3 & "\" '¦sÀɦì¸m

  12. Set fsd = CreateObject("Scripting.FileSystemObject")
  13. fd = dm & ML1 & "\" & ML2 & "\" 'Àɮ׸ê®Æ§¨¦ì¸m
  14. If fsd.folderexists(gb) = False Then fsd.createfolder gb '¦Û³Ð¸ê®Æ§¨¤£¦s¦b«h«Ø¥ß
  15. °Æµ{¦¡ fd
  16. End Sub

  17. Private Sub °Æµ{¦¡(¸ê®Æ§¨ As String)
  18. Dim F As Object
  19. Debug.Print ¸ê®Æ§¨ '¥i¬Ý¤@¤U ¤l¸ê®Æ§¨¦WºÙ
  20. If Dir(¸ê®Æ§¨ & "\*" & ML3 & "*") <> "" Then '´ú¸ÕÃöÁä¦rÀɦW¬O§_¦s¦b
  21. fsd.copyfile ¸ê®Æ§¨ & "\*" & ML3 & "*", gb
  22. End If
  23. '*** ¦p¸ê®Æ§¨¤U¦³¤l¸ê®Æ§¨ ¦A©I¥s³o°Æ.µ{¦¡ ***
  24. '©I¥s µ{¦¡ªº°j°é
  25. For Each F In fsd.GetFolder(¸ê®Æ§¨).SUBFolderS
  26. °Æµ{¦¡ F & ""
  27. Next
  28. End Sub
½Æ»s¥N½X

¼Ë¥».rar (11.8 KB)

§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-10-3 19:33 ½s¿è

¦^´_ 13# »k¥ú°j¯T
¬O³o¼Ë¶Ü?
  1. '//**********************************//
  2.     ChDir gb   '§ïÅܥثeªº¥Ø¿ý©ÎÀɮק¨
  3.     With Application.FileDialog(msoFileDialogFilePicker)
  4.         .Show
  5.     End With
  6.    '//**********************************//
½Æ»s¥N½X
ÁÙ¬O¦p¦¹
  1. '//**********************************//
  2.     Dim e As Variant
  3.     ChDir gb   '§ïÅܥثeªº¥Ø¿ý©ÎÀɮק¨
  4.     With Application.FileDialog(msoFileDialogFilePicker)
  5.         If .Show = True Then
  6.             For Each e In .SelectedItems
  7.                 Workbooks.Open e
  8.             Next
  9.         End If
  10.     End With
  11.    '//**********************************//
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 14# GBKEE


Dear GBKEE ª©¥D¡G

¡@¤£ª¾¹D¬O¤£¬O§Úªº°ÝÃD¡D2ºØ³£¤£¬O§Ú­nªº®ÄªG¡A

¡@§Ú­nªº¬Oµ{¦¡°õ¦æ¥þ³¡¶]§¹«á¡A·|¸õ¥X gb = "D:\" & ML3 & "\" '¦sÀɦì¸m

¡@³o¤@¦æªº¸ê®Æ§¨¡A¦ý¤@ª½·Q¤£¥X¨Ó«ç»ò¼g¡H

¡@³Ò·Ð¤j¤j±z¤F¡AÁÂÁ±z¡ã

123.JPG (53.87 KB)

123.JPG

§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

TOP

¦^´_ 15# »k¥ú°j¯T
  1. Option Explicit
  2. Sub Ex()
  3.     Dim gb As String
  4.     gb = "D:\ÃöÁä¦r"  '¦sÀɦì¸m
  5.     Shell "explorer  " & gb, vbMaximizedFocus
  6.     '"explorer  "ªÅ¤@®æ + (³s±µ¤W)­n¶}±Òªº¸ê®Æ§¨ ©Î ÀÉ®×
  7.     '°Ñ¼Æ:vbMaximizedFocus,½Ð°Ñ¦Ò Shell ¨ç¼Æªº»¡©ú
  8. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 16# GBKEE


Dear  GBKEE ª©¥D¤j¤j¡G
¡@¡@¡@¥i¥H¤FÁÂÁ±z²Ó¤ßÁ¿¸Ñ¡A²×©ó«ö·Ó±zªº»¡©ú§¹¦¨¤F¡AÁÂÁ±z¡ã
§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD