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

[µo°Ý] ©I¥s¥~³¡¿W¥ß°õ¦æÀÉ®×¥¨¶°

¥»©«³Ì«á¥Ñ reangame ©ó 2021-7-15 08:51 ½s¿è

¦^´_ 10# singo1232001


³ø§isingo1232001¤j¤j¡A¤p§Ì¬O2003ª©¥»¡A¤p§Ì©|¥¼²z¸Ñ±zªºµ{¦¡½X¡A¦ý½Õ¾ã¤@¤U¸g´ú¸Õ¥i¥Î±zªºÀɮפ@Áä°õ¦æ³á!!!
  1.     a.WriteLine "obje2.Application.Run """ & Chr(39) & [a1] & "a2.xlsm" & Chr(39) & "!Module1.forX"""
  2.      
  3.     For i = 15 To 19
  4.     a.WriteLine Cells(i, 1)
  5.     Next
½Æ»s¥N½X
§Ú¬O´µ¦h

TOP

3.rar (32.78 KB) ¦^´_ 10# singo1232001
§Ú¬O´µ¦h

TOP

¥»©«³Ì«á¥Ñ reangame ©ó 2021-7-16 00:07 ½s¿è

¦^´_ 10# singo1232001


https://docs.microsoft.com/zh-tw/office/vba/api/excel.application.automationsecurity
https://ithelp.ithome.com.tw/articles/10159964
¤£ª¾¹D¦³¨S¦³¥Î¡A·q½Ð°Ñ¦Ò¬Ý¬Ý
§Ú¬O´µ¦h

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD