2 ohada19950721 ohada19950721 于 2016.01.27 10:52 提问

VB 引用同一根目录下的文件夹的Excel

exe文件跟文件夹的根目录一样,要引用文件夹下面的Excel部分单元格的数据图片说明各位高手帮我解答下,新人的第一条提问 图片说明

1个回答

danielinbiti
danielinbiti   Ds   Rxr 2016.01.27 11:08
已采纳
 '工程-引用-将Microsoft Excel 12.0 Object Library选中,
'工程-部件-将Microsoft Common Dialog Control 6.0选中,
'在窗体上添加一个按钮Command1对象,一个CommonDialog1通用对话框对象


Private Sub Command1_Click()
CommonDialog1.CancelError = True
CommonDialog1.DialogTitle = "指定要接收的Txt文件"
CommonDialog1.Filter = "文本文件(*.xls)|*.xls|所有文件(*.*)|*.*"
CommonDialog1.InitDir = App.Path
CommonDialog1.ShowOpen
Text1 = CommonDialog1.FileName
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open(Text1)
If xlApp.Worksheets("Sheet1").Range("A1").Cells(2, 2) = "" Then
   xlApp.Worksheets("Sheet1").Range("A1").Cells(2, 3) = "B2空"
Else
xlApp.Worksheets("Sheet1").Range("A1").Cells(2, 3) = "B2不空"
End If
MsgBox "所要打开的Excel文件已经打开,下面将关闭"
xlBook.Save
xlApp.Quit
Set xlApp = Nothing
End
End Sub

搜一下就行了
Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!
其他相关推荐
VB中引用Excel属性
1.创建Excel对象   eole=CREATEOBJECT(′Excel.application′)   2.添加新工作簿   eole.Workbooks.add   3.设置第3个工作表为激活工作表   eole.Worksheets(″sheet3″).Activate   4.打开指定工作簿   eole.Workbooks.Op
VB excel VB excel VB excel VB excel VB excel VB excel
VB excel VB excel VB excel VB excel VB excel VB excel
VB连接Excel文件
菜单 [工程]-[引用] Microsoft ActiveX Data Objects 2.x (找一个高版本的) Private Sub Command2_Click()Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordsetconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data 
vb调用excel方法大全
 在VB中要想调用Excel,需要打开VB编程环境“工程”菜单中的“引用”项目,并选取项目中的“Microsoft Excel 11.0 object library”项。由于你的Excel版本不同,所以这个选项的版本号也是不同的。    因为EXCEL是以层次结构组织对象的,其对象模型中含有许多不同的对象元素。    第一层:Application对象,即Excel本身;    第二层:wo
vb与office的数据交互之vb导出Excel
vb与office的数据交互
VB更改EXCEL单元格内容
 更改c:.xls中sheet1 E2内容修改为1020 先点击 工程-引用Microsoft Excel... Private Sub Command1_Click() Dim xlapp As Excel.Application Dim xlbook As Excel.Workbook Dim xlsheet As Excel.Worksheet Set xlapp = Crea
VB调用Excel打印
vb调用 excel进行打印 Dim xobject As Excel.Application Dim xBook As Excel.Workbook Dim xSheet As Excel.Worksheet Set xobject = CreateObject("excel.application") Set xBook = xobject.Workbooks.Open(App.Path
VB操作EXCEL表的常用方法
VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统,如何把它们有机地结合在一起,是一个值得我们研究的课题。 一、 VB读写EXCEL表: VB本身提自动化功能可以读写EXCEL表,其方法如下
vb/vba引用excel无法退出excel进程的解决方法
vb/vba 引用excel对象后通过 xlapp.quit set xlapp=nothing 无法关掉excel进程的解决方法
VB打开Excel文件
(1)vb打开Excel       用EXCEL对象读取EXCEL文件中数据.然后通过ADODB连接SQL进和导入     下面是EXCEL对象的详解 1 前言     做为一种简捷、系统的 Windows应用程序开发工具,VB具有强大的数据处理功能,提供了多种数据访问方法,可以方便地存取Microsoft SQL Server、Oracle、XBase等多种