1樓:魅力味小廚
set xlbook=nothing
set xlsheet=nothing
每次用完後,試一下上面的結束語句,我沒用過,但根據你說的意思,感覺應該是沒有結束原來的引用造成的。
2樓:網友
windows api 函式。
private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long
windows api 函式。
private declare function sendmessage lib "user32" alias "sendmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as long
常數。private const wm_close as long = h10
自定義方法。
public sub funfinishexcel()
dim hwnd as long
dim ret as long
hwnd = findwindow("xlmain", vbnullstring)
if hwnd <>0 then
end if
end sub
vb 殺excel程序
3樓:網友
結束程序 on error resume nextdim ss=""
set objwmiservice =getobject("winmgmts:!oot\cimv2")
set colprocesslist= _"select * from win32_process where name='" & s & "'")
for each objprocess in colprocesslist
msgbox "已發現目標!"
next
4樓:工控十五載
貌似很專業的問題。 。我以為是殺什麼毒的呢。
在excel裡面寫vb程式的問題
5樓:朱仕平
if sheets("sheet1").[c1]if sheets("sheet1").range("c1") 以上兩個是相同的意思,不過第乙個更直觀些,只要修正兩頭的參考單元格就行了。
excel中vb的程式問題
6樓:網友
mb = cells("d7")
mc = cells("d5")
這個錯了。ma = range("c5")這個形式對。
excel中的vb過程執行出錯
7樓:網友
下記是無和基錯的空源**喚虧謹。
private sub worksheet_selectionchange(byval target as range)
if then
0end if
end sub
我要把vb中的資料儲存到excel中去,求過程
8樓:
需要引用 microsoft excel object (excel 2003)
dim ex as object
dim exbook as object
dim exsheet as objectprivate sub commandbutton1_click()set ex = createobject("")set exbook =
set exsheet = "sheet1") //開啟。
for i = 0 to 10
1).value = a(i)
next i //賦值。
d:\") //儲存。
set xlsheet = nothingset xlbook = nothing
set xls = nothing //退出。
end sub
vb程式怎麼在excel中執行?
9樓:越催越不開
是啊,vba寫巨集,選單裡有。
vb 殺掉程序中的excel
10樓:傻傻的瘋豬
儲存結束後加一條。
shell " /c taskkill /f /im "
11樓:dl_會飛的青蛙
寫個錯誤處理!~
如果出錯一樣關閉一樣set nothing
急急急 VB連線SQL問題
是你的連線字串出了問題。你建乙個文字檔案,然後把副檔名改成 udl,比如 新建文字檔案。udl 雙擊開啟,然後選擇你的資料庫,輸入sa 和密碼,記著點上儲存密碼。然後測試,如果測試成功的話,在用記事本開啟這個檔案。裡面最下面就是連線字串了。mssql的使用者名稱和密碼只有在安裝的時候設定。在sql裡...
vb與資料庫連線及顯示的問題
我的程式一部分希望對你有幫助。private sub command click dim s as string s if then 請輸入要查詢的年份!elseif then 請輸入要查詢的月份!elseif s then select from data where date like s en...
關於VB的問題,關於VB模組的問題
not isempty 試下,最好說下報的什麼錯誤。按我理解應該改成如下的 private sub 計算1 click if isnumeric tbis1 and isnumeric tbu1 and isnumeric tbut1 then tbid1 tbis1 exp tbu1 tbut1 ...