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

¦p¦ó¸g¥ÑVBªº«ö¶s ¥Ñ¤@­ÓEXCELÀɮ׸ê®Æ¶×¤J¦Ü¥t¤@EXCEL

¦p¦ó¸g¥ÑVBªº«ö¶s ¥Ñ¤@­ÓEXCELÀɮ׸ê®Æ¶×¤J¦Ü¥t¤@EXCEL

·Q½Ð°Ý¤@¤U°ª¤â­Ì


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

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

´N¯à±NEXCEL2.xls¸Ìªºªí®æ¸ê®Æ¶K¦ÜEXCEL1.xls

·Q½Ð°Ý¤@¤U VBªº¥¨¶°­n«ç»ò¼g·|¤ñ¸û¦n  

³Â·Ð¦U¦ì°ª¤â¸Ñµª¤F>"<
WOW

¦^´_ 1# g93353

¤u§@ªí¾ã±i½Æ»s
  1. Sub XX()

  2. Source = Application.GetOpenFilename
  3. With Workbooks.Open(Source)
  4.    For i = 1 To ActiveWorkbook.Sheets.Count
  5.     .Sheets(i).Copy after:=ThisWorkbook.Worksheets(Sheets.Count)
  6.    Next i
  7.   .Close
  8. End With

  9. End Sub
½Æ»s¥N½X

TOP

¥ýÁÂÁ°ª¤âªº¸Ñµª

¥i§_¦A½Ð°Ý¤@¤U  ­Y¬O¥u­­©w¬Y½d³òªºªí³æ ½Æ»s¨ì ¥t¤@½d³òªºªí³æ ­n¦p¦ó§@­×§ï
¤]¬O¥ÑEXCEL1  ¨ì EXCEL2
(EX :  A1-10 B1-10 C1-10  ­nCOPY¦ÜD2-11  E2-11 F2-11)
WOW

TOP

¦^´_ 3# g93353
  1. Sub XX()

  2. Source = Application.GetOpenFilename
  3. With Workbooks.Open(Source)
  4.   .Sheets(1).Range("A1:C10").Copy ThisWorkbook.Sheets(1).Range("D2")
  5.   .Close
  6. End With

  7. End Sub
½Æ»s¥N½X

TOP

·PÁ±zªº¦^µª!!!!
WOW

TOP

¦^´_ 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­±ªº¤u§@ªí¦WºÙ·Q­n©T©w¬°'data'
¦Ó¤£·|ÀHµÛ±qexcel1½Æ»s¹L¨Óªº¦WºÙ¦Ó§ïÅÜ

TOP

¦^´_ 6# Changbanana
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub XX()
  3.     Dim Source As String, Ar()
  4.     Source = Application.GetOpenFilename
  5.     With Workbooks.Open(Source)
  6.         Ar = .Sheets(1).Range("A1:C10").Value
  7.         .Close
  8.     End With
  9.     With ThisWorkbook.Sheets(1).Range("D2").Resize(UBound(Ar), UBound(Ar, 2))
  10.         .Value = Ar
  11.         .Name = "Data"
  12.         .Select
  13.     End With
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 7# GBKEE


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

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

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


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

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2016/9/7 15:23): Ar = .Sheets(1).Range("A1:C10").Value

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

TOP

¦^´_ 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¨Ï¥Î

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD