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

[µo°Ý] Ãö³¬¯S©wexcelÀÉ®×

¦^´_ 1# pointchi

'FPath= "D:\Link.xls"
Set WB = Workbooks.Open('FPathÀɮרӷ½¸ô®|)
WB.Close

TOP

¦^´_ 3# pointchi

§Ú±N±z»¡©úªº¦r¦ê¥[¤J§ÚªºVBA¡A·íÀɮ׬°Link¬O¥i¥H¦Û°ÊÃö³¬¡A¥i¬OLink(1)...Link(N-1)®É¤´µLªkÃö³¬¡A½Ð°Ý¬O§_§Ú¦³­þÃä¿ù»~¡Aªþ¤W§ÚªºVBA
>> ¬Ý§Aªºµ{¦¡¥u¦³°w¹ïLink°Ê§@¡A¨ä¥¦ªº¨S¦³¡AÁÙ¬O¤è«K¥i¥Hªþ¤WÀɮסA´y­z»Ý¨Dµ²ªG¡AÁÂÁÂ

TOP

S¤j±z¦n¡A
ªþÀɸÑÀ£ÁY«á¡ATEST1¬O§Úªº¥DÀÉ¡ALink¬O§Úªº¸ê®Æ¨Ó·½ÀɮסC
§Ú·|±NLink¾ã­¶¤â¤u½Æ»s¶K¤W¦Ü TES ...
pointchi µoªí©ó 2021-11-18 22:47


¦pªG§Ú±b¸¹¤@ª½¨S¦³µn¥X¡A²ÄN¦¸´N·|Âà¥XÀɦWLink(N-1).xlsªº¸ê®ÆÀÉ
>>¥u­nµn¤J«á¨S¦³°õ¦æ¥ô¦ó°Ê§@¡AERP·|¦Û°ÊÀ°§AÂà¥X¸ê®ÆÀɶÜ? Âà¥X«á·|¦Û°ÊÀ°§A¦sÀÉ?

§Ú·|±NLink¾ã­¶¤â¤u½Æ»s¶K¤W¦Ü TEST1ªºRaw¼ÐÅÒ­¶¡AµM«á¶}©l°õ¦æVBA³B²z¸ê®Æ¡A³Ì«á§Ú·Q¬Ù¤U¤@¹D¤u¡A´N¬O¥ÎVBA¤]±NLink.xlsÃö³¬(¤£¥Î¦sÀÉ)¡C¥Ø«e§Ú¥i¥H¦Û°ÊÃö³¬LinkªºÀɮסC
>>«Øijµn¤JERP«á¤U¸ü¸ê®ÆÀÉ«á¡AµM«á¥ÎVBA°õ¦æ¡A¿ï¨ú¥ÑERPÂà¥X¸ê®ÆÀÉ-->°õ¦æ³B²z¸ê®Æ-->Ãö³¬¸ê®ÆÀÉ®×

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2021-11-19 12:14 ½s¿è

¦^´_ 7# pointchi

§Ú·|±NLink¾ã­¶¤â¤u½Æ»s¶K¤W¦Ü TEST1ªºRaw¼ÐÅÒ­¶¡AµM«á¶}©l°õ¦æVBA³B²z¸ê®Æ¡A³Ì«á§Ú·Q¬Ù¤U¤@¹D¤u¡A´N¬O¥ÎVBA¤]±NLink.xlsÃö³¬(¤£¥Î¦sÀÉ)¡C¥Ø«e§Ú¥i¥H¦Û°ÊÃö³¬LinkªºÀɮסC
>>«Øijµn¤JERP«á¤U¸ü¸ê®ÆÀÉ«á¡AµM«á¥ÎVBA°õ¦æ¡A¿ï¨ú¥ÑERPÂà¥X¸ê®ÆÀÉ-->°õ¦æ³B²z¸ê®Æ-->Ãö³¬¸ê®ÆÀÉ®×
>>ERP¤U¸ü¸ê®ÆÀÉ«á¡A§Ú­ì¥»¤]·Q¥ÎVBA°õ¦æ¡A¥i¬O¦P¼Ë¹J¨ì§Ú­n¿ï¨úªºÀÉ®×Link.xls¥i¦æ¡A¥i¬O²Ä2¦¸¥H«áÅܦ¨Link(1).xls¡AVBA´NµLªk§ä¨ì¡C
      ¦]¦¹§Ú¤~¨C¦¸¥ý¤â°Ê½Æ»s¦Ü§@·~¥DÀÉTEST1ªºRaw¼ÐÅÒ­¶¡A³Ì¤ÖVBA¥i¥H°õ¦æ§Ú¤j³¡¤À­«½Æ¤u§@¡A¥u¬O¶}ÀY­n¤â°Ê½Æ»s­¶­±¡Aµ²§À­n¤â°ÊÃö³¬ÀɮסC
>>©Ò¥H«Øij¤H¤u¿ï¨ú¥ÑERPÂà¥X¸ê®ÆÀÉ-->VBA°õ¦æ³B²z¸ê®Æ-->VBAÃö³¬¸ê®ÆÀɮסA¿ï¨ú¥ÑERPÂà¥X¸ê®ÆÀÉ(¥Ñ¤H¤u¿ï¨ú»Ý¨DÀÉ®×)¡A³o¼Ë¬yµ{¬O§_¦³¤ñ¸û¦n?

TOP

¦^´_ 11# pointchi

¬Ý¤F­ã¤j¦^ÂСA®M¥Î¥Lªº¦^ÂСAÀ³¸Ó¥i¥H²Å¦X±zªº»Ý¨D¤F¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Dim wb As Workbook
For Each wb In Workbooks
    If LCase(wb.Name) Like "link*.xls*" Then wb.Close 0
Next

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD