| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1699 人关注过本帖
标题:请教一个小问题~~
只看楼主 加入收藏
Hjfvb6
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2021-5-21
结帖率:0
收藏
 问题点数:0 回复次数:7 
请教一个小问题~~
各位老师,vb6里的app.path 是获得工程的路径吗?如果我想获得Excel文件的路径应该怎么改?thisworkbook.path 好像没用~~
搜索更多相关主题的帖子: 获得 路径 path 文件 Excel 
2021-05-27 17:26
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:331
专家分:561
注 册:2013-10-30
收藏
得分:0 
回复 楼主 Hjfvb6
VB6调用Excel
http://club.
(出处: ExcelHome技术论坛)
2021-05-28 08:01
Hjfvb6
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2021-5-21
收藏
得分:0 
回复 2楼 HVB6
并没有说到这个~
2021-05-28 09:13
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:331
专家分:561
注 册:2013-10-30
收藏
得分:0 
回复 3楼 Hjfvb6

Private Sub test()
    ActiveSheet.Cells(1, 1).Value = Application.Path
    ActiveSheet.Cells(2, 1).Value = ThisWorkbook.Path
    ActiveSheet.Cells(3, 1).Value = Application.DefaultFilePath
    ActiveSheet.Cells(4, 1).Value = Application.ActiveWorkbook.Path
    ActiveSheet.Cells(5, 1).Value = Application.ActiveWorkbook.FullName
    ActiveSheet.Cells(6, 1).Value = Application.ActiveWorkbook.Name
End Sub
2021-05-28 10:26
Hjfvb6
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2021-5-21
收藏
得分:0 
回复 4楼 HVB6
.SaveAs xlApp.ActiveWorkbook.Path & "\" & aa
.Close False
我这个根本实现不了,只有app.path有反应
2021-05-28 11:09
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:331
专家分:561
注 册:2013-10-30
收藏
得分:0 
回复 5楼 Hjfvb6
4楼的代码是vba的。5楼的代码是VB6的?即以下代码:
.SaveAs xlApp.ActiveWorkbook.Path & "\" & aa
.Close False
我这个根本实现不了,只有app.path有反应
2021-05-28 11:35
Hjfvb6
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2021-5-21
收藏
得分:0 
回复 6楼 HVB6
对的,vb6的,我就是想在vb6引用打开的Excel的路径 一直引用不了
2021-05-28 11:48
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:331
专家分:561
注 册:2013-10-30
收藏
得分:0 
回复 7楼 Hjfvb6
试试:
.SaveAs xlApp.Workbook("该工作簿名.后缀") & "\" & aa
.Close False
2021-05-28 12:02
快速回复:请教一个小问题~~
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016553 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved