Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB¶ÁÈ¡WORD±íµ¥ÔªÄÚÎÊÌâ

·Ç³£¹îÒì°¡,ÈöÁËÅÝÄò»ØÀ´,֮ǰ»¹ÄܶÁÈ¡µÄ¾Í²»ÐÐ,ÄÄÀï´íÁË?
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

txtIn.Text = ""
    With cdgImput
        .DialogTitle = "µ¼³öÎļþ·¾¶"
        .Filter = "µ¼³öÎļþ(*.doc)|*.doc|ËùÓÐÎļþ(*.*)|*.*"
        .ShowOpen
        txtIn.Text = .FileName
        strFileName = .FileTitle
    End With

Set WordApp = CreateObject("Word.Application")
Set WordDoc = Documents.Open(txtIn.Text)
WordApp.Visible = True
WordDoc.Activate

With Selection.Tables(1)'ÔËÐе½ÕâÀï´íÎó
    MsgBox .Cell(2, 1).Range.Text
End With
¼¯ºÏËùÒªÇóµÄ³ÉÔ±²»´æÔÚ,¿ÉÊDZíÃ÷Ã÷¾ÍÔڵ쬏ղݹÄܶÁ,û¶Ô±í×öÈÎºÎÆäËû²Ù×÷

ÊÇ·ñÓÐÆäËû´ò¿ª»òʹÓã¿

Ò²¿ÉÄÜϵͳ²»ÎÈ£¬ÖØÆô¿ÉÄܾͺÃÁË

ÊDz»ÊÇword¿ª×Å?

ÖØÆô¹ý¶à´Î£¬ÆäËûWORDҲû¿ª×Å£¬ÊµÔÚÊǸ㲻¶®

ÎÒ²âÊÔÁË£¬ÄãûÓÐÔÚwordÎļþÖÐÑ¡ÖÐ±íµ¼Öµģ¬Ñ¡ÖоͲ»»áÌáʾ

ÎÊÌâ³öÔÚ£ºWith Selection.Tables(1)
Æäʵ£¬²Ù×÷WORDÎÞÐèÒýÓöÔÏó£¬Ö±½Ó²Î¿¼ÒÔÏ´úÂë¼´¿É£º
Dim wd As Object
Set wd = GetObject("d:\xx.doc")
ÔÙͨ¹ýwd.tables(1)²Ù×÷±í¡£



ÈçÐèÒªÔĶÁ¸Ã»Ø¸´£¬ÇëµÇ¼»ò×¢²áCSDN!




Ïà¹ØÎÊ´ð£º

asp.net(vb)ÎÊÌâ

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

VB ×Ö·ûÎÊÌâ

  TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
   

´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ  TF1.text = & ......

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