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

¨S¦³¨¬°÷ªº°O¾ÐÅé¥i§¹¦¨¦¹°Ê§@

¨S¦³¨¬°÷ªº°O¾ÐÅé¥i§¹¦¨¦¹°Ê§@



¦U¦ì°ª¤â
¤p§ÌVBA¦n¤£®e©ö¼g§¹¤F
¦ý¬Oµo²{µ{¦¡¦pªG°õ¦æ¨â¹M
¦n¹³´N·|¥X²{¤W­zªº¿ù»~°T®§

­«¶}¾÷«á¡A¤j·§°õ¦æ¨â¹M«áÁÙ¬O·|¥X²{¸Ó¿ù»~°T®§

code.zip (1.03 KB)

§Úµo²{§Ú§â¤U­±µ{¦¡½X§R°£«á
µ{¦¡´N¥¿±`¤F
½Ð°Ý§Úªºµ{¦¡¸Ó«ç»ò§ïµ½
ÁÂÁ¤j®a¤F
  1. file_path = ThisWorkbook.Path
  2. Sheets(sheet_name).Copy
  3. ActiveWorkbook.SaveAs file_Name, xlNormal
  4. ²M°£°Å¶Kï
  5. Application.CutCopyMode = False
  6. Workbooks(work_name).Activate
  7. Sheets("µ{¦¡").Visible = True
  8. Sheets(sheet_name).Delete
  9. Sheets(temp_sheet_name).Delete
½Æ»s¥N½X
¦U¦ì°ª¤â
¤p§ÌVBA¦n¤£®e©ö¼g§¹¤F
¦ý¬Oµo²{µ{¦¡¦pªG°õ¦æ¨â¹M
¦n¹³´N·|¥X²{¤W­zªº¿ù»~°T®§

­«¶}¾÷«á ...
ssooi µoªí©ó 2021-5-3 19:27

TOP

Hello, Ssooi

°Ñ¦Ò³o­Ó¬Ý¬Ý¬O§_¥i¥H¸Ñ¨M±zªº°ÝÃD?
http://forum.twbts.com/thread-22923-1-1.html
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

¥»©«³Ì«á¥Ñ ssooi ©ó 2021-5-4 22:58 ½s¿è

¦^´_ 3# ¼B¤j­G
·PÁ±zªº¦^ÂÐ
¤£¹L¦n¹³ÁÙ¬O¤@¼Ë·|µo¥Í°O¾ÐÅ餣¨¬

§Ú«á¨Ó¦b´ú¸Õ¤@¦¸
¤W­zµ{¦¡½X³£¤£ÅÜ°Ê
¤]¤£¥Î§R°£¥ô¦óµ{¦¡½X
¥u¥[¤F¤@¦æµ{¦¡½X´N¥¿±`¤F
´N¬O¤À­¶¥t¦s·sÀÉ«á
°¨¤W±N·sÀÉÃö°_
´N¤£·|µo¥Í°O¾ÐÅ餣¨¬ªº¿ù»~¤F
  1. Sheets(sheet_name).Copy
  2. ActiveWorkbook.SaveAs file_Name, xlNormal
½Æ»s¥N½X
¤W­zµ{¦¡ªº«á­±¥[¤W¡÷¡iActiveWorkbook.Close True¡j
´N¥¿±`¤F!!

§Ú¤§«e¦³¥Î°O¾ÐÅéºÊ´ú¡A¨ä¹ê°O¾ÐÅé¤@ª½³£¦b50-60¦Ó¤w
ÁÙ¬O·|°O¾ÐÅ餣¨¬
ª½¨ìµo²{¥[¤F¡iActiveWorkbook.Close True¡j¤~¨S¦³¿ù»~°T®§

ºâ¬O¬O·L³nªºBUG¶Ü
¤@­Ó¥t¦sªº·s¤À­¶
©~µM·|³y¦¨°O¾ÐÅ餣¨¬
ºô¸ô´X¥G¬d¤£¨ì¬Æ»ò¸ê°T


¥H¤W¤p¤p´ú¸Õ

TOP

¦^´_ 4# ssooi

Hello,

Sheets(sheet_name).Copy
±z³o¦æ«ü¥O, ¥i¦³Paste ?
§Ú·Q±zÃö±¼Àɮתº°Ê§@¬O¥¿½Tªº,
Åý¨t²Î¦³¨¬°÷ªºªÅ¶¡§@·~.
¥t´£¨ÑOffice 32bits, µL½×±zDRAM¦h¤j, ¥¦´N¥u¦³4GBªº¤u§@ªÅ¶¡¦Ó¤w.
©Ò¥H¤]­n½T»{¤@¤U±zªºOfficeª©¥».
Thanks ~
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD