luhpro

¦^´_ 1# koala2099
all-a.zip (25.81 KB)

¤U¸ü¦¸¼Æ: 9

2013-10-30 22:58

1. Private Sub cbLdData_Click()
   
2.   Dim iI%
   
3.   Dim sSh$(0 To 1)
   
4.   Dim lRow&, lRows&
   
5.   Dim vFs, vF
   
6.   
   
7.   sSh(0) = "s"
   
8.   sSh(1) = "e"
   
9.   For iI = 0 To 1
   
10.     With Sheets(sSh(iI))
    
11.       .Activate
    
12.       .Cells.ClearContents
    
13. 
    
14.       Set vFs = CreateObject("Scripting.FileSystemObject")
    
15.       Set vF = vFs.OpenTextFile(ThisWorkbook.Path & "\" & sSh(iI) & ".csv", 1, -2) ' ¨Ï¥Î¨t²Î¹w³]®æ¦¡¶}±Ò°ßŪ¤å¦rÀÉ®×
    
16.       lRow = 1
    
17.       Do While Not vF.AtEndOfStream
    
18.         With .Cells(lRow, 1)
    
19.           .Value = vF.readline
    
20.           .TextToColumns Comma:=True
    
21.         End With
    
22.         lRow = lRow + 1
    
23.       Loop
    
24.       vF.Close
    
25.       .Range(.[A2], .[B2]).Insert shift:=xlShiftDown
    
26.       lRow = 2
    
27.       lRows = 2
    
28.       Do While .Cells(lRows, 3) <> ""
    
29.         If .Cells(lRows, 1) <> "" Then
    
30.           .Rows(lRows).Cut
    
31.           .Cells(lRow, 1).Insert
    
32.           lRow = lRow + 1
    
33.         End If
    
34.         lRows = lRows + 1
    
35.       Loop
    
36. On Error GoTo LdDataErr
    
37.       .[A1].SortSpecial key1:=.[A1], Header:=xlYes
    
38.       lRows = 2
    
39.       Do While .Cells(lRows, 1) <> ""
    
40.         lRows = lRows + 1
    
41.       Loop
    
42.       .Rows(lRows & ":" & Rows.Count).Delete
    
43.     End With
    
44.   Next iI
    
45. On Error GoTo 0
    
46. Exit Sub
    
47.   
    
48. LdDataErr:
    
49.   Select Case Err.Number
    
50.     Case 1004
    
51.       Resume Next
    
52.     Case Else
    
53.       MsgBox "µo¥Í¿ù»~, ¿ù»~¥N½X : " & Err.Number & "  ,¿ù»~­ì¦] : " & Err.Description
    
54.       Exit Sub
    
55.   End Select
    
56. End Sub

½Æ»s¥N½X

luhpro

¦^´_ 3# koala2099

1. Sub nn()
   
2.   Dim iI%
   
3.   Dim sSh$(0 To 1)
   
4. 
   
5.   sSh(0) = "S"
   
6.   sSh(1) = "E"
   
7.   For iI = 0 To 1
   
8.     With Workbooks.Open(ThisWorkbook.Path & "\" & sSh(iI) & ".xls")
   
9.       .Sheets(sSh(iI)).Cells.Copy Me.Parent.Sheets(sSh(iI)).[A1]
   
10.       .Close SaveChanges:=False
    
11.     End With
    
12.   Next iI
    
13. End Sub

½Æ»s¥N½X

µù : 1. µ{¦¡­n»P E.xls(¤º¦³ Sheets("E")) ¤Î S.xls(¤º¦³ Sheets("S")) <- ¦¹§Y­n Copy ªº¸ê®ÆSheet ¨â­ÓÀɮשñ¦b¦P­Ó¥Ø¿ý¤U.
      2. ¦b¤W­zµ{¦¡©Ò¦bªºÀɮפ¤,S »P E ¨â­Ó Sheet ¥²¶·¦s¦b, §_«h·|µo¥Í¿ù»~.
      3. ½Ð¯d·N -  ¦b¤W­zµ{¦¡©Ò¦bªºÀɮפ¤ªº S »P E ¨â­Ó Sheet ªº©Ò¦³¸ê®Æ·|¥þ³¡³QÂл\±¼.
      4. ¦pªG¨C¦¸³£­n½Æ»s¨ì¦P¤@­Ó Sheet ¤º, ¥u­n§ï²Ä 9 ¦æ:
      .Sheets(sSh(iI)).Cells.Copy Me.Parent.Sheets("¥ØªºSheetªº¦WºÙ")).[A1]

luhpro

¦^´_ 5# koala2099
¦pªG½T©w¥ØªºÀɮ׳£«Ü³æ¯Â¥u¦³¤@­Ó Sheet ¨º²Ä 9 ¦æ¥i¥H§ï¦¨ :

.Sheets(1).Cells.Copy Me.Parent.Sheets(sSh(iI)).[A1]

§Y¥i.