Dim wrdApp As Word.Application
Private Sub Command1_Click()
CommonDialog1.InitDir = App.Path
CommonDialog1.DialogTitle = "电子表格"
CommonDialog1.Filter = "电子表格|*.xls"
CommonDialog1.ShowOpen
Label1.Caption = CommonDialog1.FileName
Dim wjm As String
wjm = CommonDialog1.FileName
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(wjm) '打开已经存在的EXCEL工件簿文件
xlApp.Visible = False '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("Sheet1") '设置活动工作表
xlSheet.Activate
Dim i As Integer
For i = 1 To xlSheet.UsedRange.Rows.Count
List1.AddItem (i)
For j = 1 To 5
List1.AddItem (xlSheet.Cells(i, j))
Next
Next
'List1.AddItem (xlSheet.UsedRange.Rows)
'xlSheet.Cells(Row, col) = 值 '给单元格（row,col）赋值
'xlSheet.PrintOut '打印工作表
'xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
'Set xlApp = Nothing '释放xlApp对象
'xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
'xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
End Sub
vb怎么打开Excel文件并向特定的单元格填写内容excelvb打开文件...
从\\"工程\\"菜单中选择\\"引用\\"栏;选择MicrosoftExcel 9.0 Object Library(EXCEL2000)，然后选择\\"确定\\"。表示在工程中要引用EXCEL类型库。2、在通用对象的声明过程中定义EXCEL对象：Dim xlApp AsExcel.Application Dim xlBook As Excel.WorkBook Dim xlSheet AsExcel.Worksheet 3、在程序中操作EXCEL...
VB怎样操作向excel中插入数据(求代码)
Sub 循环插入()For i = 1 To 10 '设定循环次数,从1到10 Cells(i, 1) = i * i '单元格i行1列输入数据i*iNextEnd Sub'此程序运行后是在A1:A10的单元格依次填充1的平方,到10的平方
VB操作excel,给excel录入数据
新建VB的EXE工程，使用如下代码在第一行第一列写入vb操作excel：Option Explicit Dim xlapp As Object Dim xlBook As Object Dim xlSheet As Object Dim A As String Private Sub Command1_Click()Set xlapp = CreateObject("excel.application")xlapp.Visible = True Set xlBook = xlapp.Workbook...
怎么利用VB向指定的EXCEL插入数据;
Rcount) = Ds(1, Rcount) '把数组ds(1,rcount)这个数据写入Excel中，写入的内容其实就是标题“计算结果” For i = 2 To Hcount - 1 '再把数组ds(i,
vb 操作excel, 如何在excel文件中写入值
Private Sub Command1_Click()Dim xlExcel As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim AppExcel As Object Dim str As String str = App.Path & "\\11.xls"Set objExcel = CreateObject("Excel.Application")objExcel.Visible = False '设置excel对象...
如何在VB的Text控件中显示Excel表上的指定内容vb显示excel表格内容
主界面xlsApp.workbooks.Open (\\"D:\\\\1\\\\1.xls\\") '打开D:\\\\1\\\\1.xlsSet xlsWb = xlsApp.workbooks(\\"1.xls\\") '设置xlswb变量引用1.xls 工作簿'MsgBox xlsWb.Name '显示工作薄的名字Set xlsWorksheet = xlsWb.worksheets(1) '设置xlsworksheet变量引用1.xls 工作簿的第一个工作表...
vb怎样读取excel中指定单元格内容并显示vb怎样读取excel中指定单元格...
1.打开一个Excel的文件,在表格中输入简单的表格,比如学生成绩表格。2.接着,鼠标左键单击【开发工具】菜单标签,在VBA控件下拉菜单中,并选择按钮控件,...3.然后,在表格中绘制出按钮控件,并修改控件名称。4.接着,鼠标左键单击【查看代码】按钮 5然后，在代码窗口中输入VBA语句，比如输入定义变量语句，...
excel表格中怎么输入代码
快捷键ALT+F11、工具——宏——VB编辑器、鼠标右键点sheet名——查看代码，代码一般写在模块里，有时候也会写在表里，可以复制。拓展：1、计算机科学里的宏(Macro)，是一种批量处理的称谓。一般说来，宏是一种规则或模式，或称语法替换 ，用于说明某一特定输入(通常是字符串)如何根据预定义的规则转换...
EXCEL中VB查找空白行,然后录入指定数据,怎么实现?
你把你的表格发过来看看吧~要求说清楚。815850733 大致代码如下，要看你具体格式和要求了！x=sheets("sheet2").[A65536].END(3).ROW sheets(‘sheet1“).数据区域.copy sheets("sheet2").cells(x,1)这样即可~
vb编程,如何向excel表格中添加字段?
Application Dim xlbook As Workbook Dim xlsheet as Worksheet Set xlapp = CreateObject("Excel.application")xlapp.DisplayAlerts = False Set xlbook = xlapp.Workbooks.Open(yourfilename)set xlsheet =xlbook.Sheets(yoursheet)...这样你就能很方便的进行Excel工作表的操作了 ...
