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

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

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

¤å¥ó¥~¼g¤å¥óµù¸Ñ.rar (51.68 KB) »¡©ú:        §Ú¬O¥Î¦¹¤å¥ó,§â¦Û¤vÃö¤ßªº¤å¥ó©ñ¦b¤@°_,¼gÂIµù¸Ñ,ÀH®É¥i¼W´î¤å¥ó,ÀH®É¥i¥H§ä¨ì¤å
        ¥ó,ÂùÀ»¤å¥ó¦W´N¥i¥H¥´¶}¤å¥ó¤F
1        §â¥»¤å¥ó©ñ¦b§A¦¬¶°¤å¥óªº¸ê®Æ§¨¨½
2        «ö"¤å¥ó¦Cªí"·|¦C¥X¸ê®Æ§¨¨½¥]¬A¤l¸ê®Æ§¨¨½©Ò¦³¤å¥ó²M³æ(¸ô®|.¤å¥ó¦W,¤j¤p,¤é´Á)
3        ¦bFÄæ¼g¤W¨C­Ó¤å¥óªºµù¸Ñ
4        ¥H«á¥i¥H¦b³o­Ó¸ê®Æ§¨¨½¥ô·N¥[¤J¤å¥ó©Î¸ê®Æ§¨,«ö"¤å¥ó¦Cªí"´N·|¥[¤J¦Cªí·s
        ¦¨­û,¦Ó¤å¥óªºµù¸ÑÁÙ¬O¸ò¤å¥óªºFÄ樽
5        ¬°¨¾¤î¦P¦W¤å¥ó¤Þ°_µù¸Ñ²V¶Ã,¥i¥H¦b¸ê®Æ§¨¨½¥[¤J·s¤å¥ó¦Z,¥ý¦b"´ú¸Õ¦P¦W¤å
        ¥ó"­¶,«ö"´ú¸Õ",¬Ý¬Ý¦³µL¦P¦W¤å¥ó,¦P¦W¤å¥ó·|Åã¥Ü¾í¦â,§A­n¥ý¸Ñ¨M¨S¦³¦P¦W
        ¤å¥ó,¦A¦b"sheet1"¨½«ö"¤å¥ó¦Cªí"
6        °µ"¤å¥ó¦Cªí"®É,"sheet2"¨½¯d¤F¥÷copy,µo¥Í·N¥~,§â"sheet2"copy¨ì"sheet1"´N¥i¥H¤F
7        °µ"¤å¥ó¦Cªí"³Ì«áµ¹AÄæ±Æ§Ç,Åý¦P¤@­Ó¤l¸ê®Æ§¨¤å¥ó©ñ¦b¤@°_,¤è«K¬d§ä
8        Ãö©ó"Ä椺§ä¦r¦ê",activecell¦bBÄæ,·|¦bBÄæ§ä"¦r¦ê"
        activecell¦bFÄæ,·|¦bFÄæ§ä"¦r¦ê"
        activecell¤£¦bBÄæ,¤]¤£¦bFÄæ,¦P¼Ë¦bFÄæ§ä"¦r¦ê"(FÄæ¬Oµù¸Ñ,§A¥i
        ¯à·|§âÃöÁä¦r¦ê¼g¦b¸Ì­±,©Ò¥HFÄæ§ä¦r¦ê¬O¥D­nªº)
9        ¦P¦W¤å¥ó©Î§ä¦r¦ê§ä¨ìªº¤å¥ó,³£·|Åã¥Ü¾í¦â,«ö"Á٭쩳¦â"¥i¥H®ø°£¾í¦â.
10        sheet1¨½3­Ó«ö¶s¥Ã»·°±¦b¥i¨£Àx¦s®æªº¥k¤U¨¤Àx¦s®æªº¥ªÃä¤@®æ.
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.
lmh

¦^´_ 1# mhl9mhl9

¹ï¤£°_,ªþ¥ó¨ú¿ùcopy,²{¦bªþ¤W¥¿½Tªºªþ¥ó,sorry ¤å¥ó¥~¼g¤å¥óµù¸Ñ.rar (35.92 KB)
lmh

TOP

¦^´_ 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

¦^´_ 3# GBKEE

ÁÂÁÂ¥ý,­n©ú¤Ñ¦³®É¶¡»{¯u¾Ç²ß.
lmh

TOP

¦^´_ 3# GBKEE

¤Ó¦n¤F,¶¶ºZ,§Ö±¶,copy and paste,´N¯à¥Î,¯u¬OÁÂÁÂ.
§ÚÁÙ¦³­ÓºÃ´b·Q¨D±Ð,«ö°ÆÀɦW¤£¦P,¨t²Î·|¦Û°Ê¿ï¾Ü2003©Î2007¶}±ÒexcelÀÉ®×,¦ý¥Î¶WÃì±µ¶}±Òexcel¤å¥ó´N¤£¦P¤F,¶WÃì±µ¦b2003¨t²Î¥Î2003¶}±Ò©Ò¦³excel¤å¥ó,¶WÃì±µ¦b2007¨t²Î«h¥Î2007¶}±Ò©Ò¦³excel¤å¥ó,¦³®É³Â·Ð¤]´X¤jªº,¦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ÅÞ¿è,¦ý§ÚÁÙ·Q°Ý°Ý°ª¤â,¦³¥i¯à°µ¨ì¶Ü?ÁÂÁ§A
lmh

