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

[¤À¨É] ¦b¤å¥ó¥~¼g¤å¥óµù¸Ñ

¦^´_ 2# mhl9mhl9


   
11        ¦]¬° filesearch ¦bexcel2007¤£¦A¥i¥Î,©Ò¥H¥»¤å¥ó¤£¯à¦b2007excel¨Ï¥Î
        ¥i¥H¥´¶}¥»¤å¥ó,¦ý"¤å¥ó¦Cªí"¥¢®Ä.
12        ¦pªG¤£¥Î filesearch,¦Ó§ï¥ÎDir(),excel2007´N¥i¥H¥Î¤F.§Ú¸Õ¹LDir(),¦ý©â¨ú¦h¼h¤l¸ê®Æ§¨
        ¤å¥ó¤£²z·Q,¥»½èÁÙ¬O¾Ç±o¤£°÷.¤@ª¾¥b¸Ñ§a.

2007 ¥i¸Õ¸Õ¬Ý CreateObject("Scripting.FileSystemObject")
  1. Option Explicit
  2. Dim Fs As Object, Sh As Worksheet, d As Object
  3. Sub iMain_Ex()
  4.     Dim xlFileDialog As FileDialog
  5.     Set xlFileDialog = Application.FileDialog(msoFileDialogFolderPicker) '¶}±Ò¸ê®Æ§¨ªº¹ï¸Ü®Ø
  6.     If xlFileDialog.Show = True Then  '¹ï¸Ü®Ø: ¦³«ö¤U½T©w
  7.         Application.ScreenUpdating = False
  8.         Set Sh = Sheet1
  9.         Set Fs = CreateObject("Scripting.FileSystemObject")  '¨t²ÎÀɮת«¥ó: ´£¨Ñ¹ï¹q¸£Àɮרt²Îªº¦s¨ú
  10.         Set d = CreateObject("Scripting.dictionary")         '¦r¨åª«¥ó
  11.         With Sh.UsedRange
  12.             .Clear
  13.             .Range("a1").Resize(, 7) = Array("¸ô®|", "¤å¥ó¦W", "°ÆÀɦW", "¤å¥óªø«×", "«ØÀɤé´Á", "¦sÀɤé´Á", "µù¸Ñ")
  14.             .Range("A1:F1").Font.Bold = True
  15.             .Range("A1:F1").HorizontalAlignment = xlCenter
  16.             
  17.             ¸ê®Æ§¨_°Æµ{¦¡ xlFileDialog.SelectedItems(1)
  18.             
  19.             .Columns("D:D").NumberFormatLocal = "#,### ""KB"""
  20.             .Columns("E:F").NumberFormatLocal = "yyyy-mm-dd"
  21.         End With
  22.         Application.ScreenUpdating = True
  23.     End If
  24. End Sub
  25. Private Sub ¸ê®Æ§¨_°Æµ{¦¡(¸ê®Æ§¨ As String)
  26.     Dim f As Object
  27.     For Each f In Fs.GetFolder(¸ê®Æ§¨).Files   'Files(ª«¥ó):Àɮ׶°¦X
  28.         With Sh.[A1].End(xlDown).End(xlDown).End(xlUp).Offset(1)
  29.             
  30.             Àɮת«¥ó_°Æµ{¦¡ f, .Cells
  31.             
  32.         '    .Range("a1") = f.ParentFolder
  33.          '   .Range("b1") = f.Name
  34.          '   .Hyperlinks.Add Anchor:=.Range("b1"), Address:=f
  35.          '   .Range("c1") = Fs.GetExtensionName(f) ''Mid(F.Name, InStr(F.Name, ".") + 1)
  36.          '   .Range("d1") = f.Size / 1024
  37.          '   .Range("e1") = f.DateCreated
  38.          '   .Range("F1") = f.DateLastAccessed
  39.             
  40.              ¦r¨åª«¥ó_°Æµ{¦¡ f, .Range("b1")
  41.           '  If d.Exists(F.Name) Then
  42.            '     Set d(F.Name) = Union(d(F.Name), .Range("b1"))
  43.             '    d(F.Name).Interior.ColorIndex = 40
  44.            ' Else
  45.             '    Set d(F.Name) = .Range("b1")
  46.             'End If
  47.             
  48.         End With
  49.     Next
  50.     '********************************************
  51.     '*** ¦p¸ê®Æ§¨¤U¦³¤l¸ê®Æ§¨ ¦A©I¥s³o°Æ.µ{¦¡ ***
  52.     '©I¥s µ{¦¡¥»¨­ªº°j°é                      ***
  53.     '********************************************
  54.     For Each f In Fs.GetFolder(¸ê®Æ§¨).SubFolders  'SubFolders(ª«¥ó):¸ê®Æ§¨¶°¦X
  55.         ¸ê®Æ§¨_°Æµ{¦¡ f & ""
  56.     Next
  57. End Sub
  58. Private Sub Àɮת«¥ó_°Æµ{¦¡(f As Object, Rng As Range)
  59.     With Rng
  60.         .Range("a1") = f.ParentFolder      '¶Ç¦^«ü©wÀɮשθê®Æ§¨ªº¤÷¸ê®Æ§¨ª«¥ó¡C
  61.         .Range("b1") = f.Name
  62.         .Hyperlinks.Add Anchor:=.Range("b1"), Address:=f
  63.         .Range("c1") = Fs.GetExtensionName(f) '¶Ç¦^Àɮתº°ÆÀɦW
  64.         .Range("d1") = f.Size / 1024
  65.         .Range("e1") = f.DateCreated          'Àɮשθê®Æ§¨ªº«Ø¥ß¤é´Á©M®É¶¡
  66.         .Range("F1") = f.DateLastAccessed     'Àɮ׳̫á¤@¦¸¦s¨ú«ü©wÀɮשθê®Æ§¨ªº¤é´Á©M®É¶¡
  67.     End With
  68. End Sub
  69. Private Sub ¦r¨åª«¥ó_°Æµ{¦¡(f As Object, Rng As Range)
  70.         If d.Exists(f.Name) Then
  71.             Set d(f.Name) = Union(d(f.Name), Rng)
  72.                 d(f.Name).Interior.ColorIndex = 40
  73.         Else
  74.             Set d(f.Name) = Rng
  75.         End If
  76. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# mhl9mhl9


   
§Ú¬O·Q¥i¤£¥i¥H¥ÎVB±±¨î¨t²Î«ö°ÆÀɦW¨M©w¥Î2003©Î2007¶}±Ò¶WÃì±µªºexcel¤å¥ó.°ÝÃD¦ü¥G¦³ÂI¤£¦XÅÞ¿è,¦³¥i¯à°µ¨ì¶Ü?

¬O³o¼Ë¶Ü?
  1. Private Sub Àɮת«¥ó_°Æµ{¦¡(f As Object, Rng As Range)
  2.     With Rng
  3.         .Range("a1") = f.ParentFolder      '¶Ç¦^«ü©wÀɮשθê®Æ§¨ªº¤÷¸ê®Æ§¨ª«¥ó¡C
  4.         .Range("b1") = f.Name
  5.         '***************************************
  6.         If Application.Version = "11.0" Then        'Excel 2003 ª©¥»
  7.                 .Hyperlinks.Add Anchor:=.Range("b1"), Address:=f
  8.         ElseIf Application.Version = "12.0" Then    'Excel 2007 ª©¥»
  9.                  '2007 ªº¶W³s±µ»yªk
  10.         End If
  11.         '***************************************
  12.         .Range("c1") = Fs.GetExtensionName(f) '¶Ç¦^Àɮתº°ÆÀɦW
  13.         .Range("d1") = f.Size / 1024
  14.         .Range("e1") = f.DateCreated          'Àɮשθê®Æ§¨ªº«Ø¥ß¤é´Á©M®É¶¡
  15.         .Range("F1") = f.DateLastAccessed     'Àɮ׳̫á¤@¦¸¦s¨ú«ü©wÀɮשθê®Æ§¨ªº¤é´Á©M®É¶¡
  16.     End With
  17. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_  GBKEE


    ¦ý¬O,"2007 ªº¶W³s±µ»yªk"©M2003¤£¦Pªº¶Ü?
mhl9mhl9 µoªí©ó 2014/10/22 23:49
  1.     ¦b2003´ú¸Õ©M«O¦sªº¤å¥ó,¶WÃì±µ¥Î2007¶}±Ò,®É®É·|¦³°ÝÃD,¤S¤£·Q§ï¤å¥ó(©¹©¹¬O­n¥Î¤~·|§ï),¥u¯à§ïapplication­«·s¶}±Ò.§Ú¬O·Q¥i¤£¥i¥H¥ÎVB±±¨î¨t²Î«ö°ÆÀɦW¨M©w¥Î2003©Î2007¶}±Ò¶WÃì±µªºexcel¤å¥ó.°ÝÃD¦ü¥G¦³ÂI¤£¦XÅÞ¿è
½Æ»s¥N½X
³o¬q¥i¥H¦A»¡©ú¥Õ¤@¨Ç¶Ü?
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 10# mhl9mhl9

¶W³s±µ¤À§O³s±µbook2.xlsm©Mbook3.xls,§Ú§Æ±æÂIÀ»book2.xlsm¯à¥Î2007¶}±Ò,ÂIÀ»book3.xls¯à¥Î2003Application¶}±Ò
³o¬O¤£¿ùªººc·Q,¦³¦b­þ¸Ì¬Ý¨ì¶Ü?
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD