vb編程excel

Ⅰ vb編寫excel程序

結束時，用這句：xlapp.quit set xlapp=nothing set xlbook=nothing set xlsheet=nothing
最近我在做的工程就用到，正好用此方法解決了問題。祝你好運！

Ⅱ VB編程如何打開和關閉EXCEL文件

下面所舉的例子均假設F盤下有一個名為d.txt的文本文件，若需要嘗試這些例子請作相應的改動。

一、用定長的String變數獲取文本內容。由於定長String變數支持的下界為65400,所以在打開超過32K位元組的文件時超出部分的位元組將無法獲取: Private Sub Command1_Cliack() Dim sA As String * 65400 '聲明定長String變數 Open "F:d.txt " For Binary As #1 '用二進制打開文件 Get #1, , sA '用Get語句從文件中獲取位元組 Text1 = sA '顯示打開的文件 Close #1 '關閉文件 End Sub；

二、先聲明一字元串變數，然後用空格填充字元串，使變數大小與文件大小一致，再通過Get語句將文件全部數據存儲到變數中，從而達到獲取整個文件位元組數的目的。

此法可以打開大於32K的文件，但應該注意的是，裝載文件的容器必須能裝載大於32K的文件，下例用RichTextBox控制項顯示打開的文件： Private Sub Command1_Click() Dim sA As String Open "f:d.txt " For Binary As #1 sA = Space(LOF(1)) '用空格填充sA變數 Get #1, , sA '用Get語句獲取文件全部內容 RichTextBox1.Text = sA Close #1 End Sub；

三、用StrConv函數將文件的控制字元串數據和Unicode碼之間進行轉換，從而達到打開文件的目的。可打開任意大小文件。

再給一個簡單例子： Private Sub Command1_Click() Open "f:d.txt " For Input As #1 RichTextBox1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode) Close #1 End Sub；

四、用Shell語句直接調出Windows的記事本，給個文件名即可輕而易舉地打開文本文件。此法適合於打開程序的Readme文件(注意：在可執行文件和要打開的文本文件之間要有空格)： Shell "NotePad.EXE f:d.txt ",vbNormalFucus；

五、用RichTextBox控制項自身的LoadFile屬性打開文件： RichTextBox1.LoadFile "f:d.txt ", rtfText。