<1> : 資料夾建立:
set fso = createobject("scripting.filesystemobject")
if (fso.folderexists(資料夾全路徑名)) then
'存在else
'不存在,則建立資料夾
set f = fso.createfolder(資料夾全路徑名)
endif
<2> : 判斷檔案是否存在:
set fso = createobject("scripting.filesystemobject")
if fso.fileexists(全路徑檔名) then
'存在else
'不存在
endif
<3> : 具體參考 :
<4> : 開始excel操作:
VB操作excel檔案
1 資料夾建立 set fso createobject scripting.filesystemobject if fso.folderexists 資料夾全路徑名 then 存在else 不存在,則建立資料夾 set f fso.createfolder 資料夾全路徑名 endif 2 判斷檔案...
VB連線Excel檔案
選單 工程 引用 microsoft activex data objects 2.x 找乙個高版本的 private subcommand2 click dimconn asnew adodb.connection dimrs asnew adodb.recordset conn.open pro...
用VB操作Excel的方法
1 定義excel 操作變數 dim objexcelfile as excel dim objworkbook as excel workbook dim objimportsheet as excel worksheet 2 開啟excel 程序,並開啟目標excel 檔案set objexce...