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

[µo°Ý] ¨â­Ó¿W¥ßEXCEL ¸ê®Æ¤¬¶Ç

[µo°Ý] ¨â­Ó¿W¥ßEXCEL ¸ê®Æ¤¬¶Ç

¥»©«³Ì«á¥Ñ blue2263 ©ó 2019-5-1 15:06 ½s¿è

ex.rar (29.08 KB)

¨â­Ó¿W¥ßEXCEL ¸ê®Æ¤¬¶Ç,ªþ¥ó¬O¦bºô¯¸¤W§ä¨ìªº¬ÛÃöÀÉ®×,µy·L­×§ï¤F¤@¤U,
¤v¸û²Å¦X§Ú©Ò»Ý,¦ý¦³¤@ÂI¤£ª¾¦p¦ó­×§ï,¬Û½Ð±Ð¤j¤j
ªþÀɪº¾Þ§@¬O±N1.xlsm,¥´¶}µM«á,°õ¦æ¶}©lµ{§Ç,
¸Óµ{§Çª½±µ¥´¶}·sªºEXCEL¶}±Ò2.xlsm,µM«á©w´Á±N¸ê®Æ¶Ç¨ì2.xlsm

§Ú¤£·Q¥Ñ¶}©lµ{§Ç¶}±ÒExcel³nÅé¤ÎÀÉ®×
§Ú·Q§ï¬°¤â°Ê¥ý¥´¶}¨â­ÓEXCEL¦U¦Û¥´¶}1.xlsm &2.xlsmÀɮ׫á,ª½±µ¸ê®Æ¤¬¶Ç
½Ð±Ð¤j¤j ­n¦p¦ó­×§ïµ{¦¡½X
¦p¦ó±NÅܼÆSet book1 = ª½±µ©w¸q¬°2.xlsm

¦A·Ð½Ð¤j¤j¨ó§UÀ°¦£,ÁÂÁÂ
  1. Dim app1 As Object, book1 As Excel.Workbook, UMode As Byte
  2. Dim sourcedata As Range, targetdata As Range, temp() As Variant
  3. Public Sub ¶}©l()
  4.     UMode = 1
  5.     Set app1 = CreateObject("Excel.Application")
  6.     Set book1 = app1.Workbooks.Open(ThisWorkbook.Path & "\" & "2.xlsm")
  7.     app1.Visible = True
  8.     Set sourcedata = Range("A2:I2")
  9.     Set targetdata = book1.Sheets("b").Range("A2:I2")
  10.     Call ¸ê®Æ¸óµ{¦¡Âà¼g
  11. End Sub
  12. Public Sub °±¤î()
  13.     UMode = 0
  14.     Set app1 = Nothing
  15.     Set book1 = Nothing
  16. End Sub
  17. Public Sub ¸ê®Æ¸óµ{¦¡Âà¼g()
  18. If UMode = 0 Then Exit Sub
  19.     Cells(2, 2) = Cells(2, 2) + 2
  20.     temp = sourcedata
  21.     targetdata.Value = temp 'Âà¼g
  22. Application.OnTime Now + TimeValue("00:00:01"), "¤u§@ªí1.¸ê®Æ¸óµ{¦¡Âà¼g" '¨C¤@¬íÂà¼g¤@¦¸

  23. End Sub
½Æ»s¥N½X

¦^´_ 1# blue2263

Public Sub ¶}©l() 1.xlsm¥i©w´Á±N¸ê®Æ¶Ç¨ì2.xlsm

§Ú·Q§ï¬°¤â°Ê¥ý¥´¶}¨â­ÓEXCEL¦U¦Û¥´¶}1.xlsm &2.xlsmÀɮ׫á,ª½±µ¸ê®Æ¤¬¶Ç
  
¥i¦A¸Ô­z§Aªº·Qªk¨BÆJ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE
G¤j±z¦n,¤£¦n·N«ä,¸ÑÄÀªº¤£°÷²M·¡

§Úªº·Qªk¨BÆJ¦p¤U
¨BÆJ1. ¥´¶}EXCELµ{¦¡->¶}±Ò1.xlsmÀÉ®×
¨BÆJ2. ¥´¶}EXCELµ{¦¡->¶}±Ò2.xlsmÀÉ®×
¨BÆJ3. °õ¦æ->¶}©lµ{§Ç->¸ê®Æ¸óµ{¦¡Âà¼gµ{§Ç->±N¸ê®Æ¥Ñ1.xlsm©w®É±N¸ê®Æ¶Ç¨ì2.xlsm¤u§@ªí¤º

²{¦bªºªþÀÉ,¾Þ§@¨BÆJ¦p¤U
¨BÆJ1. ¥´¶}EXCELµ{¦¡->¶}±Ò1.xlsmÀÉ®×
¨BÆJ2. °õ¦æ->¶}©lµ{§Ç->µ{§Ç¶}±Ò,·sªºEXCELµ{¦¡->µ{§Ç¶}±Ò2.xlsmÀÉ®×
¨BÆJ3. ¸ê®Æ¸óµ{¦¡Âà¼gµ{§Ç->±N¸ê®Æ¥Ñ1.xlsm©w®É±N¸ê®Æ¶Ç¨ì2.xlsm¤u§@ªí¤º   

¥D­n®t§O¦b¨BÆJ2,§Ú¤£·Q¥Ñµ{§Ç¶}±Ò,·Q§ï¬°¤â°Ê¶}±ÒEXCEL¤Î¬¡­¶Ã¯
·Ð½ÐG¤j¨ó§U,ÁÂÁÂ!!

TOP

ªþÀɾާ@®É,µo²{¦³­Ó°ÝÃD
1.xlsm©w®É¨C¤@¬íÂà¼g¸ê®Æ¨ì2.xlsm
¦p¤U¹Ï¦b2.xlsm,±±¨îÀx¦s®æ®É,·|¥X²{¿ù»~°T®§
½Ð±Ð¤j¤j­n¦p¦ó¸Ñ¨M

TOP

¦^´_ 4# blue2263

³o¿ù»~­n¦b°õ¦æ¤¤¤~¬Ýªº¥X¨Ó

¨BÆJ2. °õ¦æ->¶}©lµ{§Ç->µ{§Ç¶}±Ò,·sªºEXCELµ{¦¡->µ{§Ç¶}±Ò2.xlsmÀÉ®×
Ãö©ó³oÂI ¥i°Ñ¦Ò
Ãö©óDDE°ÊºA³sµ²°ÝÃD
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE


G¤j±z¦n
§Ú¸òµÛ³sµ²¾Þ§@,¨S¿ìªk¦p¤W¹Ï
¥X²{¥²¶·±Ò°Ê¥t¤@­Óµ{¦¡ ªº°T®§
¤£ª¾¨ºÃä¥X¿ù¤F?

TOP

¦^´_ 5# GBKEE
G¤j±z¦n
¦]¬°§Ú¤Ö¿é¤J|¦r­ì,©Ò¥HµLªk¥¿±`¥X²{°T®§,§ó¥¿«á¤v¥i¥¿±`¥´¶}µ{¦¡¤Î³sµ²ÀÉ®×
¦ý昰³sµ²¸ê®Æ¤@¼ËµL§ó·s,¤£ª¾¹D¬O¨º­Ó¨BÆJ¦³»~?

TOP

¦^´_ 7# blue2263

http://forum.twbts.com/redirect.php?goto=findpost&pid=49592&ptid=8779]8]
§ÚPC WIN 10 , 2010ª©¤]¦³³o°ÝÃDÁÙ¨S·d©w
Win 10¤U¤]«ö¸Ë2003ª©, DEE¤½¦¡¥i¥Î,§A¥i¸Õ¸Õ¬Ý
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 8# GBKEE

G¤j±z¦n

(Ãö©óDDE°ÊºA³sµ²°ÝÃD)³sµ²¤º,Hsiehª©¥D,¤W¶Çªº¹Ï¤ù,À³¸Ó¬O¥ÎEXCEL2010ª©ªº
¤£ª¾Hsiehª©¥D,¬O«ç»ò°µ,¤~Åý2010ª©¥i¥H°µ¨ìDDE³sµ²

TOP

¦^´_ 8# GBKEE
G¤j±z¦n,§Ú§ä¨ì¦p¦ó¸Ñ¨M³o­Ó°ÝÃD¤F,¥u­n§ï¬°=excel|'1.xls'!'R1C1'´N¥i¥H¥Î¤F
ÁÂÁÂG¤j,À°¤F§Ú¤@­Ó¤j¦£,³o¼Ë§Ú´N¥i¥H,±NªÎ¤jEXCELÀÉ®×,¤À¦¨¦n´X­ÓÀÉ®×,­Ó§O¹Bºâ,¨Ó¦h¤u³B²z
:)

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD