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

198188

³]©w©w®É±Nserver ªº´X­Óexcel copy ¦b®à­±¡H
¨Ò¦p¡G
server
Y:\2012\Jan\[a.xlsx]
Y:\2012\Feb\[b.xlsx]
Y:\2012\Mar\[c.xlsx]
Y:\2012\Apr\[d.xlsx]
Z:\2012\[e.xlsx]
±N¤W­±³o¨Çfile copy ¨ì¤U­±¦a§}¡G
C:\user\destop\
¦pªG¥i¥H±NFILE¦W§ïÅܦ¨¥t¤@­Ó¦W´N§ó¦n
¨Ò¦p
[a.xlsx] §ï¦¨ 1.xlsx
[b.xlsx] §ï¦¨ 2.xlsx
[c.xlsx] §ï¦¨ 3.xlsx
[d.xlsx] §ï¦¨ 4.xlsx
[e.xlsx] §ï¦¨ 5.xlsx

¥t¥~¦pªGSERVER¦W¨C¤é¤£¦P¥i¥H¶Ü¡G
¨Ò¦p¡G
¤µ¤é¬O2/Dec
server
Y:\2012\Jan\[a2-12.xlsx]
Y:\2012\Feb\[b2-12.xlsx]
Y:\2012\Mar\[c2-12.xlsx]
Y:\2012\Apr\[d2-12.xlsx]
Z:\2012\[e2-12.xlsx]

¤µ¤é¬O3/Dec
server
Y:\2012\Jan\[a3-12.xlsx]
Y:\2012\Feb\[b3-12.xlsx]
Y:\2012\Mar\[c3-12.xlsx]
Y:\2012\Apr\[d3-12.xlsx]
Z:\2012\[e3-12.xlsx]
¦p¦¹Ãþ±À¡A¦WºÙ¸ò¤é´ÁÅÜ°Ê

198188

¦^´_ 2# die78325


    VBA.FileCopy "Y:\2012\Jan\a.xlsx", "C:\user\destop\1.xlsx"
¦pªGcopy ªºfile ¤£§tVBA¡A¬O¤£¬O¤£¥Î¼gvba,¥u¼gFileCopy "Y:\2012\Jan\a.xlsx", "C:\user\destop\1.xlsx"


Application.OnTime TimeValue("20:00:00"), "Module1.text1"
¹q¸£®É¶¡¨ì¥H¤W®É¶¡´N°õ¦æ¼Ò²Õ ¡§ MODULE 1 ¡¨ ¤ºªº ¡§ text1 ¡¨ ³o­Óµ{¦¡
³o­Ó¬O¤£¬O«ü©w20¡G00¤~copy¡A¦pªG¬O¥b¤p®Écopy¤@¦¸¥i¥H¶Ü¡H¦Ó®à­±¥»¨­¦³³o­Ófile¡A¬O¤£¬O¦Û°ÊÂл\ªºfile?

¨º»ò¬O¤£¬O±N³o­Óµ{¦¡¥[¦b·sªº¤@­Óexcel¡AÁÙ¬O©ñ¦b·Qcopyªºexcel¤º¡]a.xlsx  b.xlsx  c.xlsx  d.xlsx   e.xlsx¡^

198188

¦^´_ 4# die78325


    ·PÁ¡C
¦ý§Ú°Ýªº¥b¤p®É¡A·N«ä¬O¨C¥b¤p®É¦Û°Ê°µ¤@¦¸¡A¤£°±¦a¦Û°Ê°µ¡C
§A¨º¥y¬O§_¬O³o­Ó·N«ä¡H

198188

¦^´_ 6# die78325


1)  
Sub txet1()

P = Format(Date, "m") & "-" & Format(Date, "d")

FileCopy "Y:\2012\shipment 2012\ORACLE\ORACLESS & p & .xlsx", "C:\Users\patrick.HKG\Desktop\oracless.xlsx"

End Sub
¥X²{ run-time error '53' file not found

2)
Sub txet1()


FileCopy "Y:\2012\shipment 2012\Mainland ETA Update.xlsx", "C:\Users\patrick.HKG\Desktop\Mainland ETA Update.xlsx"

FileCopy "Y:\2012\payment 2012\One Time Deposit list.xlsx", "C:\Users\patrick.HKG\Desktop\One Time Deposit list.xlsx"
FileCopy "Y:\2012\payment 2012\payment report 2012.xlsx", "C:\Users\patrick.HKG\Desktop\payment report 2012.xlsx"

FileCopy "Y:\2012\claim 2012\Claim control 20100106.xls", "C:\Users\patrick.HKG\Desktop\Claim control 20100106.xls"

FileCopy "Y:\2012\shipment 2012\HK ETA update.xlsx", "C:\Users\patrick.HKG\Desktop\HK ETA update.xlsx"
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"
FileCopy "Y:\2012\contract record 2012\daily doc.xlsx", "C:\Users\patrick.HKG\Desktop\daily doc.xlsx"
FileCopy "Y:\2012\shipment 2012\ORACLE\ORACLESS 11-28 .xlsx", "C:\Users\patrick.HKG\Desktop\oracless.xlsx"
End Sub

¥X²{run-time error '70'  permission denied

198188

¦^´_ 8# kimbal

1)  p »Ý­nSET¤°»ò¶Ü¡HDIM P AS STRING ³oÃþ¶Ü¡H
Sub txet1()

P = Format(Date, "m") & "-" & Format(Date, "d")

FileCopy "Y:\2012\shipment 2012\ORACLE\ORACLESS" & p & ".xlsx" , "C:\Users\patrick.HKG\Desktop\oracless.xlsx"

End Sub



2) ¦r­±¤W¬Ý¬OÅv­­°ÝÃD, §A¸Õ¹L¤â°Ê§Û¤W¥hµL°ÝÃD¶Ü? ¥Ø¼ÐªºXLS¦³¨S¦³¥¿¦b¥´¶}? ¥´¶}ªº¸Ü·|§Û¤£¤W¥h
§Ú¬Ocopy ±¶®|¤W¥hªº¡A¤@­Ó¤@­Ócopy¤W¥h¡A¦ý¤@ª½³£µL°ÝÃD¡A¤§«á¥[¤W¤W­±p¨º¥y«á¡A´N¶}©l¥X²{³o¨Ç°ÝÃD¤F¡C¥Ø¼Ð¨S¦³¥´¶}¡C´Nºâ§R°£p ¨º¥y«á¡A¤]¬O³o¼Ë¡C

198188

¦^´_ 8# kimbal


   ¥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

198188

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

198188

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

198188

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

198188

¦^´_ 13# GBKEE


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