·Q½Ð±ÐÃö©ó©w¸qª«¥ó»yªkªººÃ°Ý¡H
- ©«¤l
- 209
- ¥DÃD
- 43
- ºëµØ
- 0
- ¿n¤À
- 262
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 20**
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-3
- ³Ì«áµn¿ý
- 2017-4-16
|
·Q½Ð±ÐÃö©ó©w¸qª«¥ó»yªkªººÃ°Ý¡H
§Úª¾¹D¥Îset¥i¥H¥Î¨Ó©w¸qª«¥ó¡A¦ý§Ú¹ï©ó¤U¦C¨âºØ¼gªk¦³ÂIºÃ´b¡AÁٳ·Фj¤jÌÀ°§ÚÂç²M¤@¤U¡G
¥H¤Uªº¼gªk¬O¥i¥H·s«Ø¤@Óexcel¤u§@ªí¡A¨Ã±N¥Ø«e©Ò¦³¦b¸Ó¤u§@ï¸Ìªº¤u§@ªí¦WºÙ¡A¥þ³¡©ñ¦b·s«Øªº¤u§@ªí¸Ì¡C
Set newa = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
newa.Cells(i, 1).Value = Sheets(i).Name
Next i
¦b³o¸Ì¡A§Ú¹ïsetªº¥Îªk¦³ºÃ°Ý´N¬O¡G¦pªG¤µ¤Ñ§âset®³±¼¡Aª½±µ§â²Ä¤T¦æªºnewa¨ú¥N±¼¡A³o¼Ëªº¼gªk¸ò§ânewa©w¸q¦¨ª«¥óªº·§©À¦³¦ó¤£¦P¡H
´N¬O§â²Ä¤T¦æÅܦ¨ Sheets.Add(Type:=xlWorksheet).Cells(i, 1).Value = Sheets(i).Name
µM«á²Ä¤@¦æ§R°£¡C
½Ð¦U¦ì¤j¤j«ü±Ð¡AÁÂÁ¡C |
|
|
|
|
|
|
- ©«¤l
- 209
- ¥DÃD
- 43
- ºëµØ
- 0
- ¿n¤À
- 262
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 20**
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-3
- ³Ì«áµn¿ý
- 2017-4-16
|
¥»©«³Ì«á¥Ñ tku0216 ©ó 2011-12-2 15:51 ½s¿è
¦^´_ 2# GBKEE
ÁÂÁ¤j¤j¸Ñ»¡¡A¦ý¦³ÂI»~¸Ñ§Úªº·N«ä...
§Úªº·N«ä¬O¡A§Ú¥i¥H§â²Ä¤@¦æsetªº«Å§i®³±¼¡AµM«áª½±µ¼g¦¨³Ì«á¤@¦æ¶Ü¡H
¤]´N¬O¡G
Set newa = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
newa.Cells(i, 1).Value = Sheets(i).Name
Next i
©Î¬O§ï¦¨¡G
For i = 1 To Sheets.Count
Sheets.Add(Type:=xlWorksheet).Cells(i, 1).Value = Sheets(i).Name
Next i
¼gªk¦b·N¸q¤W¦³¦ó¤£¦P¡HÁÂÁ¡C |
|
|
|
|
|
|
- ©«¤l
- 209
- ¥DÃD
- 43
- ºëµØ
- 0
- ¿n¤À
- 262
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 20**
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-3
- ³Ì«áµn¿ý
- 2017-4-16
|
¦hÁ¤j¤j¤À¨É¡A©Ò¥H³o¼Ëªº¼gªk§Ú·Q®t´N®t¦b¤u§@ªí·|¦]¬°°j°é¨C¦¸¼W¥[¦Ó¼W¥[¡C
ÁÙ¦³ªþ±a¤@Ó°ÝÃD¡G½Ð°Ýsheets¸òworksheetsªº¥Îªk®t¦bþ¸Ì¡H
§Úª¾¹Dworkbooks¬O«ü¸ÓexcelÀɮתº©Ò¦³¤u§@ªí¡A¦ý¬O¦bVBA¸Ì¡A¬°¦ó¦³®É¥Îsheets¡A¦³®É«o¥Îworksheets¡H
¨Ò¦pGBKEE¤j¤j¤À¨É¾a¤Wªºµ{¦¡½X¤¤¡A²Ä¤@¦æ¸ò²Ä¤T¦æ´N¥Î¨ì¤£¦Pªº¼gªk¡H |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
Y¤u§@襤¥]¨ç¹Ïªí©Î4.0¥¨¶°¤u§@ªí¡A´N·|¦³°Ï§O¡C |
|
|
|
|
|
|
- ©«¤l
- 209
- ¥DÃD
- 43
- ºëµØ
- 0
- ¿n¤À
- 262
- ÂI¦W
- 0
- §@·~¨t²Î
- win 7
- ³nÅ骩¥»
- office 20**
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-11-3
- ³Ì«áµn¿ý
- 2017-4-16
|
|
|
|
|
|
|