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

show5217

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

show5217

¦^´_ 1# show5217


   

¤U¸ü (68.13 KB)
Ãþ¦ü³o¼Ë±a¤J¤u§@ªí

2019-9-17 15:50

GBKEE

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

show5217

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

GBKEE

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