excel vb编程（vb中怎么读取excel文件）

本文目录

• vb中怎么读取excel文件
• 用VB制作excel表格
• VB编程和EXCEL的函数是否通用 想学习程序，但对VB知之甚少！对EXCEL相对较熟悉；这二种的函数可通用吗
• excel中如何用VB编程分段函数
• excel中使用vb编写宏并使用
• excel里怎么利用vb写出个编程，计算出所选区域单元格中最小数
• 关于excel中VB编程的一个问题请教
• excel中VB编程，如何根据两列的名称，编号
• 怎样利用Excel进行VB编程

vb中怎么读取excel文件

1、调用Excel对象打开EXCEL文件后，读取文件内容\x0d\x0a***************************************\x0d\x0a在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“MicrosoftExcel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。\x0d\x0a \x0d\x0a因为EXCEL是以层次结构组织对象的，其对象模型中含有许多不同的对象元素。\x0d\x0a第一层：Application对象，即Excel本身；\x0d\x0a第二层：workbooks对象集，指Excel的工作簿文件\x0d\x0a第三层：worksheets对象集，表示的是Excel的一个工作表；\x0d\x0a第四层：Cells和Range对象，指向Excel工作表中的单元格。\x0d\x0a新建立一个VB的工程，先放一个button，名称为Excel_Out。先定义好各层：\x0d\x0aDim xlapp As Excel.Application ’Excel对象\x0d\x0aDim xlbook As Excel.Workbook ’工作簿\x0d\x0aDim xlsheet As Excel.Worksheet ’工作表\x0d\x0a我们打算做的是：打开/新建一个excel，在其中对某工作表的一些单元格修改其值，然后另存为test.xls文件。\x0d\x0aPrivate Sub Excel_Out_Click()\x0d\x0a Dimi, j As Integer\x0d\x0a Setxlapp = CreateObject("Excel.Application") ’创建EXCEL对象\x0d\x0a ’Set xlbook = xlapp.Workbooks.Open(App.Path& "\test.xls")’打开已经存在的test.xls工件簿文件\x0d\x0a Setxlbook = xlapp.Workbooks.Add ’新建EXCEL工件簿文件\x0d\x0a ’xlbook.RunAutoMacros (xlAutoOpen) ’运行EXCEL启动宏\x0d\x0a ’xlbook.RunAutoMacros (xlAutoClose) ’运行EXCEL关闭宏\x0d\x0axlapp.Visible = True ’设置EXCEL对象可见（或不可见）\x0d\x0a Setxlsheet = xlbook.Worksheets(1) ’设置活动工作表’
’’~~~当前工作簿的第一页,这里也可以换成“表名”\x0d\x0a \x0d\x0a’下面就是简单的在一些单元格内写入数字\x0d\x0a Fori = 7 To 15\x0d\x0a For j = 1 To 10\x0d\x0axlsheet.Cells(i, j) = j ’当前工作簿第一页的第I行第J列\x0d\x0a Next j\x0d\x0a Nexti\x0d\x0a Withxlsheet ’设置边框为是实线\x0d\x0a .Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous\x0d\x0a EndWith\x0d\x0a ’引用当前工作簿的第二页\x0d\x0a Setxlsheet = xlapp.Application.Worksheets(2)\x0d\x0axlsheet.Cells(7, 2) = 2008 ’在第二页的第7行第2列写入2008\x0d\x0axlsheet.SaveAsApp.Path&"\test.xls" ’按指定文件名存盘\x0d\x0a ’Setxlbook = xlapp.Application.Workbooks.Add ’新建一空白工作簿\x0d\x0axlapp.Quit ’结束EXCEL对象’xlapp.Workbooks.Close\x0d\x0a Setxlapp = Nothing ’释放xlApp对象\x0d\x0aEnd Sub\x0d\x0a这样，我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料吧，还挺有用的：\x0d\x0a 1．创建Excel对象\x0d\x0aeole=CREATEOBJECT(′Excel.application′) \x0d\x0a 2．添加新工作簿\x0d\x0aeole.Workbooks.add\x0d\x0a 3．设置第3个工作表为激活工作表\x0d\x0aeole.Worksheets(〃sheet3〃).Activate \x0d\x0a 4．打开指定工作簿\x0d\x0aeole.Workbooks.Open(〃c:\temp\ll.xls〃) \x0d\x0a 5．显示Excel窗口\x0d\x0aeole.visible=.t. \x0d\x0a 6．更改Excel标题栏\x0d\x0aeole.Caption=〃VB应用程序调用Microsoft Excel〃\x0d\x0a 7．给单元格赋值\x0d\x0aeole.cells(1,4).value=XM(XM为数据库字段名) \x0d\x0a 8．设置指定列的宽度(单位：字符个数) \x0d\x0aeole.ActiveSheet.Columns(1).ColumnWidth=5 \x0d\x0a 9．设置指定行的高度(单位：磅) \x0d\x0aeole.ActiveSheet.Rows(1).RowHeight=1/0.035 \x0d\x0a (设定行高为1厘米，1磅=0.035厘米) \x0d\x0a 10．在第18行之前插入分页符\x0d\x0aeole.Worksheets(〃Sheet1〃).Rows(18).PageBreak=1 \x0d\x0a 11．在第4列之前删除分页符\x0d\x0aeole.ActiveSheet.Columns(4).PageBreak=0 \x0d\x0a 12．指定边框线宽度(Borders参数如下) \x0d\x0aole.ActiveSheet.Range(〃b3:d3〃).Borders(2).Weight=3 \x0d\x0a 13．设置四个边框线条的类型\x0d\x0aeole.ActiveSheet.Range(〃b3:d3〃).Borders(2).LineStyle=1 \x0d\x0a (其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚、4－点虚、9－双细实线) \x0d\x0a 14．设置页眉\x0d\x0aeole.ActiveSheet.PageSetup.CenterHeader=〃报表1〃\x0d\x0a 15．设置页脚\x0d\x0aeole.ActiveSheet.PageSetup.CenterFooter=〃第＆P页〃\x0d\x0a 16．设置页眉到顶端边距为2厘米\x0d\x0aeole.ActiveSheet.PageSetup.HeaderMargin=2/0.035 \x0d\x0a 17．设置页脚到底边距为3厘米\x0d\x0aeole.ActiveSheet.PageSetup.FooterMargin=3/0.035 \x0d\x0a 18．设置顶边距为2厘米\x0d\x0aeole.ActiveSheet.PageSetup.TopMargin=2/0.035 \x0d\x0a 19．设置底边距为4厘米\x0d\x0aeole.ActiveSheet.PageSetup.BottomMargin=4/0.035 \x0d\x0a 20．设置左边距为2厘米\x0d\x0aveole.ActiveSheet.PageSetup.LeftMargin=2/0.035 \x0d\x0a 21．设置右边距为2厘米\x0d\x0aeole.ActiveSheet.PageSetup.RightMargin=2/0.035 \x0d\x0a 22．设置页面水平居中\x0d\x0aeole.ActiveSheet.PageSetup.CenterHorizontally=.t. \x0d\x0a 23．设置页面垂直居中\x0d\x0aeole.ActiveSheet.PageSetup.CenterVertically=.t. \x0d\x0a 24．设置页面纸张大小(1－窄行8511 39－宽行1411) \x0d\x0aeole.ActiveSheet.PageSetup.PaperSize=1 \x0d\x0a 25．打印单元格网线\x0d\x0aeole.ActiveSheet.PageSetup.PrintGridlines=.t. \x0d\x0a 26．拷贝整个工作表\x0d\x0aeole.ActiveSheet.UsedRange.Copy\x0d\x0a 27．拷贝指定区域\x0d\x0aeole.ActiveSheet.Range(〃A1:E2〃).Copy \x0d\x0a 28．粘贴\x0d\x0aeole.WorkSheet(〃Sheet2〃).Range(〃A1〃).PasteSpecial\x0d\x0a 29．在第2行之前插入一行\x0d\x0aeole.ActiveSheet.Rows(2).Insert \x0d\x0a 30．在第2列之前插入一列\x0d\x0aeole.ActiveSheet.Columns(2).Insert \x0d\x0a 31．设置字体\x0d\x0aeole.ActiveSheet.Cells(2,1).Font.Name=〃黑体〃\x0d\x0a 32．设置字体大小\x0d\x0aeole.ActiveSheet.Cells(1,1).Font.Size=25 \x0d\x0a 33．设置字体为斜体\x0d\x0aeole.ActiveSheet.Cells(1,1).Font.Italic=.t. \x0d\x0a 34．设置整列字体为粗体\x0d\x0aeole.ActiveSheet.Columns(1).Font.Bold=.t. \x0d\x0a 35．清除单元格公式\x0d\x0aeole.ActiveSheet.Cells(1,4).ClearContents\x0d\x0a 36．打印预览工作表\x0d\x0aeole.ActiveSheet.PrintPreview\x0d\x0a 37．打印输出工作表\x0d\x0aeole.ActiveSheet.PrintOut\x0d\x0a 38．工作表另存为\x0d\x0aeole.ActiveWorkbook.SaveAs(〃c:\temp\22.xls〃) \x0d\x0a 39．放弃存盘\x0d\x0aeole.ActiveWorkbook.saved=.t. \x0d\x0a 40．关闭工作簿\x0d\x0aeole.Workbooks.close\x0d\x0a 41．退出Excel \x0d\x0aeole.quit\x0d\x0a***************************************\x0d\x0a\x0d\x0a2、调用ADO对象以数据库方式打开EXECL文件后，以SQL语句方式读取文件\x0d\x0a***************************************\x0d\x0a Dim rs As ADODB.Recordset\x0d\x0a Set rs = New ADODB.Recordset\x0d\x0a Dim conn As ADODB.Connection\x0d\x0a Set conn = New ADODB.Connection\x0d\x0a conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" DBQ=" & App.Path & ";", "", ""\x0d\x0a rs.Open "select * from ", conn, adOpenStatic, adLockReadOnly, adCmdText\x0d\x0a Set Read_Text_File = rs\x0d\x0a Set rs = Nothing\x0d\x0a Set conn = Nothing\x0d\x0a***************************************

用VB制作excel表格

添加引用 Microsoft Excel 12.0 Object Library (视你的office版本不同有所差异)
然后就可以用这个来编程啦
Dim xlapp As Excel.Application ‘代表excel程序
Dim wkBook As Excel.Workbook ’代表excelworkbook（也就是excel工作簿文件 .xls .xlsx)
Dim wkSheet As Excel.Worksheet ’代表excel的工作页
xlapp.Application.EnableEvents = False ’禁止宏等提示的运行
Set wkBook = xlapp.Workbooks.Open(ExcelFileName)’wkBook对象,把ExcelFileName替换为你的真实文件 比如 app.path & "\" & "百家姓.xls"
Set wkSheet = wkBook.Worksheets(1) ’选中某个sheet用工作页名字(Sheet1,Sheet2...) or 序号

VB编程和EXCEL的函数是否通用 想学习程序，但对VB知之甚少！对EXCEL相对较熟悉；这二种的函数可通用吗

就函数来说却大多数是通用的，excel中直接调用单元格的函数vb不能直接支持（注意我说是“不能直接”，加上引用的可以了），关于控件除了内置的其他可以互相添加引用。
应该说excel不能编译成exe外在基本的应用上还是相同的，当然vb还是相比来说是强大得多（据说excel本身就是用vb写的）

excel中如何用VB编程分段函数

excel表打开，按“alt”+“f11”进入vba状态，点击“工程资源管理器”图标，在“工程资源管理器”窗体内--》鼠标右键--》“插入”-》“模块”；出现“模块1”，点击“属性窗口”图标对“模块1”进行命名；双击命名后的模块名称，在右边的“窗体”内就可以vba代码了。

excel中使用vb编写宏并使用

1.首先打开excel，选择功能区的视图-宏-录制宏

2.然后在弹出框中填写名称及其说明，便于多个宏时进行区分。点击确定。

3.再次点击视图-宏，选择查看宏

4.选择你刚刚添加的宏，点击，就会进入vb器页面

5.在器中编写你想要的功能，（例如截图中的A列第一行填写1，A列第二行填写2），保存并关闭。

6.回到excel界面后，视图-宏-停止录制。这时候宏已经制作完成。

7.和第三布一样，选择视图-宏-查看宏，这时候你刚刚制作完成的宏就显示在第一个，点击执行，就会出现效果（A列第一行填写1，A列第二行填写2）。

完成。
vb的语法请自行搜索，或者留言学习交流~

excel里怎么利用vb写出个编程，计算出所选区域单元格中最小数

Sub 计算()
MsgBox Application.Min(Selection)
End Sub

具体的步骤：

1、打开Excle的vbe。

2、把上述的代码加入的vbe中。

3、返回到Excle的界面，选择单元格区域。单击“宏-计算-执行”

4、结果就会显示

关于excel中VB编程的一个问题请教

第三句语法上怎么能是错的呢？

题主是想说单元格的赋值里本身有引号，但是VB却当成了语句结束吧？

VB中四个双引号连用表示一个双引号字符，

比如 Msgbox """" & "测试" & """" 那么就会输出【"测试"】这个用双引号括起来的字符。

所以其实第三行应该改为：

 Sheet4.Cells(2, 11).Formula = "=IFERROR(IF(F2=" & """" & """" & ",VLOOKUP(D2,粘贴相应数据至此!C:K,6,0),VLOOKUP(F2,粘贴相应数据至此!C:K,6,0))," & """" & """" & ")"

excel中VB编程，如何根据两列的名称，编号

方法一、用公式

 C2=IF(B2《》"",IFERROR(VLOOKUP(B2,$B$1:C1,2,),MAX($C$1:C1)+1),IF(SUMPRODUCT(($B$1:B1="")*($A$1:A1=A2)),MAX(($B$1:B1="")*($A$1:A1=A2)*IF(ISNUMBER($C$1:C1),$C$1:C1,)),MAX($C$1:C1)+1))

数组公式，Ctrl+Shift+Enter结束。下拉

方法二、VBA

先看效果

在本sheet中放入如下代码：（注意：Name1中不能有与Name2同名，否则可能导致排序错误，从你这应该不会有同名）

Sub test()
Dim d, arr, rs, i&, k&, m$, n$, x$
Set d = CreateObject("scripting.dictionary")
arr = .End(3).Row - 1, 2)
rs = .End(3).Row - 1, 1)
k = 1
For i = 1 To UBound(arr)
    m = arr(i, 1)
    n = arr(i, 2)
    x = IIf(n 《》 "", n, m)
    If Not d.exists(x) Then
        d(x) = k
        rs(i, 1) = k
        k = k + 1
    Else
        rs(i, 1) = d.Item(x)
    End If
Next
Set d = Nothing
.End(3).Row - 1, 1) = rs
End Sub

怎样利用Excel进行VB编程

Const C1 = 10 ’连续数调整值
Const C2 = 15 ’非连续数调整值
Const S = 10 ’设定连续范围
Sub process()
Dim a, i!, j!, d!, n
Range("A1").Sort key1:=Range("A1"), order1:=xlAscending
a = WorksheetFunction.Transpose(Range("A1:A" & .End(xlUp).Row))
For i = 1 To UBound(a)
    d = a(i) + S
    For j = i To UBound(a)
        If j + 1 》 UBound(a) Then Exit For
        If a(j + 1) 》 d Then Exit For
    Next
    If i = j Then ’非连续数
        a(i) = a(i) - C2
    Else ’连续数
        n = a(i) - C1
        For k = i To j
            a(k) = n
        Next
        i = j
    End If
Next
Range("B1").Resize(UBound(a)) = WorksheetFunction.Transpose(a)
End Sub

效果如图，可下载附件参考