VB 連線EXCEL後的程序問題 追30等答案

2025-01-13 12:45:05 字數 2458 閱讀 4643

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 ...