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读取单元格数据了。
- 相关评论
- 我要评论
-