|
连接EXCEL有两个方法,一个是通过ADO和EXCEL表相连,那么这种方法是和连接数据库一样的.
Dim conn,input,filename
filename="c:\Order_info.xls" '
Set conn= createobject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&filename&";Extended Properties='Excel 8.0;hdr=yes'"
Set input= createobject("ADODB.Recordset")
input.Open "select * from [input$] " ,conn,2,2
input.close
Set input=nothing
Set conn=Nothing
还有一种是可以通过创建对象来做
Set Excel=CreateObject("Excel.Application")
Set ExcelSheet = CreateObject("Excel.Sheet") |
|