198188

¦^´_ 13# GBKEE


    Option Explicit

Sub Ex()

   Dim Rng As Range

   'With Workbooks.Open("C:\Users\patrick.HKG\Desktop\copy.xlsm").Sheets("2012") 'ÀÉ®×¥¼¶}±Ò®É¥Î¦¹µ{¦¡½X

   With Workbooks("copy.xlsm").Sheets("2012")                      'Àɮפw¶}±Ò®É¥Î¦¹µ{¦¡½X

        'A2:AM2 to A100:AM100 ¬OY:\2012\A.XLSX (2012) ªº¸ê®Æ

        Set Rng = .[A2]  '²Ä¤@­ÓRng

        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\1.XLSX").Sheets("sheet1")    'Àɮ׶}±Ò

            .[A100:AM100].Copy Rng

           .Parent.Close False                                  'ÀÉ®×Ãö³¬

       End With

        'A101:AM101 to A150:AM150¬OC:\2012\B.XLSX (Nov)ªº¸ê®Æ

        Set Rng = Rng.End(xlDown).Offset(1)  '²Ä¤G­ÓRng

        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\2.XLSX").Sheets("sheet1")    'Àɮ׶}±Ò

            .[A150:AM150].Copy Rng

           .Parent.Close False                                  'ÀÉ®×Ãö³¬

        End With

        'A151:AM151 to A270:AM270¬OZ:\2012\C.XLSX (2012) ªº¸ê®Æ

        Set Rng = Rng.End(xlDown).Offset(1) '²Ä¤T­ÓRng

        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\3.XLSX").Sheets("sheet1")    'ÀÉ®×¥¼¶}±Ò

            .[A270:AM270].Copy Rng

           .Parent.Close False                                  'ÀÉ®×Ãö³¬

        End With

    End With

End Sub

¥Ñ©ó¤T­Ócopyªº¹ï¶H¨C¤Ñ³£·|¼W¥[¸ê®Æ¡A¦C¼Æ¶V¨Ó¶V¦h¡A¤U­±³o´X¥y»Ý­n§ï¶Ü¡H¨C­Ó¹ï¶H³£¬O§â²Ä¤G¦C¨ì³Ì«á¤@µ§ªº¸ê®Æcopy¹L¥h
.[A100:AM100].Copy Rng
.[A150:AM150].Copy Rng
.[A270:AM270].Copy Rng

¥t¥~¤T­Ócopyªº¹ï¶Hªº²Ä¤@¦C¤£·Qcopy¹L¥h¡A®ÄªG¦p¤U¡G
1.xlsx
SO Number        Acct Name        Deposit                      Ordered Date
207155                             ZCJ                                                 30-Oct-12
209428                             LJS                            30122.43                      7-Nov-12
200925                             LJH                            30000.77                      20-Jan-12
202101                         HAPPY TRADE            30000                      24-Feb-12
203906                            DFY                            30000                     11-May-12
208562                        ZWM2                                                 12-Oct-12
201532                            WGD                                                 10-Feb-12

2.xlsx
SO Number        Acct Name        Deposit                      Ordered Date
205218                         FZJ                                                                  26-Jan-12
204756                         CZX                                                                21-Oct-12
208563                         ZWM2                                                           19-Feb-12
207898                         ZWM2                                                           15-Feb-12

3.xlsx
SO Number        Acct Name        Deposit                      Ordered Date
205976                HMQ                            79983.09                      16-Jul-12
206034                           HMQ                            79983.09               16-Jul-12
203857                           LSH                            79974.19                       3-May-12
203858                           LSH                            79974.19                       3-May-12


copy.xlsm
SO Number        Acct Name        Deposit                      Ordered Date
207155                             ZCJ                                                 30-Oct-12
209428                             LJS                            30122.43                      7-Nov-12
200925                             LJH                            30000.77                      20-Jan-12
202101                         HAPPY TRADE            30000                      24-Feb-12
203906                            DFY                            30000                     11-May-12
208562                        ZWM2                                                 12-Oct-12
201532                            WGD                                                 10-Feb-12
205218                         FZJ                                                                  26-Jan-12
204756                         CZX                                                                21-Oct-12
208563                         ZWM2                                                           19-Feb-12
207898                         ZWM2                                                           15-Feb-12
205976                HMQ                            79983.09                      16-Jul-12
206034                           HMQ                            79983.09               16-Jul-12
203857                           LSH                            79974.19                       3-May-12
203858                           LSH                            79974.19                       3-May-12

198188

¦^´_ 18# GBKEE


    Sub txet1()
'³æ¯Â½Æ»s§ó¦W
P = Format(Date, "m") & "-" & Format(Date, "d") & "-" & Format(Date, "Y")

VBA.FileCopy "Y:\2012\payment 2012\Outstanding payment ss 2012\Dec 2012\OutstandingPayments " & P & ".xlsm", "C:\users\patrick.hkg\desktop\outstandingpayments.xlsm"
End Sub

§Ú±NªÅ®æ¥h±¼«á¡A¤]¤£¦æ¡Hfile ¦W¡GOutstandingPayments12-4-2012.XLSM

198188

¦^´_ 17# GBKEE


    01.Option Explicit

02.Sub EX()

03.   Dim Rng(1 To 2) As Range

04.   'With Workbooks.Open("C:\USER\DESTOP\E.XLSX").Sheets("2012") 'ÀÉ®×¥¼¶}±Ò®É¥Î¦¹µ{¦¡½X

05.   With Workbooks("E.XLSX").Sheets("2012")                      'Àɮפw¶}±Ò®É¥Î¦¹µ{¦¡½X

06.        

07.       .Range("A1").CurrentRegion.Offset(1) = ""                '²M°£Â¸ê®Æ

08.        

09.        'A2:AM2 to A100:AM100 ¬OY:\2012\A.XLSX (2012) ªº¸ê®Æ

10.        Set Rng(1) = .[A2]                                      '²Ä¤@­ÓRng(1)

11.        With Workbooks.Open("Y:\2012\A.XLSX").Sheets("2012")    'Àɮ׶}±Ò

12.            Set Rng(2) = .[A2:AM2]

13.            Set Rng(2) = .Range(Rng(2), .[A2].End(xlDown))     '¸ê®Æ¤£°±¼W¥[: ¨ì³Ì«áªº¸ê®Æ

14.            Rng(2).Copy Rng(1)

15.           .Parent.Close False                                  'ÀÉ®×Ãö³¬

16.        End With

17.        'A101:AM101 to A150:AM150¬OC:\2012\B.XLSX (Nov)ªº¸ê®Æ

18.        Set Rng(1) = Rng(1).End(xlDown).Offset(1)               '²Ä¤G­ÓRng(1)

19.        With Workbooks.Open("Y:\2012\B.XLSX").Sheets("Nov")     'Àɮ׶}±Ò

20.            Set Rng(2) = .[A101:AM101]

21.            Set Rng(2) = .Range(Rng(2), .[AM101].End(xlDown))   '¸ê®Æ¤£°±¼W¥[: ¨ì³Ì«áªº¸ê®Æ

22.            Rng(2).Copy Rng(1)

23.           .Parent.Close False                                  'ÀÉ®×Ãö³¬

24.        End With

25.        'A151:AM151 to A270:AM270¬OZ:\2012\C.XLSX (2012) ªº¸ê®Æ

26.        Set Rng(1) = Rng(1).End(xlDown).Offset(1)              '²Ä¤T­ÓRng(1)

27.        With Workbooks.Open("Z:\2012\C.XLSX").Sheets("2012")    'ÀÉ®×¥¼¶}±Ò

28.            Set Rng(2) = .[A151:AM151]                          '²Ä¤G¦C ¶}©l

29.            Set Rng(2) = .Range(Rng(2), .[AM151].End(xlDown))   '¸ê®Æ¤£°±¼W¥[: ¨ì³Ì«áªº¸ê®Æ

30.           .Parent.Close False                                  'ÀÉ®×Ãö³¬

31.        End With

32.    End With

33.End Sub

³o¸Ì¦³­Ó»~·|¡A§Úªº·N«ä¬O»¡copyªº¸ê®Æ¤£ª¾¹D¬O¦h¤Ö¡A¤§«e´£¥Xªº100¡A50 ¡A120¬OÁ|¨Ò¡C
With Workbooks.Open("Y:\2012\A.XLSX").Sheets("2012")  ¦Û°Ê±q²Ä¤G¦C¶}©lcopy¹L¥h¡Acopy ªº¦ì¸m±q²Ä¤G¦C¶}©l¶¶§Ç©¹¤Ucopy ,ª½¨ì A.XLSX³Ì«á¤@¦Cªº¸ê®Æ,
With Workbooks.Open("Y:\2012\B.XLSX").Sheets("Nov")    ¦Û°Ê±q²Ä¤G¦C¶}©lcopy¹L¥h¡Acopy ªº¦ì¸m©Ó±µ¤W¤@­ÓFILE A.XLSXªº³Ì«á¤@¦C¤§«á,ª½¨ì B.XLSX³Ì«á¤@¦Cªº¸ê®Æ,
With Workbooks.Open("Z:\2012\C.XLSX").Sheets("2012")  ¦Û°Ê±q²Ä¤G¦C¶}©lcopy¹L¥h¡Acopy ªº¦ì¸m©Ó±µ¤W¤@­ÓFILE B.XLSXªº³Ì«á¤@¦C¤§«á,ª½¨ì C.XLSX³Ì«á¤@¦Cªº¸ê®Æ,

198188

¦^´_ 17# GBKEE


    Option Explicit

Sub copy()

   Dim Rng(1 To 2) As Range

   'With Workbooks.Open("C:\Users\patrick.HKG\Desktop\COPY.XLSM").Sheets("2012") 'ÀÉ®×¥¼¶}±Ò®É¥Î¦¹µ{¦¡½X

   With Workbooks("COPY.XLSM").Sheets("2012")                      'Àɮפw¶}±Ò®É¥Î¦¹µ{¦¡½X



       .Range("A1").CurrentRegion.Offset(1) = ""                '²M°£Â¸ê®Æ



        'A2:AM2 to A100:AM100 ¬OY:\2012\A.XLSX (2012) ªº¸ê®Æ

        Set Rng(1) = .[A2]                                      '²Ä¤@­ÓRng(1)

        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\1.XLSX").Sheets("SHEET1")    'Àɮ׶}±Ò

            Set Rng(2) = .[A2:AM2]

            Set Rng(2) = .Range(Rng(2), .[A2].End(xlDown))     '¸ê®Æ¤£°±¼W¥[: ¨ì³Ì«áªº¸ê®Æ

            Rng(2).copy Rng(1)

           .Parent.Close False                                  'ÀÉ®×Ãö³¬

        End With

        'A101:AM101 to A150:AM150¬OC:\2012\B.XLSX (Nov)ªº¸ê®Æ

        Set Rng(1) = Rng(1).End(xlDown).Offset(1)               '²Ä¤G­ÓRng(1)

        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\2.XLSX").Sheets("SHEET1")     'Àɮ׶}±Ò

            Set Rng(2) = .[A2:AM2]

            Set Rng(2) = .Range(Rng(2), .[A2].End(xlDown))   '¸ê®Æ¤£°±¼W¥[: ¨ì³Ì«áªº¸ê®Æ

            Rng(2).copy Rng(1)

           .Parent.Close False                                  'ÀÉ®×Ãö³¬

        End With

        'A151:AM151 to A270:AM270¬OZ:\2012\C.XLSX (2012) ªº¸ê®Æ

        Set Rng(1) = Rng(1).End(xlDown).Offset(1)              '²Ä¤T­ÓRng(1)

        With Workbooks.Open("C:\Users\patrick.HKG\Desktop\3.XLSX").Sheets("sheet1")    'ÀÉ®×¥¼¶}±Ò
            
             Set Rng(2) = .[A2:AM2]                          '²Ä¤G¦C ¶}©l

            Set Rng(2) = .Range(Rng(2), .[A2].End(xlDown))   '¸ê®Æ¤£°±¼W¥[: ¨ì³Ì«áªº¸ê®Æ
            
             Rng(2).copy Rng(1)

           .Parent.Close False                                  'ÀÉ®×Ãö³¬

        End With

    End With

End Sub

¤w§ï¤F¡A¦¨¥\¤F¡AÁÂÁÂ

198188

¦^´_ 18# GBKEE
½Ð°Ý¥iª¾¹D¿ù¦b­þ¸Ì¡H

    Sub txet1()
'³æ¯Â½Æ»s§ó¦W
P = Format(Date, "m") & "-" & Format(Date, "d") & "-" & Format(Date, "Y")

VBA.FileCopy "Y:\2012\payment 2012\Outstanding payment ss 2012\Dec 2012\OutstandingPayments " & P & ".xlsm", "C:\users\patrick.hkg\desktop\outstandingpayments.xlsm"
End Sub

§Ú±NªÅ®æ¥h±¼«á¡A¤]¤£¦æ¡Hfile ¦W¡GOutstandingPayments12-4-2012.XLSM

198188

¦^´_ 23# GBKEE

Sub copyfile()
'³æ¯Â½Æ»s§ó¦W
Dim P

P = Format(Date, "m-D-YYYY")

VBA.FileCopy "Y:\2012\payment 2012\Outstanding payment ss 2012\Dec 2012\Outstanding Payments" & P & ".xlsm", "C:\users\patrick.hkg\desktop\outstanding payments.xlsm"

End Sub

ÁÙ¬O¥X²{°ÝÃDRUN-TIME ERROR'70': PERMISSION DENIED

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

198188

¦^´_ 26# GBKEE

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

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

¦^´_ 30# GBKEE


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