c_c_lai

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

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

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