vb读取excel单元格数据(vb中读取excel中的数据)

1. vb中读取excel中的数据

你是指利用Excel内置的VBA进行编程还是指用VB编的程序来处理Excel文档或控制Excel？如果是前者，那么你按Alt+F11打开VB界面输入代码即可开始编程。后者则可以把Excel文档或Excel应用程序作为对象进行相应操作。至于具体如何做，那就不是这里一两句话能说清的，甚至一两本书的容量也不一定说得完。

你可以自己查看Excel和VB的相关帮助文档或者到微软的MSDN网站寻求帮助。

2. 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在这里分别是什么变量？

3. vbs读取excel数据

插入一个按钮控件，把下面的代码贴进去，注意你的button的名字替换掉Private Sub CommandButton1_Click()中的CommandButton1Option ExplicitPublic buttonClickCount As IntegerPrivate Sub CommandButton1_Click()buttonClickCount = buttonClickCount + 1Worksheets("Sheet3").Cells(1, 5).value = Worksheets("Sheet1").Cells(buttonClickCount, 1).value'MsgBox (buttonClickCount)End Sub注意每次重新打开excel表格，按钮计数才会重置为零

4. vb向excel写入数据

图片插入方法：

Imports Spire.Xls

Namespace InsertImage

Friend Class Program

Shared Sub Main(ByVal args() As String)

'Create Workbook

Dim workbook As New Workbook()

Dim sheet As Worksheet = workbook.Worksheets(0)

'Insert Image

sheet.Pictures.Add(1, 1, "E:\work\sample.jpg")

'Save and Launch

workbook.SaveToFile("ExcelImage.xlsx", ExcelVersion.Version2010)

System.Diagnostics.Process.Start("ExcelImage.xlsx")

End Sub

End Class

End Namespace

5. vb6读取excel中内容

1、打开Excel 2003或2007或2010或2013完整版版本。

6. vb 获取excel单元格数据

Private Sub Worksheet_Activate()

ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh

ActiveSheet.PivotTables("数据透视表2").PivotCache.Refresh

EndSub

这个是在透视表没有重命名的情况，且有多个透视表的情况下的代码。点击透视表所在Sheet页时触发，当然代码也是写在对应Sheet中的。

7. vb对excel数据进行提取 运用

首先将文件显示做了区分：文件夹名称显示folderlist()，文件名称显示filelist():

Private Function folderlist(pathname As String, treeflag As Integer) 'treeflag:0列表 1树形 2树形展开

'文件夹数和名称

Dim sf As String

sf = Dir(pathname, vbDirectory) '获取第一个目录名

foldernum = 0

Do While sf <> ""

' 跳过当前的目录及上层目录

If sf <> "." And sf <> ".." Then

If (GetAttr(pathname + sf) And vbDirectory) = vbDirectory Then

If treeflag = 0 Then

Text2 = Text2 & sf & vbCrLf ' 如果它是一个目录，将其名称添加到列表

ElseIf treeflag = 1 Then

Text2 = Text2 & Treestr & sf & vbCrLf

ElseIf treeflag = 2 Then '树形展开的时候，需要了解子目录，所以还需进行递归调用

Text2 = Text2 & Treestr & sf & vbCrLf

folderlist pathname + sf, treeflag

filelist pathname + sf, treeflag

End If

foldernum = foldernum + 1 '统计文件夹数目

End If

End If

sf = Dir() ' 查找下一个目录

Loop

If treeflag = 0 Then

If foldernum <> 0 Then

Text2 = Text2 & vbCrLf & "======共有" & foldernum & "个文件夹======" & vbCrLf & vbCrLf

Else

Text2 = Text2 & "======无子目录======" & vbCrLf & vbCrLf

End If

ElseIf foldernum <> 0 Then

Text2 = Text2 & Nullstr & vbCrLf & Nullstr & vbCrLf

End If

End Function

Private Function filelist(pathname As String, treeflag As Integer) '0列表 1树形 2树形展开

'文件数和名称

Dim a As String

a = Dir(pathname & "/*.*")

filenum = 0

Do While a <> ""

If treeflag = 0 Then

Text2 = Text2 & a & vbCrLf

Else

Text2 = Text2 & Treestr & a & vbCrLf

End If

filenum = filenum + 1 '统计文件数目

a = Dir

Loop

If treeflag = 0 Then

If filenum <> 0 Then

Text2 = Text2 & "======共有" & filenum & "个文件======"

Else

Text2 = Text2 & "======无文件信息======"

End If

End If

End Function

8. vb调用excel数据

首先需要知道你要引用的数据在Excel中的位置，然后在VB里面引用Excel，然后打开Excel文件读数据Dim scxls As Excel.ApplicationDim scbook As Excel.WorkbookDim scsheet As Excel.Worksheet‘Set scxls = CreateObject("excel.application")‘Set scbook = scxls.Workbooks.AddSet scbook = scxls.Workbooks.open("c:\1.xls"

)Set scsheet = scbook.Worksheets(1)‘scsheet.Cells(1, 2) = "1111" ’写入数据a=scsheet.Cells(1, 2) '读取数据Set scbook = NothingSet scxls = Nothing‘scxls.Visible = True ’显示Excle数据较多，且有规律可循时，请使用循环语句

9. vb怎么读取excel中的数据

1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。

2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...

3.然后,在表格中绘制出按钮控件,并修改控件名称。

4.接着,鼠标左键单击【查看代码】按钮

5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，并选择字符串类型

6接着，在代码窗口中输入读取单元格的VBA语句

7最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序读取数据，并输出到右边的单元格中，显示出数据了，通过这样的操作，就学会用VBA读取单元格数据了。