问题描述

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

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

解决方案

 '工程-引用-将Microsoft Excel 12.0 Object Library选中，'工程-部件-将Microsoft Common Dialog Control 6.0选中，'在窗体上添加一个按钮Command1对象，一个CommonDialog1通用对话框对象Private Sub Command1_Click()CommonDialog1.CancelError = TrueCommonDialog1.DialogTitle = ""指定要接收的Txt文件""CommonDialog1.Filter = ""文本文件(*.xls)|*.xls|所有文件(*.*)|*.*""CommonDialog1.InitDir = App.PathCommonDialog1.ShowOpenText1 = CommonDialog1.FileNameSet xlApp = CreateObject(""Excel.Application"")xlApp.Visible = TrueSet xlBook = xlApp.Workbooks.Open(Text1)If xlApp.Worksheets(""Sheet1"").Range(""A1"").Cells(2 2) = """" Then   xlApp.Worksheets(""Sheet1"").Range(""A1"").Cells(2 3) = ""B2空""ElsexlApp.Worksheets(""Sheet1"").Range(""A1"").Cells(2 3) = ""B2不空""End IfMsgBox ""所要打开的Excel文件已经打开，下面将关闭""xlBook.SavexlApp.QuitSet xlApp = NothingEndEnd Sub搜一下就行了