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

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

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

TOP

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

TOP

¦^´_ 22# 198188
¿ù¦b³o¸Ì
  1. Option Explicit
  2. Sub EX()
  3.     Dim P
  4.     P = Format(Date, "m") & "-" & Format(Date, "d") & "-" & Format(Date, "Y")
  5.     MsgBox P
  6.     P = Format(Date, "m-D-YYYY")
  7.     MsgBox P
  8. End Sub
½Æ»s¥N½X

TOP

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

TOP

¥»©«³Ì«á¥Ñ stillfish00 ©ó 2012-12-4 19:31 ½s¿è

¦^´_ 24# 198188
§A¥i¥H¤â°Ê½Æ»s§ó¦W¬Ý¬Ý¬O¤£¬O¤]¥X²{¿ù»~
¥i¯à¬OÀɮ׶}±Ò¤¤ ©Î¬O ¸ê®Æ§¨Åª¼gÅv­­¤£¨¬

TOP

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

TOP

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

TOP

¦^´_ 26# GBKEE

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

TOP

¦^´_ 17# GBKEE

Data.rar (978.26 KB)

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD