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

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

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

¤½¥qERP¨t²Î·|¤U¸ü¤@­ÓEXCELÀɮסA§Úªº±b¸¹µn¤J«á¦pªG¤U¸ü¸Ó¸ê®Æ¡A
²Ä¤@¦¸·|Âà¥XÀɦWLink.xlsªº¸ê®ÆÀÉ
²Ä¤G¦¸·|Âà¥XÀɦWLink(1).xlsªº¸ê®ÆÀÉ
²Ä¤T¦¸·|Âà¥XÀɦWLink(2).xlsªº¸ê®ÆÀÉ
¦pªG§Ú±b¸¹¤@ª½¨S¦³µn¥X¡A²ÄN¦¸´N·|Âà¥XÀɦWLink(N-1).xlsªº¸ê®ÆÀÉ

¤§«á§Ú·|±NLink.xls¾ã­¶¤â¤u½Æ»s¶K¤W¦Ü  ¥DÀÉ.xlsm ¨ä¤¤¤@­Ó­¶­±¡AµM«á¶}©l°õ¦æVBA³B²z¸ê®Æ¡A³Ì«á§Ú·Q¬Ù¤U¤@¹D¤u¡A´N¬O¥ÎVBA¤]±NLink.xlsÃö³¬(¤£¥Î¦sÀÉ)¡C
¥Ø«e¹J¨ìªº°ÝÃD¬O·í­nÃö³¬ªºÀɦW¬OLink(1).xlsªº®É­ÔµLªkÃö³¬¡A½Ð°Ý­n¦p¦ó¼¶¼g³o³¡¤Àªºµ{§Ç¡C

Sub Test1()
    Workbooks("Link").Activate
    Workbooks("Link").Close
End Sub

¦^´_ 1# pointchi

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

TOP

S ¤j¡A§Ú±N±z»¡©úªº¦r¦ê¥[¤J§ÚªºVBA¡A·íÀɮ׬°Link¬O¥i¥H¦Û°ÊÃö³¬¡A¥i¬OLink(1)...Link(N-1)®É¤´µLªkÃö³¬¡A½Ð°Ý¬O§_§Ú¦³­þÃä¿ù»~¡Aªþ¤W§ÚªºVBA

Sub step01()
    a = Cells(13, 4)
    If Len(a) >= 28 Then
        Worksheets("raw").Cells(13, 4).Font.Name = "Arial"
        Worksheets("raw").Cells(13, 4).Font.Size = 35
        Worksheets("raw").Cells(13, 4).Font.FontStyle = "²ÊÅé"
    Else
        Worksheets("raw").Cells(13, 4).Font.Name = "Arial"
        Worksheets("raw").Cells(13, 4).Font.Size = 48
        Worksheets("raw").Cells(13, 4).Font.FontStyle = "²ÊÅé"
    End If
   
    Set WB = Workbooks.Open("C:\Users\Point\Downloads\link.xlsm")
    WB.Close

End Sub

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¦Ü 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

¥i¬O¦]¬°¤½¥qªºERP¨t²Î©ó§Úªº±b¸¹µn¤J«á¤U¸ü¸Ó¸ê®Æ¡A
²Ä¤@¦¸·|Âà¥XÀɦWLink.xlsªº¸ê®ÆÀÉ
²Ä¤G¦¸·|Âà¥XÀɦWLink(1).xlsªº¸ê®ÆÀÉ
²Ä¤T¦¸·|Âà¥XÀɦWLink(2).xlsªº¸ê®ÆÀÉ
¦pªG§Ú±b¸¹¤@ª½¨S¦³µn¥X¡A²ÄN¦¸´N·|Âà¥XÀɦWLink(N-1).xlsªº¸ê®ÆÀÉ

¦]¦¹§Ú²Ä¤G¦¸§@·~TEST1ªºÀɮ׮ɡA¸ê®Æ¨Ó·½ªºÀÉ®×ÀɦW¬°Link(1)¡AVBA¦]¬°¥u§ä´MLink¦ý§ä¤£¨ì¡A´NµLªk¦Û°ÊÃö³¬Link(1)
¥H¦¹Ãþ±À¡A§Ú²Ä¤T¦¸§@·~TEST1®É¡A¨Ó·½ªºÀÉ®×ÀɦW¬°Link(2)¡C
¦³¬Æ»ò»yªk¥i¥H¤£ºÞ§Ú²ÄN¦¸°õ¦æTEST1®É¡A¨Ó·½ªºÀɦW¬°Link(N-1)¡AVBA¯à°÷Ãö³¬Link(N-1)³o­ÓÀɮסC
Downloads.rar (38.63 KB)

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

¦^´_ 6# samwang
¦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ÀÉ?
>>µn¤JERP«á¡A¦p¦³­n§@·~®É¤~¤â°Ê«öERP¤Wªº¶×¥X«ö¶s¡AERP·|¶×¥X¦¨Link.xls¡A¦A­«µn¤JERP¤§«e¡A¨C¦¸¶×¥XªºÀɦW·|¨Ì§Ç+1¡A¬°Link.xls¡ALink(1).xls¡ALink(2).xls¡ALink(N-1).xls...
     ©Ò¥H¦pªG§Ú²Ä5¦¸«ö¶×¥X«ö¶s¡A¶×¥XªºÀɦW¬°Link(4).xls¡A¤£µM§Ú´N¬O¨C¦¸­n¶×¥XÀɮ׫e¥ýµn¥X¦A­«µn¤JERP¡A³o¼Ë¶×¥XªºÀɤ~·|¬OLink.xls¡AVBA¤~¤£·|¥X²{¿ù»~°T®§


§Ú·|±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


§Ú¬O·Q»¡¦pªG¥i¥H©ó§@·~µ²§ô¡AVBAÀ°§Ú¤]¶¶«K±NLink(N-1).xlsªºÀÉ®×Ãö³¬¡A§Ú¤]´N¥i¥H¬ã¨s¦p¦ó½Æ»sLink(N-1).xlsªºÀɮצܧ@·~¥DÀÉTEST1ªºRaw¼ÐÅÒ­¶

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

¥»©«³Ì«á¥Ñ pointchi ©ó 2021-11-19 21:40 ½s¿è

¦^´_ 8# samwang

§Ú·|±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«Øij1.¤H¤u(YES)¿ï¨ú¥ÑERPÂà¥X¸ê®ÆÀÉ-->2.VBA(YES)°õ¦æ³B²z¸ê®Æ-->3.VBA(³oÂI§Ú¤£¤Ó¤F¸Ñ??)Ãö³¬¸ê®ÆÀɮסA¿ï¨ú¥ÑERPÂà¥X¸ê®ÆÀÉ(¥Ñ¤H¤u¿ï¨ú»Ý¨DÀÉ®×)¡A³o¼Ë¬yµ{¬O§_¦³¤ñ¸û¦n?

      Sorry¡A§Úªº·N«ä¥i¯àS¤j»~·|¤F¡A§Ú¥Ø«eªº§@·~¬O
      1.¤â°Ê«öERP¤Wªº¶×¥X«ö¶s¡A¶×¥XLink(N-1).xls
         ¤â°Ê¿ï¨úERPÂà¥X¸ê®ÆÀÉLink(N-1).xls¡A¤â°Ê½Æ»s¦Ü§@·~¥DÀÉTEST1ªºRaw¼ÐÅÒ­¶
      2.VBA°õ¦æ³B²zTEST1¸ê®Æ
      3.¤â°Ê¿ï¨ú²Ä1ÂI¤¤ERP¶×¥XªºLink(N-1).xls¨Ã¥BÃö³¬-->¬O§_¥i¥H¥ÎVBAÃö³¬Link(N-1).xls

TOP

dim linkbook as workbook
for each linkbook in workbooks
    if lcase(.name) like "link*.xls*" then .close 0
next

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD