vb操作excel数据(vb操作excel表)

1. vb操作excel表

VB操作EXCEL

全面控制 Excel

首先创建 Excel 对象，使用ComObj:

Dim ExcelID as Excel.Application

Set ExcelID as new Excel.Application

1) 显示当前窗口：

ExcelID.Visible := True;

2) 更改 Excel 标题栏：

ExcelID.Caption := \'应用程序调用 Microsoft Excel\';

3) 添加新工作簿：

ExcelID.WorkBooks.Add;

4) 打开已存在的工作簿：

ExcelID.WorkBooks.Open( \'C:\\Excel\\Demo.xls\' );

5) 设置第2个工作表为活动工作表：

ExcelID.WorkSheets[2].Activate;

或 ExcelID.WorkSheets[ \'Sheet2\' ].Activate;

6) 给单元格赋值：

ExcelID.Cells[1,4].Value := \'第一行第四列\';

7) 设置指定列的宽度（单位：字符个数），以第一列为例：

ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;

8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：

ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

9) 在第8行之前插入分页符：

ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;

参考代码：ActiveSheet.HPageBreaks(1).Location = Range("A22")

10) 在第8列之前删除分页符：

ExcelID.ActiveSheet.Columns[4].PageBreak := 0;

11) 指定边框线宽度：

ExcelID.ActiveSheet.Range[ \'B3:D4\' ].Borders[2].Weight := 3;

1-左 2-右 3-顶 4-底 5-斜( \\ ) 6-斜( / )

12) 清除第一行第四列单元格公式：

ExcelID.ActiveSheet.Cells[1,4].ClearContents;

13) 设置第一行字体属性：

ExcelID.ActiveSheet.Rows[1].Font.Name := \'隶书\';

ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;

ExcelID.ActiveSheet.Rows[1].Font.Bold := True;

ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;

14) 进行页面设置：

a.页眉：

ExcelID.ActiveSheet.PageSetup.CenterHeader := \'报表演示\';

b.页脚：

ExcelID.ActiveSheet.PageSetup.CenterFooter := \'第&P页\';

c.页眉到顶端边距2cm：

ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;

d.页脚到底端边距3cm：

ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;

e.顶边距2cm：

ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;

f.底边距2cm：

ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;

g.左边距2cm：

ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;

h.右边距2cm：

ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;

i.页面水平居中：

ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;

j.页面垂直居中：

ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;

k.打印单元格网线：

ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;

15) 拷贝操作：

a.拷贝整个工作表：

ExcelID.ActiveSheet.Used.Range.Copy;

b.拷贝指定区域：

ExcelID.ActiveSheet.Range[ \'A1:E2\' ].Copy;

c.从A1位置开始粘贴：

ExcelID.ActiveSheet.Range.[ \'A1\' ].PasteSpecial;

d.从文件尾部开始粘贴：

ExcelID.ActiveSheet.Range.PasteSpecial;

16) 插入一行或一列：

a. ExcelID.ActiveSheet.Rows[2].Insert;

b. ExcelID.ActiveSheet.Columns[1].Insert;

17) 删除一行或一列：

a. ExcelID.ActiveSheet.Rows[2].Delete;

b. ExcelID.ActiveSheet.Columns[1].Delete;

18) 打印预览工作表：

ExcelID.ActiveSheet.PrintPreview;

19) 打印输出工作表：

ExcelID.ActiveSheet.PrintOut;

20) 工作表保存：

If not ExcelID.ActiveWorkBook.Saved then

ExcelID.ActiveSheet.PrintPreview

End if

21) 工作表另存为：

ExcelID.SaveAs( \'C:\\Excel\\Demo1.xls\' );

22) 放弃存盘：

ExcelID.ActiveWorkBook.Saved := True;

23) 关闭工作簿：

ExcelID.WorkBooks.Close;

24) 退出 Excel：

ExcelID.Quit;

25) 设置工作表密码:

ExcelID.ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True

26) EXCEL的显示方式为最大化

ExcelID.Application.WindowState = xlMaximized

27) 工作薄显示方式为最大化

ExcelID.ActiveWindow.WindowState = xlMaximized

28) 设置打开默认工作薄数量

ExcelID.SheetsInNewWorkbook = 3

29) \'关闭时是否提示保存(true 保存；false 不保存)

ExcelID.DisplayAlerts = False

30) 设置拆分窗口,及固定行位置

ExcelID.ActiveWindow.SplitRow = 1

ExcelID.ActiveWindow.FreezePanes = True

31) 设置打印时固定打印内容

ExcelID.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"

32) 设置打印标题

ExcelID.ActiveSheet.PageSetup.PrintTitleColumns = ""

33) 设置显示方式(分页方式显示)

ExcelID.ActiveWindow.View = xlPageBreakPreview

34) 设置显示比例

ExcelID.ActiveWindow.Zoom = 100

35) 让Excel 响应 DDE 请求

Ex.Application.IgnoreRemoteRequests = False

用VB操作EXCEL

Private Sub Command3_Click()

On Error GoTo err1

Dim i As Long

Dim j As Long

Dim objExl As Excel.Application \'声明对象变量

Me.MousePointer = 11 \'改变鼠标样式

Set objExl = New Excel.Application \'初始化对象变量

objExl.SheetsInNewWorkbook = 1 \'将新建的工作薄数量设为1

objExl.Workbooks.Add \'增加一个工作薄

objExl.Sheets(objExl.Sheets.Count).Name = "book1" \'修改工作薄名称

objExl.Sheets.Add , objExl.Sheets("book1") ‘增加第二个工作薄在第一个之后

objExl.Sheets(objExl.Sheets.Count).Name = "book2"

objExl.Sheets.Add , objExl.Sheets("book2") ‘增加第三个工作薄在第二个之后

objExl.Sheets(objExl.Sheets.Count).Name = "book3"

objExl.Sheets("book1").Select \'选中工作薄<book1>

For i = 1 To 50 \'循环写入数据

For j = 1 To 5

If i = 1 Then

objExl.Selection.NumberFormatLocal = "@" \'设置格式为文本

objExl.Cells(i, j) = " E " & i & j

Else

objExl.Cells(i, j) = i & j

End If

Next

Next

objExl.Rows("1:1").Select \'选中第一行

objExl.Selection.Font.Bold = True \'设为粗体

objExl.Selection.Font.Size = 24 \'设置字体大小

objExl.Cells.EntireColumn.AutoFit \'自动调整列宽

objExl.ActiveWindow.SplitRow = 1 \'拆分第一行

objExl.ActiveWindow. SplitColumn = 0 \'拆分列

objExl.ActiveWindow.FreezePanes = True \'固定拆分 objExl.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1" \'设置打印固定行

objExl.ActiveSheet.PageSetup.PrintTitleColumns = "" \'打印标题 objExl.ActiveSheet.PageSetup.RightFooter = "打印时间: " & _

Format(Now, "yyyy年mm月dd日 hh:MM:ss")

objExl.ActiveWindow.View = xlPageBreakPreview \'设置显示方式

objExl.ActiveWindow.Zoom = 100 \'设置显示大小

objExl.ActiveSheet.PageSetup.Orientation = xlLandscape ‘设置打印方向(横向)

\'给工作表加密码

objExl.ActiveSheet.Protect "123", DrawingObjects:=True, _

Contents:=True, Scenarios:=True

objExl.Application.IgnoreRemoteRequests = False

objExl.Visible = True \'使EXCEL可见

objExl.Application.WindowState = xlMaximized \'EXCEL的显示方式为最大化

objExl.ActiveWindow.WindowState = xlMaximized \'工作薄显示方式为最大化

objExl.SheetsInNewWorkbook = 3 \'将默认新工作薄数量改回3个

Set objExl = Nothing \'清除对象

Me.MousePointer = 0 \'修改鼠标

Exit Sub

err1:

objExl.SheetsInNewWorkbook = 3

objExl.DisplayAlerts = False \'关闭时不提示保存

objExl.Quit \'关闭EXCEL

objExl.DisplayAlerts = True \'关闭时提示保存

Set objExl = Nothing

Me.MousePointer = 0

End Sub

2. vb excel如何操作

Dim excel As ObjectSet excel = CreateObject("excel.application") '设定 excel API'--------------这上面可不看 照抄excel.workbooks.Open ("C:\book.xls") 'P.s请先自己创立 'excel 开启excel.Visible = True 'excel 显示 or 隐藏 (True of Falseexcel.cells(1,2)="测试"text1 = excel.cells(1,2) 'text1 读取excel.ActiveWorkbook.Save 'excel 存档excel.quit 'excel 关闭

3. vbs操作Excel

dim xlApp,xlWorkBook,xlSheetdim iRowCount,iLoop,numAddset xlApp = CreateObject(Excel.Application)xlApp.Visible = falseset xlWorkBook = xlApp.Workbooks.Open(c:\data.xls)set xlSheet = xlWorkBook.Sheets(Sheet1)iRowCount = xlSheet.usedRange.Rows.CountFor iLoop = 2 to iRowCountnumAdd=xlSheet.Cells(iLoop,1)+numAddnextxlSheet.Range(e2).value=iLoopFor i=1 to 10xlSheet.range(d & i).value=int(rnd*1000)nextxlApp.cells(9,9)=995xlWorkBook.SavexlWorkBook.ClosexlApp.Quitset xlSheet = Nothingset xlWorkBook = Nothingset xlApp = Nothingmsgbox(numAdd)

追问 : 额，本人新手，变量name和变量mark在这里分别是什么变量？

4. vb处理excel

电脑上新建Excel文件，例如命名为“Excel 工作表”~！！！

双击“Excel 工作表”，打开excel文件~！！！

键盘上按下Alt+F11，即可弹出VB的编程界面

VB编程界面的上方就是工具栏，和一般工具栏分布一样

VB编程界面的左上方就是所有Sheet的列表

VB编程界面的左下方就是某一Sheet的详细信息

VB编程界面的正中间就是编程的主要区域

5. vb调用excel数据

①打开Excel表格，点击【开发工具】、【Visual Basic】调出VBE编辑器，或者使用【Alt+F11】组合键调出VBE编辑器。

②在Sheet1的代码框里边输入以下VBA程序，再按【F5】键运行程序。

Sub Do_Events()

Dim n

On Error Resume Next '忽略运行过程中可能出现的错误

n = 10000000 '执行的循环四次

For i = 1 To n

Application.StatusBar = "已完成：" & Round(i * 100 / n, 2) & "%"

'将结果在Excel状态栏上面显示

Next

End Sub

③回到Excel表格界面，工作表无法进行操作。

④在Sheet1代码框的For……Next循环里面加入“DoEvents”语句，再按下【F5】键运行程序。

⑤回到Excel表格界面，工作表在VBA程序运行时可以进行操作。

注意事项：转让控制权“DoEvents”需要放置在For……Next循环里面才有效。

6. 用vb操作excel

Set xlApp = CreateObject("Excel.Application") '创建excel应用程序,打开excel2003 Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打开已经存在的EXCEL工件簿文件 Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 for n=1 to 行数 for m=1 to 例数 msgbox xlSheet.Cells.Item(n, m) '注意：我只是告诉你一个循环把你要的内容都读出来，你要拿我的程序去运行会弹死你的 next next

7. vb6操作excel

Private Sub Command1_Click() Dim Xlbook As Workbook Dim Xlapp As Application Dim Xlsheet As Worksheet Set Xlapp = CreateObject("Excel.Application") '隐藏方式打开excel Set Xlbook = Xlapp.Workbooks.Open("D:\123.xls") '打开工作簿 Set Xlsheet = Xlbook.Worksheets(1) '让xlsheet代表第一个表 Print Xlsheet.Range("A1") '取数据什么的跟VBA一样的。 Xlbook.Close False '关闭工作簿 不保存 Set Xlapp = Nothing '释放 Set Xlbook = NothingEnd Sub

8. VB Excel

打开“工具-宏-visual Basic编辑器”，在工程窗口右键点“查看代码”，然后就可以删除程序，如果要删除窗体，就在相应窗体上右键点“移除窗体”。