vb中對excel編程操作實例

❶ 使用vb編程對excel進行讀寫運算

在VB6中，添加引用「Microsoft Excel object Library」
過程中加入下列代碼，就能讀寫EXCEL單元格了：
Set FileSys = CreateObject("scripting.filesystemobject")
Set xlApp = CreateObject("Excel.Application") '創建EXCEL應用類
xlApp.Visible = False '設置Excel不可見
Set xlBook = xlApp.Workbooks.Open(App.Path & "\temp.xls") '打開Excel工作簿 temp.xls
Set xlsheet = xlBook.Worksheets(1) '打開Excel工作表(Sheet1)
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "日期"
xlsheet.Cells(1, 2) = "時間"
程序結束時要用以下代碼關閉EXCEL：
xlBook.RunAutoMacros (xlAutoClose) '執行EXCEL關閉宏
xlBook.Close (True) '關閉EXCEL工作簿
xlApp.Quit '關閉EXCEL
Set xlApp = Nothing '釋放EXCEL對象

❷ 如何通過VB操作EXCEL

Private Sub Command1_Click()
If ZID(Text1) = 0 Then
MsgBox "對不起，沒找到您輸入的ID！"
Else
Set xlApp = CreateObject("Excel.Application") '創建EXCEL對象
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open("D:\客戶資料.xls")
Text2 = xlApp.Worksheets("Sheet1").Range("A1").Cells(ZID(Form1.Text1), 2)
Text3 = xlApp.Worksheets("Sheet1").Range("A1").Cells(ZID(Form1.Text1), 3)
'……
End If
On Error Resume Next
xlBook.Close (True)
xlApp.ActiveWorkbook.Close
xlApp.Quit
Set xlApp = Nothing
Shell "taskkill.exe /im Excel.exe /f", vbHide
End Sub
Function ZID(ID As String) As Integer
Dim I As Integer
Set xlApp = CreateObject("Excel.Application") '創建EXCEL對象
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open("D:\學生信息.xlsx")
I = 1
Do
If xlApp.Worksheets("Sheet1").Range("A1").Cells(I, 1) = "" Then
ZID = 0
Exit Function
End If
If xlApp.Worksheets("Sheet1").Range("A1").Cells(I, 1) = Form1.Text1 Then
ZID = I
Exit Do
End If
I = I + 1
Loop
On Error Resume Next
xlBook.Close (True)
xlApp.ActiveWorkbook.Close
xlApp.Quit
Set xlApp = Nothing
End Function
Private Sub Command2_Click()
If ZID(Text1) = 0 Then
MsgBox "對不起，沒找到您輸入的ID！"
Else
Set xlApp = CreateObject("Excel.Application") '創建EXCEL對象
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open("D:\學生信息.xlsx")
Val(Text2) = xlApp.Worksheets("Sheet1").Range("A1").Cells(ZID(Form1.Text1), 2)
Val(Text3) = xlApp.Worksheets("Sheet1").Range("A1").Cells(ZID(Form1.Text1), 3)
'……
xlBook.Save
End If

On Error Resume Next
xlBook.Close (True)
xlApp.ActiveWorkbook.Close
xlApp.Quit
Set xlApp = Nothing
Shell "taskkill.exe /im Excel.exe /f", vbHide
End Sub
請參閱我的博客：http://hi..com/zgmg/blog/item/ab8d2dd1888dbcdf572c84bf.html

❸ vb 操作EXCEL 源代碼 實現功能以下

一、先建立一個窗口
1、新建一工作表。
2、點擊「工具→宏→Visual Basic編輯器」。
3、點擊「插入→用戶窗體」。
4、在窗體上添加1個「文字框」（用來輸入要搜索的數字）；2個「命令按鈕」（1個為搜索按鈕，1個為刪除按鈕）。

二、編寫代碼
1、搜索A列是不是存在數字框的數字，如下：

Private Sub 搜索_Click()

If TextBox1 = "" Then
MsgBox "請輸入要搜索的數字。"
Exit Sub
End If

Set r = ActiveSheet.Range("A:A").Find(TextBox1)
If r Is Nothing Then
MsgBox "在A列沒有找到要搜索的數字。"
Exit Sub
End If

ActiveSheet.Range(r.Address).Select
MsgBox "在" & r.Address & "發現要搜索的數字「" & TextBox1 & "」，若要刪除此行請點擊「刪除」。"

End Sub

2、搜到的哪一行刪除，如下：

Private Sub 刪除_Click()
Selection.Rows.Delete
End Sub

❹ VB操作EXCEL，在vb界面中對指定的excel文件寫入數據

可以的。
1樓辦法還行，不過要是已經有1萬行了，那就要先循環1萬次在添加數據。
所以，要先獲取最後一行的行數，然後加1，這個就是那個空單元格，就在這個單元格里填寫數據了。

❺ 如何在EXCEL里用VB編程用VB操作，不用公式了

公式和VBA其實各有各的適用情況，當然大部分的情況下公式能完成的VBA都能完成，不過VBA也有缺點，就是需要觸發，很多情況下，由於沒有觸發條件，你需要點擊按鈕或手工運行VBA。而公式的優點就是能自動重算。這個情況在數據刪除時特別明顯，因為VBA對行列或區域刪除不敏感。還有就是VBA會降低Excel應用的安全性，這個也是平時要特別注意的。

❻ vb調用excel方法大全

在VB中要想調用Excel，需要打開VB編程環境「工程」菜單中的「引用」項目，並選取項目中的「Microsoft Excel 11.0 object library」項。由於你的Excel版本不同，所以這個選項的版本號也是不同的。

因為EXCEL是以層次結構組織對象的，其對象模型中含有許多不同的對象元素。
第一層：Application對象，即Excel本身；
第二層：workbooks對象集，指Excel的工作簿文件；

第三層：worksheets對象集，表示的是Excel的一個工作表；

第四層：Cells和Range對象，指向Excel工作表中的單元格。

新建立一個VB的工程，先放一個button，名稱為Excel_Out。先定義好各層：

Dim xlapp As Excel.Application 'Excel對象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表

我們打算做的是：打開/新建一個excel，在其中對某工作表的一些單元格修改其值，然後另存為test.xls文件。

Private Sub Excel_Out_Click()
Dim i, j As Integer
Set xlapp = CreateObject("Excel.Application") '創建EXCEL對象
'Set xlbook = xlapp.Workbooks.Open(App.Path & "\test.xls") '打開已經存在的test.xls工件簿文件
Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件
'xlbook.RunAutoMacros (xlAutoOpen) '運行EXCEL啟動宏
'xlbook.RunAutoMacros (xlAutoClose) '運行EXCEL關閉宏
xlapp.Visible = True '設置EXCEL對象可見（或不可見）
Set xlsheet = xlbook.Worksheets(1) '設置活動工作表''
''~~~當前工作簿的第一頁,這里也可以換成「表名」

'下面就是簡單的在一些單元格內寫入數字
For i = 7 To 15
For j = 1 To 10

xlsheet.Cells(i, j) = j '當前工作簿第一頁的第I行第J列
Next j
Next i

With xlsheet '設置邊框為是實線
.Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous
End With

'引用當前工作簿的第二頁
Set xlsheet = xlapp.Application.Worksheets(2)
xlsheet.Cells(7, 2) = 2008 '在第二頁的第7行第2列寫入2008
xlsheet.SaveAs App.Path & "\test.xls" '按指定文件名存檔
'Set xlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿

xlapp.Quit '結束EXCEL對象'xlapp.Workbooks.Close

Set xlapp = Nothing '釋放xlApp對象

End Sub

這樣，我們就可以簡單的對excel文件進行操作了。下面再放一些我從網上查到的資料吧，還挺有用的：

1．創建Excel對象
eole=CREATEOBJECT(′Excel.application′)
2．添加新工作簿
eole.Workbooks.add
3．設置第3個工作表為激活工作表
eole.Worksheets(〃sheet3〃).Activate
4．打開指定工作簿
eole.Workbooks.Open(〃c:\temp\ll.xls〃)
5．顯示Excel窗口
eole.visible=.t.
6．更改Excel標題欄
eole.Caption=〃VB應用程序調用Microsoft Excel〃
7．給單元格賦值
eole.cells(1,4).value=XM(XM為資料庫欄位名)
8．設置指定列的寬度(單位：字元個數)
eole.ActiveSheet.Columns(1).ColumnWidth=5
9．設置指定行的高度(單位：磅)
eole.ActiveSheet.Rows(1).RowHeight=1/0.035
(設定行高為1厘米，1磅=0.035厘米)
10．在第18行之前插入分頁符
eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1
11．在第4列之前刪除分頁符
eole.ActiveSheet.Columns(4).PageBreak=0
12．指定邊框線寬度(Borders參數如下)
ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3
13．設置四個邊框線條的類型
eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1
(其中Borders參數：1－左、2－右、3－頂、4－底、5－斜、6－斜/；LineStyle值：1與7－細實、2－細虛、4－點虛、9－雙細實線)
14．設置頁眉
eole.ActiveSheet.PageSetup.CenterHeader=〃報表1〃
15．設置頁腳
eole.ActiveSheet.PageSetup.CenterFooter=〃第＆P頁〃
16．設置頁眉到頂端邊距為2厘米
eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035
17．設置頁腳到底邊距為3厘米
eole.ActiveSheet.PageSetup.FooterMargin=3/0.035
18．設置頂邊距為2厘米
eole.ActiveSheet.PageSetup.TopMargin=2/0.035
19．設置底邊距為4厘米
eole.ActiveSheet.PageSetup.BottomMargin=4/0.035
20．設置左邊距為2厘米
veole.ActiveSheet.PageSetup.LeftMargin=2/0.035
21．設置右邊距為2厘米
eole.ActiveSheet.PageSetup.RightMargin=2/0.035
22．設置頁面水平居中
eole.ActiveSheet.PageSetup.CenterHorizontally=.t.
23．設置頁面垂直居中
eole.ActiveSheet.PageSetup.CenterVertically=.t.
24．設置頁面紙張大小(1－窄行8�5�11 39－寬行14�11)
eole.ActiveSheet.PageSetup.PaperSize=1
25．列印單元格網線
eole.ActiveSheet.PageSetup.PrintGridlines=.t.
26．拷貝整個工作表
eole.ActiveSheet.UsedRange.Copy
27．拷貝指定區域
eole.ActiveSheet.Range(〃A1:E2〃).Copy
28．粘貼
eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial
29．在第2行之前插入一行
eole.ActiveSheet.Rows(2).Insert
30．在第2列之前插入一列
eole.ActiveSheet.Columns(2).Insert
31．設置字體
eole.ActiveSheet.Cells(2,1).Font.Name=〃黑體〃
32．設置字體大小
eole.ActiveSheet.Cells(1,1).Font.Size=25
33．設置字體為斜體
eole.ActiveSheet.Cells(1,1).Font.Italic=.t.
34．設置整列字體為粗體
eole.ActiveSheet.Columns(1).Font.Bold=.t.
35．清除單元格公式
eole.ActiveSheet.Cells(1,4).ClearContents
36．列印預覽工作表
eole.ActiveSheet.PrintPreview
37．列印輸出工作表
eole.ActiveSheet.PrintOut
38．工作表另存為
eole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃)
39．放棄存檔
eole.ActiveWorkbook.saved=.t.
40．關閉工作簿
eole.Workbooks.close
41．退出Excel
eole.quit

❼ 用VB在excel中編程

打開開發工具窗口，然後新建一個模塊就可以寫vb代碼了
或者按住alt+F11就打開vba編輯窗口了。

❽ 怎樣利用Excel進行VB編程

ConstC1=10'連續數調整值
ConstC2=15'非連續數調整值
ConstS=10'設定連續范圍
Subprocess()
Dima,i!,j!,d!,n
Range("A1").Sortkey1:=Range("A1"),order1:=xlAscending
a=WorksheetFunction.Transpose(Range("A1:A"&[A65536].End(xlUp).Row))
Fori=1ToUBound(a)
d=a(i)+S
Forj=iToUBound(a)
Ifj+1>UBound(a)ThenExitFor
Ifa(j+1)>dThenExitFor
Next
Ifi=jThen'非連續數
a(i)=a(i)-C2
Else'連續數
n=a(i)-C1
Fork=iToj
a(k)=n
Next
i=j
EndIf
Next
Range("B1").Resize(UBound(a))=WorksheetFunction.Transpose(a)
EndSub

❾ vb如何調用excel函數

1. 單元格地址，在VBA公式中，應該用：range("f1:f400")例：=sum(f1:f400)寫成 =application.sum(range("f1:f400")) worksheetfunction是可以省略的。

   初學時不省最好，因為有些函數在VBA中是不可用的，不省它，就會提示你有哪些函數可用。

   offset是表示區域的。

   在VBA寫公式的時候，可以用resize來代替另：以上功能，建議不要用工作表公式來寫。

2. 在VB中要想調用Excel，需要打開VB編程環境「工程」菜單中的「引用」項目，並選取項目中的「Microsoft Excel 11.0 object library」項。由於你的Excel版本不同，所以這個選項的版本號也是不同的。

3. 因為EXCEL是以層次結構組織對象的，其對象模型中含有許多不同的對象元素。

第一層：Application對象，即Excel本身；

第二層：workbooks對象集，指Excel的工作簿文件

第三層：worksheets對象集，表示的是Excel的一個工作表；

第四層：Cells和Range對象，指向Excel工作表中的單元格。

新建立一個VB的工程，先放一個button，名稱為Excel_Out。先定義好各層：

Dim xlapp As Excel.Application 'Excel對象

Dim xlbook As Excel.Workbook '工作簿

Dim xlsheet As Excel.Worksheet '工作表

4. 我們打算做的是：打開/新建一個excel，在其中對某工作表的一些單元格修改其值，然後另存為test.xls文件。

Private Sub Excel_Out_Click()

Dim i, j As Integer

Set xlapp = CreateObject("Excel.Application") '創建EXCEL對象

'Set xlbook = xlapp.Workbooks.Open(App.Path & " est.xls") '打開已經存在的test.xls工件簿文件

Set xlbook = xlapp.Workbooks.Add '新建EXCEL工件簿文件

'xlbook.RunAutoMacros (xlAutoOpen) '運行EXCEL啟動宏

'xlbook.RunAutoMacros (xlAutoClose) '運行EXCEL關閉宏

xlapp.Visible = True '設置EXCEL對象可見（或不可見）

Set xlsheet = xlbook.Worksheets(1) '設置活動工作表''

''~~~當前工作簿的第一頁,這里也可以換成「表名」

'下面就是簡單的在一些單元格內寫入數字

For i = 7 To 15

For j = 1 To 10

xlsheet.Cells(i, j) = j '當前工作簿第一頁的第I行第J列

Next j

Next i

With xlsheet '設置邊框為是實線

.Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous

End With

'引用當前工作簿的第二頁

Set xlsheet = xlapp.Application.Worksheets(2)

xlsheet.Cells(7, 2) = 2008 '在第二頁的第7行第2列寫入2008

xlsheet.SaveAs App.Path & " est.xls" '按指定文件名存檔

'Set xlbook = xlapp.Application.Workbooks.Add '新建一空白工作簿

xlapp.Quit '結束EXCEL對象'xlapp.Workbooks.Close

Set xlapp = Nothing '釋放xlApp對象

End Sub

5， 這樣，我們就可以簡單的對excel文件進行操作了。下面再放一些我從網上查到的資料吧，還挺有用的：

1．創建Excel對象

eole=CREATEOBJECT(′Excel.application′)

2．添加新工作簿

eole.Workbooks.add

3．設置第3個工作表為激活工作表

eole.Worksheets(〃sheet3〃).Activate

4．打開指定工作簿

eole.Workbooks.Open(〃c: empll.xls〃)

5．顯示Excel窗口

eole.visible=.t.

6．更改Excel標題欄

eole.Caption=〃VB應用程序調用Microsoft Excel〃

7．給單元格賦值

eole.cells(1,4).value=XM(XM為資料庫欄位名)

8．設置指定列的寬度(單位：字元個數)

eole.ActiveSheet.Columns(1).ColumnWidth=5

9．設置指定行的高度(單位：磅)

eole.ActiveSheet.Rows(1).RowHeight=1/0.035

(設定行高為1厘米，1磅=0.035厘米)

10．在第18行之前插入分頁符

eole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1

11．在第4列之前刪除分頁符

eole.ActiveSheet.Columns(4).PageBreak=0

12．指定邊框線寬度(Borders參數如下)

ole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3

13．設置四個邊框線條的類型

eole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1

(其中Borders參數：1－左、2－右、3－頂、4－底、5－斜、6－斜/；LineStyle值：1與7－細實、2－細虛、4－點虛、9－雙細實線)

14．設置頁眉

eole.ActiveSheet.PageSetup.CenterHeader=〃報表1〃

15．設置頁腳

eole.ActiveSheet.PageSetup.CenterFooter=〃第＆P頁〃

16．設置頁眉到頂端邊距為2厘米

eole.ActiveSheet.PageSetup.HeaderMargin=2/0.035

17．設置頁腳到底邊距為3厘米

eole.ActiveSheet.PageSetup.FooterMargin=3/0.035

18．設置頂邊距為2厘米

eole.ActiveSheet.PageSetup.TopMargin=2/0.035

19．設置底邊距為4厘米

eole.ActiveSheet.PageSetup.BottomMargin=4/0.035

20．設置左邊距為2厘米

veole.ActiveSheet.PageSetup.LeftMargin=2/0.035

21．設置右邊距為2厘米

eole.ActiveSheet.PageSetup.RightMargin=2/0.035

22．設置頁面水平居中

eole.ActiveSheet.PageSetup.CenterHorizontally=.t.

23．設置頁面垂直居中

eole.ActiveSheet.PageSetup.CenterVertically=.t.

24．設置頁面紙張大小(1－窄行8?5?11 39－寬行14?11)

eole.ActiveSheet.PageSetup.PaperSize=1

25．列印單元格網線

eole.ActiveSheet.PageSetup.PrintGridlines=.t.

26．拷貝整個工作表

eole.ActiveSheet.UsedRange.Copy

27．拷貝指定區域

eole.ActiveSheet.Range(〃A1:E2〃).Copy

28．粘貼

eole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial

29．在第2行之前插入一行

eole.ActiveSheet.Rows(2).Insert

30．在第2列之前插入一列

eole.ActiveSheet.Columns(2).Insert

31．設置字體

eole.ActiveSheet.Cells(2,1).Font.Name=〃黑體〃

32．設置字體大小

eole.ActiveSheet.Cells(1,1).Font.Size=25

33．設置字體為斜體

eole.ActiveSheet.Cells(1,1).Font.Italic=.t.

34．設置整列字體為粗體

eole.ActiveSheet.Columns(1).Font.Bold=.t.

35．清除單元格公式

eole.ActiveSheet.Cells(1,4).ClearContents

36．列印預覽工作表

eole.ActiveSheet.PrintPreview

37．列印輸出工作表

eole.ActiveSheet.PrintOut

38．工作表另存為

eole.ActiveWorkbook.SaveAs(〃c: emp22.xls〃)

39．放棄存檔

eole.ActiveWorkbook.saved=.t.

40．關閉工作簿

eole.Workbooks.close

41．退出Excel

eole.quit

❿ vb編寫excel程序

Dim XlApp as New Excel.Application '生成新的Excel實例。這是關鍵的步聚。
新的Excel實例可以不受系統中其他Excel進程的影響。
還有、退出時釋放Excel的Application哦。就是QUIT方法執行後加上設置為Nothing。
修改如下：
Private Sub Commandaa_Click()
Dim xlApp As New Excel.Application
'這下面這個就不要了。需要在工程中引用Excel對象。
'Set xlApp = CreateObject("Excel.Application")
With xlApp
.Workbooks.Open CommonDialog9.FileName
.Workbooks(CommonDialog9.FileTitle).Sheets("輸配系統氣量日報").Cells(1, 1) = "165641649496161654984945"
.Workbooks(CommonDialog9.FileTitle).SaveAs "F:\ddddd.xls"
.Workbooks("ddddd.xls").close
.Quit
End With
MsgBox "您的報表已生成，並放置在F盤下，謝謝使用本軟體", , "友情提示"
set xlApp=nothing

End Sub