GBKEE

¦^´_ 8# jimmy121212

1. Private Sub CommandButton1_Click()
   
2.     Dim Sh(1 To 4) As Worksheet
   
3.     Set Sh(1) = Workbooks("a.xls").Sheets("Sheet1")   '¥t¤@­ÓWORKBOOK
   
4.     Set Sh(2) = Workbooks("a.xls").Sheets("Sheet2")   '¥t¤@­ÓWORKBOOK
   
5.     Set Sh(3) = Workbooks("a.xls").Sheets("Sheet4")   '¥t¤@­ÓWORKBOOK
   
6.    
   
7.     Set Sh(4) = Workbooks("bbb.xls").Sheets("Sheet3") '¸ê®ÆÀÉWORKBOOK
   
8.    
   
9.     Sh(1).[a65536].End(xlUp).Offset(1, 0).Resize(, Sh(4).[B31:H31].Columns.Count) = Sh(4).[B31:H31].Value
   
10.     Sh(2).[a65536].End(xlUp).Offset(1, 0).Resize(, Sh(4).[B33:H33].Columns.Count) = Sh(4).[B33:H33].Value
    
11.     Sh(3).[a65536].End(xlUp).Offset(1, 0).Resize(, Sh(4).[a36:m36].Columns.Count) = Sh(4).[a36:m36].Value
    
12. 
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# jimmy121212

1. Sub «ö¶s3_Click()
   
2.     Dim Sh(1 To 4) As Worksheet
   
3.     'Sheets("¬¡­¶Ã¯¤u§@ªí¦WºÙªº ¦r¦ê")   ->Sheets("OP-¥~¸ê+")
   
4.     Set Sh(1) = Workbooks("c¾ä¥v¥¼¥­­Ü.xlsx").Sheets("OP-¥~¸ê+") '¥t¤@­ÓWORKBOOK
   
5.     'Sheets( ¯Á¤Þ­È  [¼Æ¦r   ²Ä´X­Ó¤u§@ªí])   ¦pSheets(1)  ->"OP-¥~¸ê+"
   
6.     'Set Sh(1) = Workbooks("c¾ä¥v¥¼¥­­Ü.xlsx").Sheets(1) '¥t¤@­ÓWORKBOOK
   
7.     Set Sh(4) = Workbooks("bbb.xls").Sheets("Sheet3") '¸ê®ÆÀÉWORKBOOK
   
8.     Sh(1).[a65536].End(xlUp).Offset(1, 0).Resize(, Sh(4).[B31:H31].Columns.Count) = Sh(4).[B31:H31].Value
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 12# jimmy121212
²Ä¤G¦æ°»¿ù½d³ò¶W¥X¤Þ¯Á : ´N¬O§ä¤£¨ì«ü©wªºWorkBooks©Î¬OSheets¦WºÙ
Àˬd¤@¤UWorkBooks("¦WºÙ")¦³¶}±Ò¶Ü?? ,Sheets("¦WºÙ")¬O³oWorkBooks("¦WºÙ")ªº¤u§@ªí¶Ü??

GBKEE

¦^´_ 14# jimmy121212
½Ð¬Ý²Ä3¦æ  ¦³³o ' ²Å¸¹VBA¤£·|°õ¦æªº,²Ä5,6¤]¦³³oµù¸Ñ(µ{¦¡¤¤ªº»¡©ú)¤å¦rªº²Å¸¹

  'Sheets("¬¡­¶Ã¯¤u§@ªí¦WºÙªº ¦r¦ê")   ->Sheets("OP-¥~¸ê+")

GBKEE

¦^´_ 16# jimmy121212
   

¥i¥H½Ð¨D±zª½±µ¼g¥X¤@­Ó¥i°õ¦æªºµ¹§Ú°Ñ¦Ò¤ñ¹ï¶Ü¡H«ô°U¤F

¤£ª¾©Ò¥HµM,µ¹§AÀɮ׬O¦h¾lªº,¦h¬Ý¬Ý(VBAªº»¡©ú)·|¶i¨Bªº.