TOP

·PÁ mhl9mhl9 ªº¥Î¤ß¤À¨É¡G
¡@ÅýÁÙ¬O·s¤â¾Ç²ßªº§Ú¡Aª¾¹D­ì¨ÓExcel ÁÙ¥i¥H³o¼Ë°µ¡A
¡@¡@1.´£¨ú¸ê®Æ§¨©³¤Uªº¤å¥ó
¡@¡@2.¦C¥X¤å¥óªº¤é´Á»P®É¶¡
¡@¡@3.¦C¥X¤å¥óªº¤j¤p¦ì¤¸
¡@¡@4.¤å¥óªí®æ¤º¦r¦êªº·j´M
¡@¡@5.¡i«ü¥O«ö¶s¡j»P¡iªí³æ«ö¶s¡jªº¤£¦PÀ³¥Î
¡@¡@6.Excel ªíªº©³¦â²M°£¤è¦¡
¡@¡@7.¤å¥ó©Ò¦b¸ô®|±a¥X¤è¦¡

¡@¬O­Ó¤£¿ùªº¾Ç²ß½d¥»»P¾Ç²ß¤è¦V¡AÁÂÁ±z¡ã
§Ú«Ü²Â,©Ò¥H§Ú«Ü¥Î¤ß
¡@§Ú¾ÇÃÀ¤£ºë,¦ý§Ú´÷¨Dª¾ÃÑ

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

¦^´_ 7# GBKEE


    ¦ý¬O,"2007 ªº¶W³s±µ»yªk"©M2003¤£¦Pªº¶Ü?
lmh

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

¦^´_ 9# GBKEE


    book1.xls¨½«Ø¥ß2­Ó¶WÃì±µ,¤À§O³s±µbook2.xlsm©Mbook3.xls,¥Î2003¶}±Òbook1.xlsÂIÀ»³o2­Ó³s±µ,¨t²Î³£¥Î2003Application¶}±Ò.§Ú§Æ±æÂIÀ»book2.xlsm¯à¥Î2007¶}±Ò,ÂIÀ»book3.xls¯à¥Î2003Application¶}±Ò.
§A´£¨Ñªº¤èªk¬O´ú¸Õ¶}±Òbook1.xlsªºApplication.version,§Ú¸Õ¤F¸Õ,»P¶}±ÒÂIÀ»¶W³s±µ,¨t²Î¥Î¤°»òversionªºApplication¶}±ÒµLÃö.
lmh

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD