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

¦³¿ìªk¦¬´M¸ê®Æ§¨¸Ì­±¥u­n«Ê­±¦r¦êªºEXCEL,¦Û°Ê¦æ¦¨¤u§@ªí¶Ü?

¦³¿ìªk¦¬´M¸ê®Æ§¨¸Ì­±¥u­n«Ê­±¦r¦êªºEXCEL,¦Û°Ê¦æ¦¨¤u§@ªí¶Ü?

´N¬O¸ê®Æ§¨¸Ì­±ªºEXCEL ¦³«Ê­±¦r¦êªºEXCEL ¦Û°ÊÂà´«¦¨¤u§@ªí.
¤pªZ

¦^´_ 1# show5217


   

Ãþ¦ü³o¼Ë±a¤J¤u§@ªí

test.jpg
2019-9-17 15:50
¤pªZ

TOP

¦^´_ 2# show5217

¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim N As String
  4.     N = Dir("e:\gbkee\*«Ê­±.xls", vbDirectory)
  5.     '**e:\gbkee\   >>½Ð§ï¬°§A¥¿½Tªº¸ô®|
  6.     Do While N <> ""
  7.         N = Dir
  8.         With Sheets.Add(, Sheets(Sheets.Count))
  9.             .Name = Replace(N, "«Ê­±.xls", "")
  10.         End With
  11.     Loop
  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE
ÁÂÁ¤j¤j«ü¾É  ¸ô®|¥i¥H³]©w¦Û¤v¿ï¾Ü¶Ü ·PÁÂ
¤pªZ

TOP

¦^´_ 4# show5217
¦p¦³¤£¸Ñ,¦h¬ÝEXCEL¤Wªº»¡©ú
  1. Option Explicit
  2. Sub Ex()
  3.     Dim N As String
  4.     With Application.FileDialog(msoFileDialogFolderPicker)
  5.         .InitialFileName = "E:\GBKEE"  '«ü©w§A¥¿½T¸ê®Æ§¨
  6.         If .Show = True Then
  7.             N = .SelectedItems(1)
  8.         Else
  9.             MsgBox "¨S¦³«ü©w¸ê®Æ§¨": Exit Sub
  10.         End If
  11.     End With
  12.     N = Dir(N & "\*«Ê­±.xls", vbDirectory)
  13.   Do While N <> ""
  14.         N = Dir
  15.         With Sheets.Add(, Sheets(Sheets.Count))
  16.             .Name = Replace(N, "«Ê­±.xls", "")
  17.         End With
  18.     Loop
  19. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD