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

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

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

½Ð°Ý¤j¤j­Ì¡A·Q¥ÎAÀÉ®×µ{¦¡½X©I¥s¿W¥ß°õ¦æBÀÉ®×sub msg()¡A   
    Dim xlApp As Excel.Application
    Dim book As Excel.Workbook
    Dim sheet As Excel.Worksheet
    Set xlApp = CreateObject("excel.Application")
    Set book = xlApp.Workbooks.Open("D:\¤½¦¡.xls")
    ¦¹³B¥i¥H¿W¥ß°õ¦æ¶}±ÒBÀÉ®×

    Application.Run "'D:\¤½¦¡.xls'!Module1.msg"
    ¦¹³BµLªk¥H¿W¥ß°õ¦æBÀÉ®×msg()¡A¤´¥HAÀÉ®×°õ¦æmsg()
  
    ½Ð°Ý¤j¤j­Ì¸Ó¦p¦ó¼¶¼g©O?  
    ½Ð«ü¾É«ü¾É¡AÁÂÁÂ
§Ú¬O´µ¦h

¦^´_ 3# singo1232001

·PÁÂsingo1232001¤j¤jªº¦^ÂСA±zªºªþÀɤp§Ì¤w´ú¸Õ¡A¦ý¦³°ÝÃD½Ð±Ð¡A
Workbooks("a1").Sheets("¤u§@ªí1").[a1] = i: DoEvents
¤@¶}©l³£¥X¿ù¦b³oÃä¡A§ó§ï¦p¤U«á¥i¥H°õ¦æ¡A
Workbooks("a1.xlsm").Sheets("¤u§@ªí1").[a1] = i: DoEvents
(a2,a3¦P¨B§ó§ï)

¦ýa2¤Îa3¤´µM¬O¦ba1ªºÀɮ׬[ºc¤U¥H°ßŪ¼Ò¦¡¶}±Ò°õ¦æ¡A
°ßŪ¼Ò¦¡¶}±Ò¤§ÀÉ®×a2,a3§¡¥i§¹¦¨°õ¦æ¥¨¶°¡A
¤w¥ý¦æ¤â°Ê¿W¥ß°õ¦æa2¤Îa3ÀÉ¥¼°õ¦æ¥¨¶°¡A
¨ì¦¹¨BÆJ¦@¦³5­ÓÀɮ׶}±Ò1a1,1a2,1a3,1a2°ßŪ,1a3°ßŪ
¤£ª¾¹D­þÃ䦳¿ùÁٽЫü¾É«ü¾É¡A·P®¦¡I

¤p§Ìºc·Q¬O¦bAÀɮשI¥sBÀÉ®×¥H¿W¥ß°õ¦æ¤è¦¡¶}±Ò¨Ã°õ¦æ¥¨¶°¡A
¦ýAÀÉ®×¥i¥HÄ~Äò¶i¦æ¤â°Ê¤u§@©Î¨ä¥L¥¨¶°¡A¦ÓBÀɮ׫ùÄò°õ¦æ¥¨¶°¡A
    Dim xlApp As Excel.Application
    Dim book As Excel.Workbook
    Dim sheet As Excel.Worksheet
    Set xlApp = CreateObject("excel.Application")
    Set book = xlApp.Workbooks.Open("D:\¤½¦¡.xls")
    ¦¹³B¥i¥H¿W¥ß°õ¦æ¶}±ÒBÀÉ®×
    Application.Run "'D:\¤½¦¡.xls'!Module1.msg"
    ¦¹³BµLªk¥H¿W¥ß°õ¦æBÀÉ®×msg()¡A¤´¥HAÀÉ®×°õ¦æmsg()

¤W­z¼gªk¤´»Ý§JªA¥H¤U°ÝÃD¡G
¤@¡B¥i¶}±Ò¿W¥ß°õ¦æBÀɮסA¦ýµLªk°õ¦æBÀÉ®×¥¨¶°¡F©Î   ¥i°õ¦æ¥¨¶°¦ý«o¬O¥HAÀɮ׬[ºc¤U¶}±Ò
¤G¡B¦]µ{¦¡½X¼¶¼g¦bAÀɮסA¬G©I¥sBÀÉ®×°õ¦æ¥¨¶°¥¼§¹¦¨«e¡A±±¨îÅv¤´¦bBÀɮסAµLªk©I¥s«áÂkÁÙ±±¨îÅv

¥H¤WÁٽФj¤j«ü¾É«ü¾É¡A·P¿E³á¡I
§Ú¬O´µ¦h

TOP

¦^´_ 6# singo1232001

·PÁÂsingo1232001¤j¤j¡A
¤p§Ì¦bAÀÉ®×¥[¤JSub runVBScript()¡Aªº½T¥i¥H¹ê²{AÀÉ®×±±¨îBÀÉ®×°õ¦æ¥¨¶°¤F¡A
¤]§ä¨ì¦bAÀÉ®×VBAµ{¦¡½X±±¨îvbsÀɮתº¤èªk¡A«D±`·PÁ±z¡I
  1. Sub runVBScript()
  2.     ChDrive "C:"
  3.     ChDir "C:\Users\reang\Downloads\2"
  4.     Shell "cscript vba3.vbs"
  5. End Sub
½Æ»s¥N½X
§Ú¬O´µ¦h

TOP

2.rar (31.35 KB) ¦^´_ 6# singo1232001
§Ú¬O´µ¦h

TOP

¥»©«³Ì«á¥Ñ 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 : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD