Changbanana

¦^´_ 4# register313

´ú¸Õ¹L³o­Óµ{¦¡½X«á¦³­Ó°ÝÃD·Q½Ð°Ý¤@¤U~

­Y±qexcel1½Æ»s¹L¨Óªº¤u§@ªí¡A¨ä¦WºÙ¤]·|¸òªÌ½Æ»s¨ìexcel2­C

¥i¥Hª½±µ½Æ»s¸Ì­±ªº¤º®e´N¦n¤F¹À~~

©Î¬O½Æ»s¹L¨Ó¦Û°Ê§ó¦W¬°'data'

¹Ï¨Ò:

¤U¸ü (9.76 KB)

2016-9-7 14:08

¤U­±ªº¤u§@ªí¦WºÙ·Q­n©T©w¬°'data'
¦Ó¤£·|ÀHµÛ±qexcel1½Æ»s¹L¨Óªº¦WºÙ¦Ó§ïÅÜ

Changbanana

¦^´_ 7# GBKEE


·PÁ°ª¤âªºµªÂÐ~

­Y¸ê®Æ¨S¦³­­©w½d³ò~¬O¾ã­Ó¤u§@ªí½Æ»s©O

¨º³o¼Ë¸Ó«ç»ò§ï


ÁÂÁ±z~
(¥Ø«e¥¿¦b¾Ç²ßvba¤¤©Ò¥H¦³¦n¦h°ÝÃD@@

Changbanana

¦^´_ 7# GBKEE

1. Sub XX()
   
2.     Dim Source As String, Ar()
   
3.     Source = Application.GetOpenFilename
   
4.     With Workbooks.Open(Source)
   
5.           Ar = .Sheets(1).Value
   
6.          .Close
   
7.     End With
   
8.     With ThisWorkbook.Sheets(1)
   
9.         .Value = Ar
   
10.         .Name = "Data"
    
11.         .Select
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

¦bAr = .Sheets(1).Value ¥X¤F°ÝÃD

Changbanana

¦^´_ 7# GBKEE [/

­è¤§«e¦b¤»¼Ó¦^¿ù¤F
À³¸Ó¬O­n¦^ÂФG¼Óªºµ{¦¡
§Úªí¹Fªº¨S¦³«Ü²M·¡©êºp

§Úªº·N«ä¬O(°ÝÃD):

¤w¦bEXCEL1.xls  ·s¼W¤F¤@­ÓCOMMAND

ÂIÀ»«á½T»{¤J®|«á(  ¬°¥t¤@­ÓxlsÀÉ :EX:  EXCEL2.xls )

´N¯à±NEXCEL2.xls¸Ìªº¥þ³¡¸ê®Æ(¥u¦³¤@­Ó¤u§@ªí¸ê®Æ½d³ò¨S­­¨î)¶K¦Ü¤u§@ªí¦WºÙ©T©w¬°'data'ªºEXCEL1.xls

------------------------------------------------
´ú¸Õ§¹¤G¼Óªºµ{¦¡«á

EXCEL2.xls¸Ìªº¥þ³¡¸ê®Æ¬O¥þ³¡¶K¦ÜEXCEL1.xls¤F

¦ý¬O³s¤u§@ªíªº¦WºÙ¤]¶K¹L¥h¤F

¦]EXCEL2.xls ªº¤u§@ªíªº¦WºÙ¬O·|ÀHµÛÀx¦s¤é´Á¦Ó§ïÅÜ
¦ÓEXCEL1.xls¸Ìªº¤u§@ªí¦³ÃB¥~°µ¥¨¶°
¤U¦C¬O¦³Ãö¦bEXCEL1.xls¸Ì¼g¨ìªºµ{¦¡½X

1. Sheets("¤u§@ªí1").Select
   
2. Arr = Range([data!A2], [data!A65536].End(xlUp)(1, 65))

½Æ»s¥N½X

¦]¬°³o¼Ë¬G»Ý­n«ü©w¤u§@ªíªº¦WºÙ
³o¼Ë¥¨¶°¤~¥i¨Ï¥Î

Changbanana

¦^´_ 11# GBKEE


·PÁÂG¤jªº¤j¤O¬Û§U
§Ú¬Q¤Ñ¦³¸Õ¹L§A¤§«e¶Kªºµ{¦¡½X

1. Private Sub Data_Click()
   
2. Dim Source As String, Ar()
   
3.     Source = Application.GetOpenFilename
   
4.     With Workbooks.Open(Source)
   
5.         Ar = .Sheets(1).Range("A1:BN65536").Value
   
6.         .Close
   
7.     End With
   
8.     With ThisWorkbook.Sheets("data").Range("A1").Resize(UBound(Ar), UBound(Ar, 2))
   
9.         .Value = Ar
   
10.         .Name = "data"
    
11.      End With
    
12.     End Sub

½Æ»s¥N½X

¤¤¶¡§Úª½±µÅª¨ú¤§«eÀÉ®×¥þ³¡Àx¦s®æ¤º®e
²{¦b§ï¦¨

1. Private Sub Data_Click()
   
2. Dim Source As String, Ar()
   
3.     Source = Application.GetOpenFilename
   
4.      With Workbooks.Open(Source)
   
5.         Ar = .Sheets(1).UsedRange.Value
   
6.         .Close
   
7.     End With
   
8.     With ThisWorkbook.Sheets("data").Range("A1").Resize(UBound(Ar), UBound(Ar, 2))
   
9.         .Value = Ar
   
10.         .Name = "data"
    
11.      End With
    
12. End Sub

½Æ»s¥N½X

±qRange("A1:BN65536")§ï¬°UsedRange
³o­Ó¤èªk§Ö¦h¤F
¦³¦¨¥\°õ¦æ ¯uªº«Ü·PÁ§A!!!!!

Changbanana

¦^´_ 13# white5168
ÁÂÁ§Aªº«Øij¡A¤w­×¥¿¦^¨Ó
¦^´_ 11# GBKEE
¤S¦³­ÓºÃ°Ý

­Y¤£­n¨Ï¥Îvb«ö¶s

ª½±µÀ³¥ÎÀɮצW¦r(¦b¦P­Ó¸ê®Æ§¨¤U)

´N¥i¥H§â¸ê®Æ¶×¤J

³o¸Ó«ç»ò­×§ï©O?

ex:ÀɮצWºÙ¬°==>´ú¸Õ.xlsx

Changbanana

³o¬O§Ú´ú¸Õªºcode¦ý¦³¿ù»~

1. Private Sub ´ú¸Õ()
   
2. Dim Source As String, Ar()
   
3.       Source = application.run(Activeworkbook.Name&"!´ú¸Õ")
   
4.       With Workbooks.Open(Source)
   
5.         Ar = .Sheets(1).Range("A1:D65536").value
   
6.         .Close
   
7.     End With
   
8.     With ThisWorkbook.Sheets("´ú¸Õ").Range("A1").Resize(UBound(Ar), UBound(Ar, 2))
   
9.         .value = Ar
   
10.         .Name = "´ú¸Õ"
    
11.      End With
    
12. 
    
13.     MsgBox "´ú¸Õ¸ê®Æ¶×¤J¦¨¥\"
    
14. End Sub

½Æ»s¥N½X

©Î¬O¥i§_¨Ï¥Î¦b¸ê®Æªí¤W³]©w¤@­ÓÀx¦s®æªº¦WºÙ¬°test
µM«áÀ³¥Î³o­Ó¦WºÙ ¥i¥H§âÀɮ׶פJ¶i¨Ó