samwang

¦^´_ 1# pointchi

¤£ª¾§Úªº²z¸Ñ¦³µL¿ù»~¡A±zªº»Ý¨D¦p¤U¡A½Ð½T»{¡AÁÂÁÂ

³vµ§¶}±Ò¦P¸ê®Æ§¨¦³Link xxªºÀÉ®×--> ½Æ»s¸ê®Æ¨ìTEST1ÀÉ®×Range?? --> Ãö³¬Link xxÀÉ®×-->¦b¶}±Ò¤U¤@µ§Link xx-->....

½Æ»s¸ê®Æ½d³ò??
¶K¨ìTEST1ªº­þ¸Ì??

samwang

¦^´_  samwang

³vµ§¶}±Ò¦P¸ê®Æ§¨¦³Link xxªºÀÉ®×(Àɮ׬O³B©ó¶}±Òª¬ºA)-->(°õ¦æ§Ú¦Û¤v½s¼gªºµ{§Ç) -->½Æ ...
pointchi µoªí©ó 2021-12-22 22:53

  Dim wb As Workbook
     For Each wb In Workbooks
         If LCase(wb.Name) Like "Link*.xls*" Then
             Workbooks(wb).Worksheets("PickListLinkPDA").Columns("A:AU").Cells.Copy '½Æ»sLink(N-1).xlsx¤¤ªºPickListLinkPDAªí³æ½Æ»s
            Workbooks("test1.xlsm").Worksheets("raw").Select  '¶K¦Ü¥DÀÉtest1.xlsm¤¤ªºrawªí³æ
            Range("A1").Select
             ActiveSheet.Paste
         End If
(¥D­n¬O¤W­±³o¬qµ{§Ç¥X²{µ{§Ç¿ù»~ªº²§±`)
>> ­×§ï¦p¤U¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
For Each wb In Workbooks
    If LCase(wb.Name) Like "link.xls*" Then
        Workbooks(wb.Name).Sheets("PickListLinkPDA").Columns("A:AU").Copy '½Æ»sLink(N-1).xlsx¤¤ªºPickListLinkPDAªí³æ½Æ»s
        Windows("TEST1.xlsm").Activate '¶K¦Ü¥DÀÉtest1.xlsm¤¤ªºrawªí³æ
        Range("A1").Select
        ActiveSheet.Paste
    End If
Next