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币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!