[µo°Ý] «ü©w¸ê®Æªí

v03586

½Ð·Q°Ý¤j¤j ¦p¤Uµ{¦¡½X ¦p¦ó­×§ï´M§ä«ü©wªº¸ê®Æªí¦WºÙ

§Ú¦³¨â­ÓÀÉ®×  AÀɮ׬Oª½¦æÀÉ  BÀɮ׬O°Ñ¦Ò¸ê®Æ¨Ó·½
BÀɮתºExcel ¦WºÙ¤£©T©w . ¦ý¤º®eªº¸ê®Æªí¦WºÙ©T©w , ¦p¤U¼gªk ¥u·|§PÂ_ BÀɮתº²Ä¤@­Ó¶¶¦ì¸ê®Æªí , ¥~¥[§PÂ_²Ä¤@­Ó¸ê®Æªí Title Äæ¦ì·í¤¤ªºÃöÁä¦r
°²³]¸ê®Æªí¶¶§Ç¤@½Õ´«´NµLªk§PÂ_...·Q½Ð°Ý¤j¤j¦p¦ó­×§ï§Y¨Ï¸ê®Æªí¶¶§Ç½Õ´«¤]¤£¼vÅTµ{¦¡§PÂ_©O??

¦p¤Uµ{¦¡½X¹B§@¬O¶}±ÒAÀÉ®× »PBÀÉ®× , °õ¦æµ{¦¡«á ·|±NBÀɮתº¸ê®Æ¶×¤JAÀɮ׫ü©wªº¤u§@ªíÄæ¦ì
With Workbooks(i).Sheets(1)
If .Range("A" & title_row).Value Like "A*" And .Range("D" & title_row).Value Like "B*" And .Range("E" & title_row) Like "C*"
Set xS = Workbooks(i).Sheets(1)

1. Dim UType%
   
2. Sub ¶×¤J()
   
3. 
   
4. Dim xFile$, x As New Application, xB As Workbook, xS As Worksheet
   
5. Dim RepSht As Worksheet, xR As Range, xLab As Range, xAddress$
   
6. Set RepSht = Sheets("A")
   
7. 
   
8. Application.ScreenUpdating = False
   
9. RepSht.UsedRange.EntireRow.Delete
   
10.     Dim currentPKG, currentDevice, whichFirst As String
    
11.     Dim index As Integer
    
12.     Dim hasReport As Boolean
    
13.     title_row = 1
    
14.     hasReport = False
    
15.     For i = 1 To Workbooks.Count
    
16.         With Workbooks(i).Sheets(1)
    
17.             If .Range("A" & title_row).Value Like "A*" And .Range("D" & title_row).Value Like "B*" And .Range("E" & title_row) Like "C*" Then
    
18.                 Set xS = Workbooks(i).Sheets(1)
    
19.                 hasReport = True
    
20.                 i = Workbooks.Count + 1
    
21.             End If
    
22.         End With
    
23.     Next i
    
24.     If hasReport = False Then MsgBox "§ä¤£¨ìÀɮסI¡@": Exit Sub
    
25.     R = xS.Cells(Rows.Count, 1).End(xlUp).Row + 5
    
26. With RepSht
    
27.      .Range("A1:A" & R) = xS.Range("D1:D" & R).Value
    
28.      .Range("B1:B" & R) = xS.Range("A1:A" & R).Value
    
29.      .Range("C1:C" & R) = xS.Range("AH1:AH" & R).Value
    
30.      .Range("D1:D" & R) = xS.Range("C1:C" & R).Value
    
31.      .Range("E1:E" & R) = xS.Range("AB1:AB" & R).Value
    
32.      .Range("F1:F" & R) = xS.Range("E1:E" & R).Value  
    
33.      .Range("G1:G" & R) = xS.Range("F1:F" & R).Value
    
34.      .Range("H1:H" & R) = xS.Range("G1:G" & R).Value  
    
35.      .Range("I1:I" & R) = xS.Range("J1:J" & R).Value
    
36.      .Range("J1:Z" & R) = xS.Range("K1:AA" & R).Value
    
37.      .Range("AA1:AA" & R) = xS.Range("AD1:AD" & R).Value
    
38. 
    
39. End With
    
40. End Sub

½Æ»s¥N½X

¸­°ê¬w

¦^´_ 1# v03586
§â"Sheets(1)"¸Ìªº1§ï¦¨¤u§@ªí¦WºÙ´N¦æ¤F

v03586

¦^´_ 2# ¸­°ê¬w


    With Workbooks(i).Sheets(1) ¡÷¡@With Workbooks(i)."¤u§@ªí1"

³o¼Ë¶Ü???

starry1314

¦^´_ 3# v03586


    With Workbooks(i).Sheets(1) ¡÷¡@With Workbooks(i).Sheets("¤u§@ªí1")

v03586

¦^´_ 4# starry1314


    ¥X²{°}¦C¤Þ¯Á¶W¥X½d³ò  ¿ù»~

c_c_lai

¦^´_ 5# v03586
§A¤W¶Ç AB ¨âÀɮסA¤£´N©úÁA¤F¡H
¤@¯ë¬O§A¤u§@ªí©w¸qªº¦WºÙ§ä¤£µÛ¡C

v03586

¦^´_ 6# c_c_lai

­nŪ¨úÀɮ׸ê®Æªí¦WºÙ  "H LOT"
¶}±Ò¨â­ÓExcel ÀÉ  ÂI¿ï²£¥Í³øªí

    Report.rar (1013.15 KB)

¤U¸ü¦¸¼Æ: 9

2016-11-13 16:10

c_c_lai

¦^´_ 7# v03586
°ÝÃD¥X¦b

1. Set RepSht = Sheets("FMC")

½Æ»s¥N½X

³æ¿W¶}±Ò "Report_3.xls" ¬OOK ªº¡C
¦ý¬O¦A¶}±Ò "­ì©lÀÉ®×.xlsx" «K¥X°ÝÃD¤F¡A
¦]¬° ActiveWorkbook §ïÅܤF¡C

1. Set RepSht = Workbooks(1).Sheets("FMC")

½Æ»s¥N½X

«h OK¡C

v03586

¦^´_ 8# c_c_lai

§Ú§ó§ï³o¼Ë ÁÙ¬O¥X²{¿ù»~­C , °}¦C¤Þ¯Á¶W¥X½d³ò
¡õ
With Workbooks(i).Sheets("H LOT")

1. Dim xFile$, x As New Application, xB As Workbook, xS As Worksheet
   
2. Dim RepSht As Worksheet, xR As Range, xLab As Range, xAddress$
   
3. Set RepSht = Sheets("FMC")
   
4. 
   
5. Sheets("FMC").Activate
   
6. Application.ScreenUpdating = False
   
7. 
   
8. RepSht.UsedRange.EntireRow.Delete
   
9.     Dim currentPKG, currentDevice, whichFirst As String
   
10.     Dim index As Integer
    
11.     Dim hasReport As Boolean
    
12.     title_row = 1
    
13.     hasReport = False
    
14.     For i = 1 To Workbooks.Count
    
15.         With Workbooks(i).Sheets("H LOT")
    
16.             If .Range("A" & title_row).Value Like "MONBR*" And .Range("D" & title_row).Value Like "DEVICE*" And .Range("E" & title_row) Like "PKG*" Then
    
17.                 Set xS = Workbooks(i).Sheets("H LOT")
    
18.                 hasReport = True
    
19.                 i = Workbooks.Count + 1
    
20.             End If
    
21.         End With
    
22.     Next i
    
23.     If hasReport = False Then MsgBox "¡±ä¤£¨ì³øªíÀÉ¡I¡@": Exit Sub
    
24.     R = xS.Cells(Rows.Count, 1).End(xlUp).Row + 5

½Æ»s¥N½X

c_c_lai

