一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

ASP读取WORD文档中表格数据

时间:2010-06-13 编辑:简简单单 来源:一聚教程网


word文档中有一table,有如下表格
----------------

|序号 | 名称 |
----------------
| 1   | aa     |
----------------
| 2 |   bb    |
------------------


我要获取名称的值{也就是aa,bb},我用宏来摸索ASP程序,但以下ASP程序报"Set Mysel =

ListWord.Application.Selection"缺少对象?后续程序也不知道正确与否?
<%
   Set ListWord = Server.CreateObject("Word.Application")
   ListWord.Documents.Add Server.MapPath("weihu/importfile")&"wwww.doc", , , True
   ListWord.Visible = True
   Set Mysel = ListWord.Application.Selection
   Mysel.Find.ClearFormatting
   Mysel.Find.Replacement.ClearFormatting
   Mysel.Find.Text = "序号"
    With ThisDocument.Tables(1)
 For I = 1 To .Columns.Count
    If InStr(1, .Cell(1, I), "序号") > 0 Then
     r = I
     Exit For
    End If
 Next
 MsgBox r
End With
   ListWord.Quit
   Set ListWord = Nothing
%>

方法二

<%
response.ContentType= "application/x-msword "

Const   adTypeBinary   =   1
Dim   strFilePath

strFilePath   =   "c:mainmenu.doc "

Set   objStream   =   Server.CreateObject( "ADODB.Stream ")
objStream.Open
objStream.Type   =   adTypeBinary
objStream.LoadFromFile   strFilePath

Response.BinaryWrite   objStream.Read

objStream.Close
Set   objStream   =   Nothing
%>

 

热门栏目