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!
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......