Dim oexcel, oworkbooks, newbook, newsheet, s As String
Set oexcel = CreateObject("Excel.application")
Set oworkbooks = oexcel.workbooks
Set newbook = oworkbooks.open("c:\Allsales.xls")
Set newsheet = newbook.worksheets(1)
s = newsheet.cells(1, 1)
MsgBox s
newbook.Close
oexcel.quit
end sub本回答被提问者采纳
如何用VB 来读取EXCEL表中的数据,并用循环语句读出表中的一列数据
Private Sub Form_Load()Dim oexcel, oworkbooks, newbook, newsheet, s As String Set oexcel = CreateObject("Excel.application")Set oworkbooks = oexcel.workbooks Set newbook = oworkbooks.open("c:\\Allsales.xls")Set newsheet = newbook.worksheets(1)s = newsheet.cells(1, 1)MsgB...
请问如何用vb提取excel表格中的数据请问如何用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.Workbo...
如何在vb中读取Excel中的数据?
1、首先，在Excel表格中输入如图内容，以方便在VBA中进行读取和处理操作。2、进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。3、接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。...
vb数据写入excel,请问如何用vb提取excel表格中的数据有一ex
1.选择”开发工具“选项卡，点击”Visual Basic“（或者用快捷键Alt+F11）2.出现VBA编辑界面，注意看左侧，选择需要运行代码的工作表，此例为Sheet1；双击进入Sheet1相关程序编辑界面 3.在程序编辑区域，复制上上述代码 4.点击上面的三角号，运行程序 5.关闭VBA界面，返回工作表，就可以看到程序运行结果...
请教请问如何用vb提取excel表格中的数据
首先需要知道你要引用的数据在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 = sc...
vb中怎么读取excel中的所有有效内容,并获取有效行列数,之后将excel中...
Set ExcelSheet = ExcelBook.Worksheets(1)’现在就可以利用将excelsheet来读取所选的excel的行和列了。具体为：设置一个变量 dim k as integer，写一个循环以k=1到k=1000（假如你有1000行数据）比如我们读取b1-b1000的值那么就用text1.text=ExcelSheet.Range("b" & k).Value,然后在后面写一个...
vb怎样读取excel中指定单元格内容并显示vb怎样读取excel中指定单元格...
1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮 5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，...
怎样用VB读取Excel文件中表格中的数据?
2、 VB读写EXCEL表：VB本身提自动化功能可以读写EXCEL表，其方法如下：第一步：在工程中引用Microsoft Excel类型库：从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。第二步：在通用对象的声明过程中定义EXCEL对象...
VB如何实现循环读取excel特定行列数据
建一个CommandButton1，代码如下。=== Private Sub CommandButton1_Click()Dim a(1 To 100) As String, i As Integer For i = 1 To 100 '循环读取A1～A100 a(i) = Cells(i, 1).Text Next End Sub
如何用VB制作简单的查询程序,查询EXCEL表格中的内容并显示出结果
Set xlBook = xlApp.Workbooks.Open(App.Path + "\\" & ss) '打开EXCEL工作簿 Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表 xlsheet.Activate '激活工作表 '---正式统计数量 Text1.Text = xlsheet.UsedRange.Cells.Rows.Count sun = xlsheet.UsedRange.Cells.Rows.Count For i = ...
