请教请问如何用<em>vb</em>提取excel表格中的数据-复制excel vb,vb编辑e

把Excel数据保存为.csv格式，就可以直接用read.csv()读取了；
如果要读取.xls这样的格式，要安装相应的r包才能用。

首先需要知道你要引用的数度据在Excel中的位置，知然后在VB里面引用Excel，

然后打开Excel文件读数据道

Dim scxls As Excel.Application

Dim scbook As Excel.Workbook

Dim scsheet As Excel.Worksheet

‘Set scxls = CreateObject("excel.application")

‘Set scbook = scxls.Workbooks.Add

Set scbook = scxls.Workbooks.open("c:\1.xls")

Set scsheet = scbook.Worksheets(1)

‘scsheet.Cells(1, 2) = "1111"     ’写入数据

a=scsheet.Cells(1, 2)               '读取数据

Set scbook  = Nothing

Set scxls = Nothing

‘scxls.Visible = True    ’显版示Excle

数据较多，且有规律可循时，请使权用循环语句

没有具体的说明，来我只能自己举个例子自己答了：
Sheet1 A列查找数据源值>5的单元格zhidao（假设只有一个），并复制到sheet2中B1单元格。

Dim i As Long
For i = 1 To Sheets("Sheet1").[A65535].End(xlUp).Row
If Sheets("Sheet1").Cells(i,1) > 5 Then
Sheets("Sheet2").Cells(1,2) = Sheets("Sheet1").Cells(i,1)
End If
Next i

Sheets("Sheet1").[A65535].End(xlUp).Row用来获取A列不为空的最大行数。

Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim FileName, SheetName As String
FileName = "d:\test.xls" '要访问的工作簿路径和名称
SheetName = "sheet1" '指定的要访问的工作表名称
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(FileName) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets(SheetName) '设置活动工作表
xlSheet.Range("A2:E14").Copy '复制e799bee5baa6e997aee7ad94e4b893e5b19e362过后做什么？
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub