vb中怎么读取excel中的所有有效内容，并获取有效行列数，之后将excel中的全部内容显示到grid中
选择excel文件时能否编写个界面，有下拉菜单选择的那种，谢谢各位高手帮助啦，能否将代码发到我qq:532482705,万分感谢，急！！！
Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象
Set ExcelBook = ExcelApp.Workbooks.Open(File1.Path & "\" & File1) '（打开excel文件，这里的file1.path&"\"&file1 指的就是下拉菜单的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,然后在后面写一个延时句子，延迟1-2秒，然后完成一个循环，就可以看到text1中的值一直在变化而且是从B1到B1000的值
现在算是吧值取出来了，至于怎么附到grid里应该很容易，自己看着来吧……，希望能多加点分^-^
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表格中的数据和...
首先需要知道你要引用的数据在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 = s...
VB如何读出excel中有多少条记录,也就是有多少行,用代码写出来,最好有...
'首先通过VB的菜单[工程] -- [引用]，勾选：Microsoft Excel xx.0 Object Library '其中xx.0是要看你计算机安装的OFFICE版本而定 Private Sub Command1_Click()Dim xlsApp As Excel.Application '声明Excel对象变量 Dim xlsBook As Excel.Workbook '声明工作簿对象变量 Dim xlsSheet As Exc...
vb6中ole excel如何设定行数和列数,怎样用语句删除ole中全部数据呢
首先你建立一个excel对象 Dim excelApp As Object Set excelApp = CreateObject("Excel.APPLICATION")然后你可以象操作在vba一样操作excel，只是在所有对象前加定义的excelapp；比如：新增一个工作表命令是 excelapp.workbooks.add 打开一个工作表命令是 excelapp.workbooks.open filename:= xxx 获得excel...
如何用VB制作简单的查询程序,查询EXCEL表格中的内容并显示出结果
Private Sub Initial(ss As String)Dim i, j As Integer Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类 'xlApp.Visible = True '设置EXCEL可见 'Set xlBook = xlApp.Workbooks.Open(App.Path + "\\" & "106-33-LCDTest-20130202.csv") '打开EXCEL工作簿 Set xlBook = ...
如何在vb中读取Excel中的数据?
1、首先，在Excel表格中输入如图内容，以方便在VBA中进行读取和处理操作。2、进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。3、接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。...
vb怎样读取excel中指定单元格内容并显示vb怎样读取excel中指定单元格...
1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮 5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，...
如何用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表格中的数据
首先需要知道你要引用的数据在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...
VBA编程怎么设定并得到Excel数据菜单下:有效性->设置,然后点允许序列下...
按你的要求录制一个宏（注意选择适当位置停止录制），然后打开VB编辑器就可以查看该宏的代码了。打开方法如下：点"工具"->"宏"->"宏"，找到你录制的宏名，点"编辑"即可进入VB编辑器。
