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

Word vba ¶}excel

Word vba ¶}excel

½Ð°ÝWord«ç»ò¥Îvba¶}excel??
¥t¥~°Ý¤@­Ó°ÝÃD~wordÀ³¸Ó¨S¦³¿ìªk§â©T©wªí®æ¤ºªº­È¶Ç¨ìexcel¯S©wªº¦ì¸m§a!?
ªì¾ÇªÌcolor

¦^´_ 1# color790

WORD ªº VBA ¶}±ÒExcle »yªk
   Set MyXls = CreateObject("EXCEL.APPLICATION")
   MyXls..Visible = True
    http://forum.twbts.com/thread-1472-1-1.html

TOP

«ç»ò©Ç©Çªº~
GBKEEª©¤jªº¤èªk·|¥X²{¤@¤U¤l,µM«áexcel´N¤£¨£¤F
et5323ªº¤èªk,«h·|¥X²{¿ù»~!?
§Ú¥Î2010ª©¸ò2000ª©³£³o¼Ë!?
ªì¾ÇªÌcolor

TOP

¦^´_ 4# color790
µ{§Çµ²§ô«á ·íµMExcel´Nµ²§ô¤F
°õ¦æet5323ªºµ{§Ç®É
¬O¦bword¸Ì°õ¦æ¶Ü?
word¸Ì¦³ªí®æ¶Ü?
¦³¤@­Ó¥H¦sÀɦbword¸ê®Æ§¨ªºbook1.xls¶Ü?

TOP

Hi~ª©¥D,µ{§Çµ²§ô¬O«ü?
§Úªº·N«ä¥i¯à¤£²M·¡, ´N¬O·Q¦bword©³¤U,¥Îvbaªº¤è¦¡¶}ªÅ¥Õªºexcel,µM«á±Nword ªº¤º®e½Æ»s¦Üexcel
¦Ó°õ¦æet5323 word¦³ªí®æ,¤@°õ¦æ·|¥X²{§ä¤£¨ìbool.xlsªº¿ù»~°T®§, ¥t¥~wordªº¸ê®Æ§¨¬O«ü????
ªì¾ÇªÌcolor

TOP

¦^´_ 6# color790
[·|¥X²{¤@¤U¤l,µM«áexcel´N¤£¨£¤F]  §Úµ¹ªº¥u¬O³¡¤Àªºµ{¦¡½X, ½Ðµ¹¬Ý¬Ý§Aªºµ{§Ç¦p¦ó¼g?

Set xlWk = .workbooks.Open(ThisDocument.Path & "\book1.xls")
¶}±Ò ¥Ø¿ý(ThisDocument.Path)¤Uªº book1.xlsÀÉ  
ThisDocument.Path->©Ò¶}±ÒªºdocÀÉ©Ò¦s©ñªº¥Ø¿ý,§A¦³¹w¥ý¦s©ñ¤@­Óbook1.xlsÀɶÜ?

TOP

¦^´_ 6# GBKEE


hi~
¦]¬°³æ¯Âªº·Q§âwordªí®æcopy¦Üexcel, ¦ý¦n¹³µLªkª½±µcopy¨ì¬Û¹ïÀ³¦ì¸m¡A©Ò¥H§Úªº·Qªk¬O¡A¥Hword vba§âword ©Ò¦³¤º®ecopy¦ÜªÅ¥Õªºexcel(¦ý²Ä¤@¦æ´N¤£·|¼g-.-|||)¡AµM«á¦A¥Îexcel vba copy¦Ü«ü©wªºexcel¤º¡A©Ò¥H«á­±ªºµ{¦¡ÁÙ¨S°Ê§@º
¥t¤@­Ó¤èªk¡A·PÁª©¥Dªº¸ÑÄÀ¡A²×©óÀ´¤F¡Aµ¥¦^®a¦A¨Ó¸Õ¸Õ¡C
ÁÙ¬O¦³¨ä¥L§ó¦nªº¸Ñ¨M¤è®×=.=?
ªì¾ÇªÌcolor

TOP

«á­±ªº¸ò©«³Q§R§ïªº¶Ã¤C¤KÁV¤F¡A¥B³£µLÃöºò­n¡A§Ú¥þ²MªÅ¤F¡C

TOP

¥»©«³Ì«á¥Ñ color790 ©ó 2010-10-18 09:22 ½s¿è

¦^´_ 2# GBKEE


    HI~ª©¥D
     ±zµ¹ªº³o­Ó³sµ²¸Ì­±¦³­Óªþ¥[ÀÉ, ¦]¬°Åv­­¤£°÷µLªk¤U¸ü,¥i¥HÀ°¦£±Hµ¹§Ú¶Ü??
      ÁÂÁÂ~

      ¥t¥~et5323ªº¦^©««ç»ò¤£¨£¤F, =.=||| et5323¤j¤j¥i¥H¦A´£¨Ñ¤@¦¸¶Ü?
ªì¾ÇªÌcolor

TOP

¥N码¦bWord¨½运¦æ¡A将Wordªí®æ¤º1¦æ2¦Cªº­È¶Ç¨ìexcelªºA1:
Sub test()
    Dim oExcelApp As Object, oWk As Object
    Dim s
   
    s = ThisDocument.Tables(1).Cell(1, 2)
    Set oExcelApp = CreateObject("EXCEL.APPLICATION")
    With oExcelApp
        .Visible = True
        Set oWk = .workbooks.Add
        oWk.sheets(1).Range("a1") = Mid(s, 1, Len(s) - 2)
    End With
End Sub

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD