-
在“工程”的“參考”中,選擇“Microsoft Excel”"microsoft excel "這取決於版本。
dim xlbook as new
dim xlsheet as new
private sub command1_click()on error resume next
後台程序執行 excel 程式並獲取工作簿。
set xlbook = "f:\")
false 獲取工作簿的“Sheet1”表。
set xlsheet = "sheet1") 提取 B2 網格的資料並為其賦值。
b2"釋放資源,以便完成桌上書應用程式。
set xlsheet = nothingset xlbook = nothing
end sub
-
在專案中新增對 Microsoft Excel 物件庫的引用,以宣告應用程式工作簿工作表物件的物件變數。
dim xlbook as
dim xlsheet as
set xlbook=
set xlsheet=
將文字框中的值分配給 Microsoft Excel 單元格 1)。value=
1).value=
使用公式方法 1) 在 Microsoft Excel 中新增值。formula="=r1c1+r2c1"
1)儲存工作表。
c:\"關閉工作表。
關閉 Microsoft Excel
set xlsheet=onthing
-
呵呵,太簡單了,方法也多。 下面是最簡單的示例:
1.直接在VB中生成物件,可以隱藏並開啟或顯示。
2. 然後通過這個Excel物件,開啟對應的文件或者獲取需要計算的對應資料, 3.在Excel中呼叫VBA進行計算;
4. 在Excel中顯示計算結果。
給你一段我的**,**在excel200 xp 2003下工作正常,2003年之後,我還沒有嘗試過,但理論上應該沒有問題。
在下面的示例中,將啟動 Excel 例項。
public sub exc()
dim exc
set exc = createobject("")
在上一句話中,啟動了乙個 excel 物件。
open "G:了解 Excel 資料的 VBA 檔案。 xls")
在上一句中,使用 Excel 子物件 Workbooks 的 open 方法開啟 G 驅動器上的 XLS 檔案。
true 在上一句中,則顯示此物件。 如果要在沒有人知道的情況下在後台執行,請設定為 false
在這一部分,你可以把**的計算和其他你想執行的操作,如果你剛才用了false,也就是讓程式在後台執行計算,那麼在計算完成後,你可以再次=true來顯示計算的結果。
set exc = nothing
在上一句中,關閉 Excel
或者你可以用它來關閉excel
end sub
但是,當上面的**實際使用時,有乙個很大的麻煩:如果使用者在執行vb生成的程式之前已經啟動了excel,那麼上面的**會生成乙個excel物件,這在實際操作中很容易出現問題,所以你也可以這樣處理:
public sub exc()
0 on error resume next '忽略錯誤。
if <>0 then '如果 excel 未執行。
end if
清除發生錯誤的 err 物件。
on error goto 0 '退出正常的錯誤過程。
下面介紹如何操作此 excel 物件以實現您的目標。
end sub
至於excel開始後怎麼計算,因為房東你沒有舉例,不知道你想做什麼樣的計算,所以不能給你**。 但是,對於通常的計算,您可以在Excel中手動操作計算步驟,同時使用“錄製巨集”功能來記錄計算過程,然後檢視巨集,就可以得到您想要的。 再改動一下,中間可以複製到上面的**可以正常使用。。。
呵呵,收工吧
-
例如,VBA 就是這樣做的。