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

[µo°Ý] ¦p¦ó±N±qEXCEL¤ºªº¸ê®Æ¶K¤Jºô¯¸¤¤(¹Lµ{³£¥ÑVBA¦Û°Ê°õ¦æ)

¦^´_ 3# icestormer
¦p stillfish00 ¤§¸Ñ»¡¡G ¨Ï¥Î DataObject «Å§i¡A¶·¤Þ¥Î Microsoft Form Object Library
§A¥ýÀˬd¸Ó Library ¬O§_¤w¸g¤Ä¿ï¡A §_«h°õ¦æ®É·|²£¥Í "¥¼©w¸q" ªº°T®§¡A§Ú±N¦p¦ó¤Þ¥Î
ªº¤èªk¡A»¡©ú¦p¤U¡A§Æ±æ¹ï§A·|¦³©ÒÀ°§U¡C
  1. 1.  ¶}µo¤H­û  --->   ¤u¨ã   --->  ³]©w¤Þ¥Î¶µ¥Ø   --->   ¥i¤Þ¥Îªº¶µ¥Ø(A)
  2. 2.  µM«áÆ[¹î Micorsoft Forms 2.0 Ojbect Library ¦³§_¤Ä¿ï¡H
  3. 3.  ¦pªG¸Ó¶µ¥Ø¤£¦s¦b!
  4. 4.  «hÂI¿ï "ÂsÄý" ¿ï¶s   --->   ·s¼W¤Þ¥Î¶µ¥Ø - VBAProject¡A
  5.     ·j´M¦ì¸m(I) «ü¦V Windows/System32\FM20.dll¡A ±µµÛ¦AÂI¿ï
  6.     "¶}±Ò" «K·|¦Û°Ê¤Ä¿ï Micorsoft Forms 2.0 Ojbect Library ¤F¡C
½Æ»s¥N½X
¯¬§A¤@¦|­·¶¶¡I

TOP

¦^´_ 5# icestormer
§Ú¤âÀY¤W¨Ã¨S¦³ 2003 ªºª©¥»¡A¦³Ãö³o¤è­±
§A¥i¯à­n¥h½Ð±Ð GBKEE ª©¤j¤F¡A¦]¬°¥L¤]¬O
¨Ï¥Î 2003 ªºª©¥»¡C

TOP

¦^´_ 7# icestormer
§Ú¥u·|¹ï®×¨Ò¦^´_¡A¦Ü©ó¥­±`¦p¦ó©I¥s¯uªº¤£ª¾¦p¦óÁpô¡C
¦ý§Ú§ä¨ì¤F¨â½g¦³Ãö¸Ñ¨M¤è®×¡A´£¨Ñ§A°Ñ¦Ò¡G
  1. Actually it's a member of msforms library, not from native vba.

  2. you can use it without a userform but you'll need a reference
  3. to Microsoft Forms Object Library. The reference is automatically added
  4. to a workbook when you insert a Userform from VBeditor's Insert menu.
½Æ»s¥N½X
  1. Problem

  2. An Excel VBA subroutine that involves interaction with the Windows Clipboard fails to run with the error:
  3. ¡§Compile error: User-defined type not defined.¡¨  The line of code highlighted by Excel as
  4. being the cause of the error includes a reference to the ¡§DataObject¡¨ object type.

  5. Solution

  6. (Tested on my machine with Excel 2003 SP3)

  7. In the Microsoft Visual Basic editor:

  8.     Stop debugging by clicking the ¡§Stop¡¨ button on the toolbar (if debugging isn¡¦t already stopped).
  9.     Tools menu | References
  10.     In the list of available references, find ¡§Microsoft Forms 2.0 Object Library¡¨, check it, and click OK.  (For me, this was the 2nd unchecked item from the top of the list; it wasn¡¦t sorted alphabetically in the list like most of the rest of the listed items.)
  11.     Run the macro again.

  12. That¡¦s it!  Hope this helps!
½Æ»s¥N½X

TOP

¦^´_ 7# icestormer
¬°¤è«K¾\Äý¡A¯S±N¥¦Â½Ä¶¦p¤U¡G
  1.     Actually it's a member of msforms library, not from native vba.
  2.     (½T¹ê¥¦¬O·L³nªí³æµ{¦¡®wªº¤A­û¡A¦Ó«D VBA ªº¥Í¦¨¤¸¥ó)

  3.     you can use it without a userform but you'll need a reference
  4.     to Microsoft Forms Object Library. The reference is automatically added
  5.     to a workbook when you insert a Userform from VBeditor's Insert menu.
  6.     (§A¥i¥H¤£»Ýªí³æ¦Ó¥h¨Ï¥Î¥¦¡A¦ý¬O§AÁÙ¬O¶·­n°Ñ¦Ò¨ì·L³nªºªí³æª«¥óµ{¦¡®w¡C
  7.      ·í§A±qVB½s¿è´¡¤J¿ï³æ¤º´¡¤J¤@±iªí³æ®É¡A¦¹°Ñ¦Ò¶µ·|¦Û°Ê¥[¤J¨ì¬¡­¶Ã¯¸Ì¡C)


  8.     Problem (°ÝÃD)

  9.     An Excel VBA subroutine that involves interaction with the Windows Clipboard fails to run with the error:
  10.     ¡§Compile error: User-defined type not defined.¡¨  The line of code highlighted by Excel as
  11.     being the cause of the error includes a reference to the ¡§DataObject¡¨ object type.
  12.     (·í¤@­Ó¸Õºâªí VBA µ{¦¡¬q¤º²[»\µøµ¡°Å¶K蠟Ãìµ²©ó°õ¦æ®É²£¥Í¿ù»~¡G"µ{¦¡½s¿è¿ù»~¡G¨Ï¥ÎªÌ¦Û­q«¬ºA©|¥¼©w¸q"¡C
  13.      ¤Ï¥Õ¼Ð¥Üµo¥Í¿ù»~ªº³o¦æ¬O¦b»¡©ú¥¦¦b°Ñ·Ó "¸ê®Æª«¥ó (¡§DataObject¡¨)" ®Éµo¥Í¤F°Ñ·Ó¿ù»~¡C)

  14.     Solution (¸Ñ¨M¤è®×)

  15.     (Tested on my machine with Excel 2003 SP3) (¤w¸g¦bExcel 2003 SP3´ú¸Õ¹L)

  16.     In the Microsoft Visual Basic editor: (¦b·L³nªº VB ½s¿è¾¹¤º)

  17.         Stop debugging by clicking the ¡§Stop¡¨ button on the toolbar (if debugging isn't already stopped).
  18.         (°±¤î°»¿ù¼Ò¦¡¡A§Y¿ï«ö¤u§@¦C¤Wªº "°±¤î" ¶s²×¤î°»¿ù)
  19.         Tools menu | References  (¤u¨ãµæ³æ  |  °Ñ¦Ò¶µ¥Ø )
  20.         In the list of available references, find ¡§Microsoft Forms 2.0 Object Library¡¨, check it, and click OK.
  21.         ¦b°Ñ¦Ò¦C¥Ü¶µ¥Ø¿ï³æ¤º¡A§ä´M¡§Microsoft Forms 2.0 Object Library¡¨¡A§ä¨ì«áÂI¿ï¥¦´N§¹¦¨¤F¡C
  22.         (For me, this was the 2nd unchecked item from the top of the list; it wasn't sorted alphabetically
  23.          in the list like most of the rest of the listed items.)
  24.         Run the macro again. (¦A­«·s°õ¦æ¥¨¶°)

  25.     That's it!  Hope this helps!  (´N³o¼Ë¡I §Æ±æ¹ï§A¦³©ÒÀ°§U¡I)
½Æ»s¥N½X

TOP

¦^´_ 11# icestormer
  1.       '  MsgBox x.All.tags("h4")(0).innerText
  2.       [L22] = x.All.tags("h4")(0).innerText
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD