ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°ª¤HÀ°¦£°£¿ù¡AÁÂÁÂ~

¦^´_ 8# kimbal


  Sub txet1()
  P = Format(Date, "m") & "-" & Format(Date, "d") & "-" & Format(Date, "Y")
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

§Úªºfile ¦W¬O Outstanding Payments  12-4-2012
run ¬O¥X²{run-time error '53': file not found

½Ð°Ý¬O­þ¸Ì¥X¿ù¤F¡H

TOP

[µo°Ý] ½Ð°ª¤HÀ°¦£°£¿ù¡AÁÂÁÂ~

01.Option Explicit

02.Sub Ex()

03.   Dim Rng As Range

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

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

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

07.        Set Rng = .[A2]

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

09.            .[A100:AM100].Copy Rng   ¡§½Ð°Ý¦pªG§Úªº¸ê®Æ¤£°±¼W¥[¡A¶W¹L100¦C¡A³o¥y¬O¤£¬O»Ý­n§ï¡H

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

11.        End With

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

13.        Set Rng = Rng.End(xlDown).Offset(1)  

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

15.            .[A150:AM150].Copy Rng   ¡§½Ð°Ý¦pªG§Úªº¸ê®Æ¤£°±¼W¥[¡A¶W¹L150¦C¡A³o¥y¬O¤£¬O»Ý­n§ï¡H

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

17.        End With

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

19.        Set Rng = Rng.End(xlDown).Offset(1)

20.        With Workbooks.Open("Y:\2012\A.XLSX").Sheets("2012")    'ÀÉ®×¥¼¶}±Ò

21.            .[A270:AM270].Copy Rng   ¡§½Ð°Ý¦pªG§Úªº¸ê®Æ¤£°±¼W¥[¡A¶W¹L270¦C¡A³o¥y¬O¤£¬O»Ý­n§ï¡H

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

23.        End With

24.    End With

25.End Sub



Set Rng = Rng.End(xlDown).Offset(1)  ³o¥y¥X²{run-time error '1004' application-defined or object-defined error
.[A100:AM100].Copy Rng   ¡§½Ð°Ý¦pªG§Úªº¸ê®Æ¤£°±¼W¥[¡A¶W¹L100¦C¡A³o¥y¬O¤£¬O»Ý­n§ï¡H
.[A150:AM150].Copy Rng   ¡§½Ð°Ý¦pªG§Úªº¸ê®Æ¤£°±¼W¥[¡A¶W¹L150¦C¡A³o¥y¬O¤£¬O»Ý­n§ï¡H
.[A270:AM270].Copy Rng   ¡§½Ð°Ý¦pªG§Úªº¸ê®Æ¤£°±¼W¥[¡A¶W¹L270¦C¡A³o¥y¬O¤£¬O»Ý­n§ï¡H

½Ð±Ð¦U¦ì°ª¤â¸Ñ¨M°ÝÃD

1¡^Sub txet1()
   P = Format(Date, "m") & "-" & Format(Date, "d") & "-" & Format(Date, "Y")
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

§Úªºfile ¦W¬O Outstanding Payments  12-4-2012
run ¬O¥X²{run-time error '53': file not found   ½Ð°Ý¬O­þ¸Ì¥X¿ù¤F¡H
p »Ý­nSET¤°»ò¶Ü¡HDIM P AS STRING ¤§Ãþ¶Ü¡H

2¡^
Sub txet1()
FileCopy "W:\PIHK\NEW ­»´ä¿ì¤½«Ç¥¿¥»¦¬©ñ³æ°O¿ý-FROM 01-MAR-2012 to current(updated).xlsx", "C:\Users\patrick.HKG\Desktop\NEW ­»´ä¿ì¤½«Ç¥¿¥»¦¬©ñ³æ°O¿ý-FROM 01-MAR-2012 to current(updated).xlsx"
End Sub
¬O§_¦]¬°file ¦W¤Óªø©ÎªÌ¤°»ò­ì¦]¡A³o¥y¥X²{¿ù»~¡H©ÎªÌ¬O§_¦]¬°§Ú¦P®Écopy ¥t¥~¤@­ÓY server©Ò¥H¤£¦æ¡H

3¡^¥t¥~½Ð°Ý¦pªGcopy¤£¦Pªºserver·|¦³°ÝÃD¶Ü¡H
¨Ò¦p¡G
Y:\2012\NOV\1.XLSX
X:\SHIPMENT\A.XLSX

©ÎªÌ¥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

TOP

¦^´_ 11# 198188
§Úªºfile ¦W¬O Outstanding Payments  12-4-2012
run ¬O¥X²{run-time error '53': file not found

½ÐÀˬdÀɦW
  1. Option Explicit
  2. Sub txet1()
  3.   Dim P As String, xfile As String
  4.   '§Úªºfile ¦W¬O "Outstanding Payments  12-4-2012"
  5.   xfile = "Outstanding Payments  12-4-2012"  '
  6.   P = Format(Date, "M-D-YYYY")
  7.   P = "Outstanding Payments " & P & ".xls"
  8.   MsgBox xfile = P   '¸g¤ñ¹ï ¬O False ¨â¦r¦ê¤£¬Û¦P
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 13# GBKEE


  ¨º»ò¬O¤£¬Oµ{¦¡¦³°ÝÃD¡A»Ý­n§ó§ï¡H

TOP

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-12-4 13:54 ½s¿è

¦^´_ 1# 198188
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub EX()
  3.    Dim Rng(1 To 2) As Range
  4.    'With Workbooks.Open("C:\USER\DESTOP\E.XLSX").Sheets("2012") 'ÀÉ®×¥¼¶}±Ò®É¥Î¦¹µ{¦¡½X
  5.    With Workbooks("E.XLSX").Sheets("2012")                      'Àɮפw¶}±Ò®É¥Î¦¹µ{¦¡½X
  6.         
  7.        .Range("A1").CurrentRegion.Offset(1) = ""                '²M°£Â¸ê®Æ
  8.         
  9.         '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\A.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("Y:\2012\A.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
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-12-4 14:05 ½s¿è

¦^´_ 15# 198188
§AªºÀɮצWºÙ³Ì¦n¤£­n¦³ªÅ®æ,®e©ö¦b¿é¤JÀɦW³y¦¨¤£¥¿½T,©Ò¥H¨t²Î·|§ä¤£¨ìÀÉ®×
±NÀɮצWºÙ­×¥¿¦n,¦A´ú¸Õ¬Ý¬Ý

TOP

¦^´_ 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

TOP

¦^´_ 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ªº¸ê®Æ,

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD