選單 [工程]-[引用] microsoft activex data objects 2.x (找乙個高版本的)
private
subcommand2_click()
dimconn
asnew
adodb.connection
dimrs
asnew
adodb.recordset
conn.open
"provider=microsoft.jet.oledb.4.0;data source=c:a.xls;extended properties='excel 8.0;hdr=yes;imex=1'
"rs.open
"select * from [sheet1$]
", conn, adopenforwardonly, adlockoptimistic
dowhile
notrs.eof
rs(0
)rs.movenext
loop
rs.close
end sub
hdr和imex一定要配合使用，hdr表示要把第一行作為資料還是作為列名，作為資料用hdr=no,作為列名用hdr=yes；通過imex=1來把混合型作為文字型讀取，避免null值。
VB操作excel檔案
1 資料夾建立 set fso createobject scripting.filesystemobject if fso.folderexists 資料夾全路徑名 then 存在else 不存在,則建立資料夾 set f fso.createfolder 資料夾全路徑名 endif 2 判斷檔案...
VB操作excel檔案
1 資料夾建立 set fso createobject scripting.filesystemobject if fso.folderexists 資料夾全路徑名 then 存在else 不存在,則建立資料夾 set f fso.createfolder 資料夾全路徑名 endif 2 判斷檔案...
實現VB與EXCEL的無縫連線
var status0 6562 var curfontsize 6562 9 var curlineheight 6562 12 減小字型 增大字型 vb是常用的應用軟體開發工具之一，由於vb的報表功能有限，而且一但報 式發生變化，就得相應修改程式，給應用軟體的維護工作帶來極大的不便。因此有 很多...