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

[µo°Ý] ¼Ò²Õ¡Bªí³æ½Æ¨îªº°ÝÃD

[µo°Ý] ¼Ò²Õ¡Bªí³æ½Æ¨îªº°ÝÃD

½Ð±Ð¦U¦ì«e½ú¡A
¦p¦ó±NexcelÀɮפºªº¼Ò²Õ©Îªí³æ¡A
¨Ï¥Îvbaªºµ{¦¡¡A½Æ¨î¨ì¥t¤@­ÓexcelÀÉ¥h©O?
¥Ø«e·Q¨ìªº¤èªk¡A¬O­n¥ýexport¥X¥h«á¡A¦Aimport¶i¥h
¬O§_ÁÙ¦³¨ä¥L¤èªk©O?
ÁٽЦU¦ì¤j¤j«ü±Ð¡AÁÂÁÂ!!

¦^´_ 1# mickeymiles
°µ¦¨¼W¯q¶°¡A¸ü¤J«á§Y¥i¨Ï¥Î©ó¨ä¥LEXCELÀÉ®×
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

¼W¯q¶°¸ü¤J«á¡A¤§«á¶}¨C­Óexcel³£·|¦³¥X²{
¦Ó¥Ø«e¹J¨ìªºªF¦è¡A¤£»Ý­n¨C­Óexcel³£¥Î¨ì
¥u¦³¯S©wªºexcel¦³¥Î¨ì¡A©Ò¥H¨Ã¤£¦Ò¼{°µ¼W¯q¶°

ÁÂÁ±z~~
¥Ø«e¦³§ä¨ì¤@­Ó¨ç¼Æadd¡A¤£¹L¥u¯à¼W¥[ªÅ¥Õ­¶¡A¦ü¥GµLªkª½±µcopy¹L¥h!!

TOP

With wb
        Dim UpdateName As String
        For Each meModule In wb.VBProject.VBComponents
            With meModule
                If (.Type = vbext_ct_StdModule And .Name = "Module1")  Then
                          UpdateName = meModule.Name
                    Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents(.Name)                                                      
                    abook.VBProject.VBComponents(UpdateName).Export "C:\copypaste\" & UpdateName                                                
                    wb.VBProject.VBComponents.Import "C:\copypaste\" & UpdateName
                End If
            End With
        Next
    End With
-----------------------------------------------------------
¤W­±³o­Óµ{¦¡¡A¬O§Ú¥Îexport©Mimport¨Ó¶×¤J¶×¥X
¦ý¬O¦³¤@­Ó°ÝÃD¡A¦b¶×¤J"Module1"®É¡Aexcel vba¤ºªº¼Ò²Õ¦WºÙ·|³Q©R¦W¬°"Module11"
¦h¤F¤@­Ó"1"¡A¨ä¥Lªº³£¨S¦³°ÝÃD¡A³o­Ó¬Oexcelªºbug¶Ü?
ÁٽЦU¦ìµªÂСAÁÂÁÂ!!

TOP

¦^´_ 4# mickeymiles
¦ý¬O¦³¤@­Ó°ÝÃD¡A¦b¶×¤J"Module1"®É¡Aexcel vba¤ºªº¼Ò²Õ¦WºÙ·|³Q©R¦W¬°"Module11"

§A¦b¶×¥X Module ®É¥i¥ý©R¦W ¦p:"mickeymiles"  ¦b±M®×¤¤:¥u¶×¤J¤@¦¸´N¤£·|¦³ ³o "Module11" ªº§x´o
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE

G¤jªº·N«ä¬O«ü¦b­nÂл\ªº¦a¤è¡A·s¼W¤@­Ómodule¦W¶Ü?
¦A±N­nÂл\ªº²¾¨ì¨ºÃä¬O¶Ü?

TOP

¦^´_ 4# mickeymiles
¦Û°Ý¦Ûµª¤@¤U¡A¦³¦s¦bªºmodule¡AµLªk§R±¼©Ò¥H¦³³o­Ó±¡§Î·|²£¥Í
©Ò¥H¦n¹³­n¥t¥~¨Ï¥Îcodemodule¨Ó¹F¦¨³o­Ó¤èªk

TOP

¦^´_ 6# mickeymiles

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# GBKEE

¦A½Ð±Ð¤@¤U¡AÃö©óremove³o­Ó¨ç¼Æ
¨Ï¥Î¤W¬O§_»Ý­n¬Y¨Ç³]©w¡A¤~¥i²¾°£moduleÁÙ¬Oform¶Ü?
¬Ýmsdn¤W¡A¦n¹³¨ÃµL¦¹ºØ­­¨î
¦ý§Ú¦b¹ê»Ú¨Ï¥Î¤W¡A¦³®É­ÔmoduleµLªk²¾°£¡A¦³®É­Ô¬OformµLªk²¾°£(¤£¦Pexcel)
¹ê¦b¬OºN¤£µÛÀYºü¡AÁٽбz«üÂI¡AÁÂÁÂ!!

TOP

¦^´_ 9# mickeymiles
½Ð»¡©ú,¦p¦óµLªk²¾°£??
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD