¦p¦ó½Æ»s¤u§@¶¨ì²Ä¤GÓÀÉ®×
- ©«¤l
- 176
- ¥DÃD
- 98
- ºëµØ
- 0
- ¿n¤À
- 279
- ÂI¦W
- 0
- §@·~¨t²Î
- window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-4-8
|
¦p¦ó½Æ»s¤u§@¶¨ì²Ä¤GÓÀÉ®×
§Ú·Q±N¤u§@¶½Æ»s¨ì²Ä¤GÓÀɮתº³Ì«á±,
fileN = Cells(2, 1)
sheetn = Cells(2, 2)
Sheets(sheetN).Copy before:=Workbooks(fileN).Sheets(1)
¦ýµ²ªG¥X²{¿ù»~, ³¯¦C¯Á¤Þ¶W¥X½d³ò, ½Ð°Ý¿ù¦b¦ó³B¤ÎÀ³¦p¦óקï
½Ð«ü±Ð |
|
|
|
|
|
|
- ©«¤l
- 176
- ¥DÃD
- 98
- ºëµØ
- 0
- ¿n¤À
- 279
- ÂI¦W
- 0
- §@·~¨t²Î
- window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-4-8
|
Àˬd¹LÀɮצ³¶}±Ò,¤Îªþ¤W¾ãÓ¥¨¶°¤º®e,
½Ð«ü±Ð¿ù¦b¦ó³B
Sub export()
Sheets("export").Select
Range("A1").Select
fileN = Cells(2, 1)
sheetn = Cells(2, 2)
Workbooks.Add
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:=fileN
ThisWorkbook.Activate
Sheets(sheetn).Select
Sheets(sheetn).Copy before:=Workbooks(fileN).Sheets(1)
End Sub |
-
-
Book1.zip
(8.2 KB)
|
|
|
|
|
|
- ©«¤l
- 227
- ¥DÃD
- 3
- ºëµØ
- 1
- ¿n¤À
- 273
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-3-22
- ³Ì«áµn¿ý
- 2013-1-29
|
Sheets(sheetN).Copy before:=Workbooks(fileN).Sheets(1)
¬O½Æ»s¨ì²Ä¤GÓ¤u§@諸³Ì«e±
»y¥yÀ³¨S°ÝÃD¡A¤]³\¬O§A²Ä¤GÓ¤u§@ï¨S¥´¶}¡C |
|
|
|
|
|
|
- ©«¤l
- 176
- ¥DÃD
- 98
- ºëµØ
- 0
- ¿n¤À
- 279
- ÂI¦W
- 0
- §@·~¨t²Î
- window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-4-8
|
¤£¦n·N«ä, »~·|¤F§Úªº°ÝÃD,
¨ä¹ê¥H¤W¥u¬O¨Ò¤l
ÀɮפΤu§@ªí¦WºÙ¤Î¸ê®Æ¦h¤Ö¨ä¹ê¤£·|©T©w |
|
|
|
|
|
|
- ©«¤l
- 176
- ¥DÃD
- 98
- ºëµØ
- 0
- ¿n¤À
- 279
- ÂI¦W
- 0
- §@·~¨t²Î
- window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-4-8
|
GBKEE
sheet1, sheet2, sheet3,sheet4, sheet5, sheet6 ¥]¬A´£¨Ñ¸ê®Æªº¤u§@ªí
³£¬O¦b¶}±Ò¤¤ÀÉ®× summary.xls ªº¤u§@ªí¤º
¦Ó book2, ¤Î book3 ¬O¦s¦b©óc:\export\¤º¥¼¶}±ÒªºÀÉ®×
²{§Æ±æ¸ò¾Ú¸ê®Æ, ±N¤u§@ªí sheet1, sheet2, sheet3, ¤Î book1,book2 Àɮפºªº©Ò¦³¤u§@ªí
µ²¦X¦¨·sÀÉ®×AA.xls ¨Ã¦s©ó c:\test\
½ÐÀ°¦£ |
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-8 19:54 ½s¿è
¦^´_ 2# enoch
±N¦³Ãö¤u§@ªí¥t¦s¦¨Ó§OÀÉ®×,¨Ã¦s©ñ¦bc:\import ¤º, ¨Ò¦p:
ÀÉ®×AA ¥]¬A ¤u§@ªí sheet1, sheet2, sheet3, ¤Îbook1,book2 ¤ºªº©Ò¦³¤u§@ªí
ÀÉ®×BB ¥]¬A ¤u§@ªí sheet4, sheet5, sheet6, book3¤ºªº©Ò¦³¤u§@ªí
sheet1, sheet2, sheet3,sheet4, sheet5, sheet6 ¬O¶}±Ò¤¤Àɮתº¤u§@ªí¶Ü? |
|
|
|
|
|
|
- ©«¤l
- 176
- ¥DÃD
- 98
- ºëµØ
- 0
- ¿n¤À
- 279
- ÂI¦W
- 0
- §@·~¨t²Î
- window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-4-8
|
|
|
|
|
|
|
- ©«¤l
- 176
- ¥DÃD
- 98
- ºëµØ
- 0
- ¿n¤À
- 279
- ÂI¦W
- 0
- §@·~¨t²Î
- window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-2-17
- ³Ì«áµn¿ý
- 2020-4-8
|
¦p¦ó¸ò¾Ú¸ê®Æ¶×¥XÀÉ®×
½Ð°Ý¦U¦ì°ª¤â
¦p¦ó¸ò¾Ú¤U±¸ê®Æ
±N¦³Ãö¤u§@ªí¥t¦s¦¨Ó§OÀÉ®×,¨Ã¦s©ñ¦bc:\import ¤º, ¨Ò¦p:
ÀÉ®×AA ¥]¬A ¤u§@ªí sheet1, sheet2, sheet3, ¤Îbook1,book2 ¤ºªº©Ò¦³¤u§@ªí
ÀÉ®×BB ¥]¬A ¤u§@ªí sheet4, sheet5, sheet6, book3¤ºªº©Ò¦³¤u§@ªí
sheet1-sheet6 ¦b²{¦³¤u§@ªí¤º
book1- book3 ¦s©ñ¦bC:\export¤º
·sÀɮצW ¤u§@ªí©ÎÀɮצWºÙ
AA sheet1
AA sheet2
AA sheet3
AA book1.xls
AA book2.xls
BB sheet4
BB sheet5
BB sheet6
BB book3.xls
[attach]6844[/attach] |
-
-
Book1.zip
(1.97 KB)
|
|
|
|
|
|