Dim appExcel As Object
Dim wbkName As Object
Dim shtName As Object
Dim strSavePath As String
Dim strRead as string
'Create the Excel file
10 Set appExcel = CreateObjec("Excel.Application")
20 Set wbkName = appExcel.workbooks.Add
30 Set shtName = wbkName.worksheets(1)
40 wbkName.worksheets(1).Name = "Sheet1"
50 strRead ＝appExcel.Range("A1").Value
60 wbkName.Save
70 appExcel.quit
2,赋值给一个列表框,可以用LIST1.ADDITEM strRead，再赋值给另一个窗体的列表框，用窗体名称.列表框名称.ADDITEM strRead
VB从excel读取数据赋值给一个列表框怎么实现?
1,用VB打开Excel，如 Dim appExcel As Object Dim wbkName As Object Dim shtName As Object Dim strSavePath As String Dim strRead as string 'Create the Excel file 10 Set appExcel = CreateObjec("Excel.Application")20 Set wbkName = appExcel.workbooks.Add 30 Set shtName = wbkName...
vb2010 怎么把excel中数据读取到listbox
vb读取Excel表格F列信息。判断出当中最新的日期，忽略掉时间，最后只要一个最新日期。显示到textbox1.text中。如2012\/6\/20。注意，是vb2010的。谢谢。好了加分
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数据并存入数组?
读写EXCEL表： \\x0d\\x0a1、在工程中引用Microsoft Excel类型库： \\x0d\\x0a\\x0d\\x0a从"工程"菜单中选择"引用"栏；选择Microsoft Excel 12.0 Object Library（EXCEL2007），然后选择"确定"。表示在工程中要引用EXCEL类型库。 \\x0d\\x0a\\x0d\\x0a2、在通用对象的声明过程中定义EXCEL对象： ...
vb怎么打开Excel文件并向特定的单元格填写内容excelvb打开文件...
1、在工程中引用Microsoft Excel类型库：从\\"工程\\"菜单中选择\\"引用\\"栏;选择MicrosoftExcel 9.0 Object Library(EXCEL2000)，然后选择\\"确定\\"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp AsExcel.Application Dim xlBook As Excel.WorkBook Dim xlSheet ...
各位如何EXCEL中的内容导入VB的列表框呀,具体代码是什么?
如果你将sheets(1）工作表A1：A5中的内容倒入VB的列表框中，可按如下代码操作，不知当否。For i = 1 To 5 ListBox1.AddItem Sheets(1).Cells(i, 1).Value Next i 另外一种方法是在在列表框的RowSource属性值设置为SHEET1！A1：A5，
vb如何提取多个Excel文件中某个表格的某列数据到一个Excel表格里,如图...
在工作表标签上击右键，查看代码。在VBE窗口中，点“插入”，模块。将以下代码粘贴到模块代码窗格中，ALT+F8运行该宏，就行了。附件中有样本。Sub 数据提取()For i = 2 To Worksheets.CountSheets(1).Cells(Sheets(1).[a65536].End(3).Row + 1, 1) = Sheets(i).[D3]Sheets(1).Cells(...
vb怎样读取excel中指定单元格内容并显示vb怎样读取excel中指定单元格...
1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮 5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，...
用VB如何读取excel表格里的内容,并且表格中的数据赋值给数组
检查窗体上有没有名为Command1的按钮，名字必须为Command1。另外，看有没有引用OFFICE类
VB中如何让Excel中的数值赋值给text文本框
Dim myDatamyData=newsheet.Range("A1")这样吧单元格A1的值保存在变量myData中，你要再赋值到哪里都可以。
