编程论坛 → VB6论坛

请教一个小问题~~

Hjfvb6 发布于 2021-05-27 17:26， 1976 次点击

各位老师，vb6里的app.path 是获得工程的路径吗？如果我想获得Excel文件的路径应该怎么改？thisworkbook.path 好像没用~~

7 回复

HVB62021-05-28 08:01

回复楼主 Hjfvb6

VB6调用Excel
http://club.
(出处: ExcelHome技术论坛)

Hjfvb62021-05-28 09:13

回复 2楼 HVB6

并没有说到这个~

HVB62021-05-28 10:26

回复 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

Hjfvb62021-05-28 11:09

回复 4楼 HVB6

.SaveAs xlApp.ActiveWorkbook.Path & "\" & aa
.Close False
我这个根本实现不了，只有app.path有反应

HVB62021-05-28 11:35

回复 5楼 Hjfvb6

4楼的代码是vba的。5楼的代码是VB6的？即以下代码：
.SaveAs xlApp.ActiveWorkbook.Path & "\" & aa
.Close False
我这个根本实现不了，只有app.path有反应

Hjfvb62021-05-28 11:48

回复 6楼 HVB6

对的，vb6的，我就是想在vb6引用打开的Excel的路径一直引用不了

HVB62021-05-28 12:02

回复 7楼 Hjfvb6

试试：
.SaveAs xlApp.Workbook("该工作簿名.后缀") & "\" & aa
.Close False