GBKEE

¦^´_ 34# 198188
­×§ï¿ù»~ÂI

1.      If  Rng(1).End(xlDown).Row <> Rng(1).Parent.Rows.Count Then
   
2.         Set Rng(1) = Rng(1).End(xlDown).Offset(1)
   
3.     Else
   
4.         MsgBox "¤w¨ìÀɮש³³¡ µLªk·s¼W¸ê®Æ"
   
5.        Exit Sub
   
6.     End If

½Æ»s¥N½X

198188

¦^´_ 32# GBKEE


    Set Rng(1) = Rng(1).End(xlDown).Offset(1)      ¥X²{ERROR :RUN-TIME ERROR '1004'; APPLICATION-DEFINED OR OBJECT-DEFINED ERROR
½Ð°Ý¬O­þùئ³°ÝÃD¡H

198188

¦^´_ 32# GBKEE

Option Explicit

Sub copy()

   Dim Rng(1 To 2) As Range

   'With Workbooks.Open("C:\Users\patrick.HKG\Desktop\COPY.XLSM").Sheets("2012")

   With Workbooks("payment.XLSM").Sheets("2012")                     


       .Range("A1").CurrentRegion.Offset(1) = ""               




        Set Rng(1) = .[A2]                                    
        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\Jenny.XLSX").Sheets("SHEET1")                 
             Set Rng(2) = .[A2:AL2]                        
       Set Rng(2) = .Range(Rng(2), .[A2].End(xlDown))

  

            Rng(2).copy Rng(1)

           .Parent.Close False                                 

        End With

        
        Set Rng(1) = Rng(1).End(xlDown).Offset(1)               
        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\Jane.XLSX").Sheets("SHEET1")     
           Set Rng(2) = .[A2:AL2]

           Set Rng(2) = .Range(Rng(2), .[AL2].End(xlDown))

           Set Rng(2) = Rng(2).Resize(.[E1].End(xlDown).Row - 1)

            Rng(2).copy Rng(1)

           .Parent.Close False                                 
        End With

      
        Set Rng(1) = Rng(1).End(xlDown).Offset(1)            
        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\Lily.XLSX").Sheets("sheet1")               
            Set Rng(2) = .[A2:AL2]

           Set Rng(2) = .Range(Rng(2), .[AL2].End(xlDown))

           Set Rng(2) = Rng(2).Resize(.[E1].End(xlDown).Row - 1)
            
             Rng(2).copy Rng(1)

           .Parent.Close False                                 
        End With
      
        Set Rng(1) = Rng(1).End(xlDown).Offset(1)              

        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\Connie.XLSX").Sheets("sheet1")   
            
             Set Rng(2) = .[A2:AL2]

           Set Rng(2) = .Range(Rng(2), .[AL2].End(xlDown))

           Set Rng(2) = Rng(2).Resize(.[E1].End(xlDown).Row - 1)
            
             Rng(2).copy Rng(1)

           .Parent.Close False                                 

        End With
      
        Set Rng(1) = Rng(1).End(xlDown).Offset(1)              
        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\Patrick.XLSX").Sheets("sheet1")   
            
        
           Set Rng(2) = .[A2:AL2]

           Set Rng(2) = .Range(Rng(2), .[AL2].End(xlDown))

           Set Rng(2) = Rng(2).Resize(.[E1].End(xlDown).Row - 1)
            
             Rng(2).copy Rng(1)

           .Parent.Close False                                 

        End With
      

    End With

End Sub

Set Rng(1) = Rng(1).End(xlDown).Offset(1)      ¥X²{ERROR :RUN-TIME ERROR '1004'; APPLICATION-DEFINED OR OBJECT-DEFINED ERROR

GBKEE

¦^´_ 31# 198188

1. Set Rng(2) = .[A2:AL2]
   
2.     'Set Rng(2) = .Range(Rng(2), .[AL2].End(xlDown))
   
3.     Set Rng(2) = Rng(2).Resize(.[E1].End(xlDown).Row - 1)
   
4.     'Resize ÄÝ©Ê ½Õ¾ã«ü©wªº½d³ò¡C¶Ç¦^ Range ª«¥ó¡A¸Óª«¥ó¥Nªí½Õ¾ã«áªº½d³ò¡C

½Æ»s¥N½X

198188

¦^´_ 30# GBKEE


§Úªº¤­­ÓDATA BASEùØ­±³£¬O¥HEÄæ§@³Ì«á¤@µ§¸ê®Æ¡A¦ý¤§«eªºprogram¦n¹³¬O¥HAÄæ´M§ä³Ì«á¤@µ§¡A¹ï¶Ü¡H

GBKEE

¦^´_ 29# 198188
¥Ñ©ó§Úªºdata base¨S¦³¬OEÄæ¤~¥i¥Hcheck¨ì³Ì«á¤@µ§¡A½Ð°Ý§ÚÀ³¸Ó¦p¦ó§ï¡C
¨S¦³¬OEÄæ ¬O¦ó·N

198188

¦^´_ 17# GBKEE

Data.rar (978.26 KB)

¤U¸ü¦¸¼Æ: 4

2012-12-6 14:23

Sub copy()

   Dim Rng(1 To 2) As Range

   'With Workbooks.Open("C:\Users\patrick.HKG\Desktop\COPY.XLSM").Sheets("2012")
    With Workbooks("payment.XLSM").Sheets("2012")                  
       .Range("A1").CurrentRegion.Offset(1) = ""            

         Set Rng(1) = .[A2]
        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\Jenny.XLSX").Sheets("SHEET1")   
             Set Rng(2) = .[A2:AL2]
             Set Rng(2) = .Range(Rng(2), .[A2].End(xlDown))     
             Rng(2).copy Rng(1)
           .Parent.Close False                                 
         End With

         Set Rng(1) = Rng(1).End(xlDown).Offset(1)               
        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\Jane.XLSX").Sheets("SHEET1")     
             Set Rng(2) = .[A2:AL2]
             Set Rng(2) = .Range(Rng(2), .[A2].End(xlDown))   
            Rng(2).copy Rng(1)
            .Parent.Close False                                 
        End With

        Set Rng(1) = Rng(1).End(xlDown).Offset(1)               
        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\Lily.XLSX").Sheets("sheet1")
         Set Rng(2) = .[A2:AL2]                       
       Set Rng(2) = .Range(Rng(2), .[A2].End(xlDown))               
             Rng(2).copy Rng(1)
            .Parent.Close False        
        End With
      
        Set Rng(1) = Rng(1).End(xlDown).Offset(1)            
         With Workbooks.Open("C:\Users\patrick.HKG\Desktop\Connie.XLSX").Sheets("sheet1")               
             Set Rng(2) = .[A2:AL2]           
       Set Rng(2) = .Range(Rng(2), .[A2].End(xlDown))               
             Rng(2).copy Rng(1)
            .Parent.Close False                                 
         End With
      
        Set Rng(1) = Rng(1).End(xlDown).Offset(1)              
        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\Patrick.XLSX").Sheets("sheet1")               
             Set Rng(2) = .[A2:AL2]                          
       Set Rng(2) = .Range(Rng(2), .[A2].End(xlDown))   
             Rng(2).copy Rng(1)
            .Parent.Close False                                 
         End With
         End With
End Sub


¥Ñ©ó§Úªºdata base¨S¦³¬OEÄæ¤~¥i¥Hcheck¨ì³Ì«á¤@µ§¡A½Ð°Ý§ÚÀ³¸Ó¦p¦ó§ï¡C

198188

¦^´_ 26# GBKEE

½Ð°Ý¥i§_À°¦£¥H¤Ulink ªº°ÝÃD¡AÁÂÁÂ
  http://forum.twbts.com/thread-8512-1-1.html

198188

¦^´_ 8# kimbal


½Ð°Ý¥i§_±N¤£¦Pªºserver¤º¤£¦Pªºexcel,¤£¦Pªºsheet,copy¦b¥t¥~¤@­Óexcel¥i¥H¶Ü¡H
¬A¸¹¤º¥Nªísheet¦W
Y:\2012\shipment 2012\Mainland ETA Update.xlsx (MAINLAN ETA)
Y:\2012\payment 2012\One Time Deposit list.xlsx (NOV)
Y:\2012\payment 2012\payment report 2012.xlsx (2012)
Y:\2012\claim 2012\Claim control 20100106.xlsx(2012)
Y:\2012\shipment 2012\HK ETA update.xlsx(HK ETA)
W:\PIHK\NEW ­»´ä¿ì¤½«Ç¥¿¥»¦¬©ñ³æ°O¿ý-FROM 01-MAR-2012 to current(updated).xlsx(RECEIVE)
Y:\2012\contract record 2012\daily doc.xlsx (DAILY DOCS)
Y:\2012\shipment 2012\ORACLE\ORACLESS 11-28 .xlsx(ORACLESS)

±N¥H¤Wªºsheet ¦P®Écopy ¦b¤U­±excel¤º¥i¥H¶Ü¡H¨C­Ósheet¦Û°Ê¤À¶},¥Î¥¦­Ìªºexcel¦W¨Ó©R¦Wsheet¦W
C:\Users\patrick.HKG\Desktop\Master.xlsx

GBKEE

¦^´_ 24# 198188
¸Õ¸Õ¬Ý

1. Sub copyfile()
   
2.     '³æ¯Â½Æ»s§ó¦W
   
3.     Dim xlfile As String
   
4.     xlfile = "Y:\2012\payment 2012\Outstanding payment ss 2012\Dec 2012\Outstanding Payments" & Format(Date, "m-D-YYYY") & ".xlsm"
   
5.     If Dir(xlfile) = "" Then
   
6.         MsgBox "§ä¤£¨ì ÀÉ®×"
   
7.     Else
   
8.         FileCopy xlfile, "C:\users\patrick.hkg\desktop\outstanding payments.xlsm"
   
9.     End If
   
10. End Sub

½Æ»s¥N½X