¦^´_ 9# v03586

1. Sub ·s³øªí_HQ¶×¤J()
   
2.     'timeStamp = Now
   
3.     Dim xFile$, x As New Application, xB As Workbook, xS As Worksheet
   
4.     Dim RepSht As Worksheet, xR As Range, xLab As Range, xAddress$
   
5.     Set RepSht = Workbooks(1).Sheets("FMC")
   
6.    
   
7.     Sheets("FMC").Activate
   
8.     Application.ScreenUpdating = False
   
9.    
   
10.     RepSht.UsedRange.EntireRow.Delete
    
11.     Dim currentPKG, currentDevice, whichFirst As String
    
12.     Dim index As Integer
    
13.     Dim hasReport As Boolean
    
14.     title_row = 1
    
15. 
    
16.     hasReport = False
    
17.     With Workbooks.Open(ThisWorkbook.Path & "\­ì©lÀÉ®×.xlsx")
    
18.         With Sheets("H LOT")
    
19.             If .Range("A" & title_row).Value Like "MONBR*" And .Range("D" & title_row).Value Like "DEVICE*" And .Range("E" & title_row) Like "PKG*" Then
    
20.                 Set xS = Sheets("H LOT")
    
21.                 hasReport = True
    
22.             End If
    
23.         End With
    
24.         If hasReport = False Then MsgBox "§ä¤£¨ì³øªíÀÉ¡I¡@": Exit Sub
    
25.         R = xS.Cells(Rows.Count, 1).End(xlUp).Row + 5
    
26.         With RepSht
    
27.             .Range("A1:A" & R) = xS.Range("E1:E" & R).Value  'pkg
    
28.             .Range("B1:B" & R) = xS.Range("A1:A" & R).Value  'MO
    
29.             .Range("C1:C" & R) = xS.Range("G1:G" & R).Value 'MO Lot
    
30.             .Range("D1:D" & R) = xS.Range("S1:S" & R).Value 'Machine
    
31.             .Range("E1:E" & R) = xS.Range("Z1:Z" & R).Value 'PCCode
    
32.             .Range("F1:F" & R) = xS.Range("D1:D" & R).Value         'Device
    
33.             .Range("G1:G" & R) = xS.Range("F1:F" & R).Value  'input Date
    
34.             .Range("H1:H" & R) = xS.Range("M1:M" & R).Value   'DavinciCode
    
35.             .Range("I1:I" & R) = xS.Range("N1:N" & R).Value  'Thickness
    
36.             .Range("J1:J" & R) = xS.Range("AA1:AA" & R).Value  'SitePath
    
37.             .Range("K1:K" & R) = xS.Range("Q1:Q" & R).Value  'WS Tool
    
38.             .Range("L1:L" & R) = xS.Range("R1:R" & R).Value  ' Status
    
39.             .Range("M1:M" & R) = xS.Range("H1:H" & R).Value  'WIP
    
40.             .Range("N1:N" & R) = xS.Range("J1:J" & R).Value  ' WaferPcs
    
41.             .Range("O1:O" & R) = xS.Range("AB1:AB" & R).Value  ' DA Flow
    
42.             .Range("P1:P" & R) = xS.Range("AC1:AC" & R).Value  ' LastMO
    
43.             .Range("Q1:Q" & R) = xS.Range("V1:V" & R).Value  'B/D
    
44.             .Range("R1:AD1") = Split("TBG1,PGH1,WG,LWS1,DE01,FL01,SLS1,WM01,WS01,UTI1,VS01,QVS1,DB,", ",")
    
45.             
    
46.             .Range("AF1:AF" & R) = xS.Range("J1:J" & R).Value  ' WaferPcs Cut
    
47.         End With
    
48.         .Close
    
49.     End With
    
50.     '
    
51.     '
    
52.     '  ***  ¥H¤U¥¼¸g­×¥¿  ***
    
53.     '
    
54.     '
    
55. End Sub

½Æ»s¥N½X