exe文件跟文件夹的根目录一样,要引用文件夹下面的Excel部分单元格的数据各位高手帮我解答下,新人的第一条提问
1条回答 默认 最新
- danielinbiti 2016-01-27 03: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 搜一下就行了
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥15 解决一个加好友限制问题 或者有好的方案
- ¥15 关于#java#的问题,请各位专家解答!
- ¥15 急matlab编程仿真二阶震荡系统
- ¥20 TEC-9的数据通路实验
- ¥15 ue5 .3之前好好的现在只要是激活关卡就会崩溃
- ¥50 MATLAB实现圆柱体容器内球形颗粒堆积
- ¥15 python如何将动态的多个子列表,拼接后进行集合的交集
- ¥20 vitis-ai量化基于pytorch框架下的yolov5模型
- ¥15 如何实现H5在QQ平台上的二次分享卡片效果?
- ¥30 求解达问题(有红包)