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

sheet ¦sÀÉ®× Àɮקìsheet ªº°ÝÃD

sheet ¦sÀÉ®× Àɮקìsheet ªº°ÝÃD

¥»©«³Ì«á¥Ñ CYC ©ó 2011-8-1 23:36 ½s¿è

§A¦n ¤p©fªì¾Çvba ¦³¤T­Ó²³æªº°ÝÃD½Ð±Ð
1. ¦pªG§Ú·Q­n³]­p¤@­Óbutton,Åý¨Ï¥ÎªÌ«ö¤U¤§«á¥i¥H¥Î·Æ¹«¬D¿ï¤@­ÓexcelÀÉ®×(Ãþ¦üopen file)·|¦Û°Ê§â¥´¶}ªºÀɮ׸̪ºtest1.sheet ¦Û°Êcopy¨ì¥Ø«eªºexcelÀɸ̭±¥Bsheet¦WºÙ¤£ÅÜ §Ú¸Ó«ç»ò°µ?
2. §Ú·Q­n³]­p¤@­Óbutton,°²³]§Ú­n§â¥Ø«eªºexcelÀɮ׸̪ºtest2.sheet Åý¨Ï¥Î¦s¦¨¤@­ÓexcelÀÉ®×,ÀɦW¥Ñ¨Ï¥ÎªÌ¦Û¥Ñ¿é¤J,§Ú¸Ó«ç»ò°µ?
3. ·Q­n³]­p¤@­Óbutton,«ö¤U¤§«á ¦Û°Ê·|¦b sheet3¸Ì­±,¦Û°Ê¼g¤JÄê¦ìªº¦WºÙ ¦p         A1               B1               c1

                                                                                                  name       student         sex

¦^´_ 2# Hsieh


    §A¦n~~ ¥H¤W¤w¸g¸Ñ¨M¤F «D±`·PÁÂ

   ÁÙ¦³¨â­Ó°ÝÃD·Q½Ð°Ý ²Ä¤@ ½Ð°Ý§Ú¸Ó«ç»ò§â¾îªº¯x°} Åܦ¨ª½ªº¯x°}? ¦psheet a ¶À¦âÅܺñ¦â ª¦¤å¥u¦³¬Ý¨ìª½Åܾî@@ ÁÂÁ  

   ¥t¤@­Ó°ÝÃD¬O¸ê®Æ¤ñ¹ï  ·í A SHEET©M C SHEET¥h¤ñ¸û,°²³]A SHEET¤¤ ªºgÄæ¦ì©MhÄæ¦ì »P c sheet aÄæ¦ì©MbÄæ¦ì¤@¼Ë®É,

    «h±N a sheetªº jÄæ¦ì¶ñ¤J c sheetªº cÄæ¦ì,¦pªG¦bC-SHEETªºAÄæ¦ì¥u¦³«e¤T½X©MASHEETªºGÄæ¦ì¬Û¦P®É,C-SHEETªºCÄæ¦ì¤@¼Ë­n¶ñ¤J(¦p¹Ï)

  ¸Õ¤F¦n¤[¼g¤£¥X¨Ó ¦A³Â·Ð¦U¦ì¤j¤j¤F

   

book2.rar (3.36 KB)

TOP

¦^´_ 1# CYC
  1. Sub Button1()
  2. Dim fs As String
  3. fs = Application.GetOpenFilename
  4. With Workbooks.Open(fs)
  5. .Sheets("test1").Copy after:=ThisWorkbook.Sheets(Sheets.Count)
  6. .Close
  7. End With
  8. End Sub
  9. Sub Button2()
  10. Dim fs As String
  11. With Application.FileDialog(msoFileDialogSaveAs)
  12. .Show
  13. If .SelectedItems.Count = 1 Then fs = .SelectedItems(1) Else MsgBox "½Ð¿é¤J¦sÀÉÀɦW": Exit Sub
  14. Sheets("test2").Copy
  15. ActiveWorkbook.SaveAs fs
  16. End With
  17. End Sub
  18. Sub Button3()
  19. Sheets("Sheet3").[A1:C1] = Array("name", "student", "sex")
  20. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD