weixin_44213624 2018-12-22 08:30 采纳率: 100%
浏览 1404
已采纳

VB6中APP.path的用法问题

APP.path在使用过程中,总不是很顺畅。经常报错,
如下代码,出现1004错误,无法打开对应的文件。
1、我确定文件位置和程序在一个文件下;
2、我过程检查插入print fullpath,所显示的地址是正确的;
3、我将显示的地址直接提换如下语句中的fullpath
Set xlBook = xlApp.Workbooks.Open("fullpath")
程序也能运行成功。

求大神指点一下迷津

Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet

Dim fullpath As String

If Right(App.Path, 1) = "\" Then
 fullpath = App.Path + "temp.xlsx"
Else
 fullpath = App.Path + "\" + "temp.xlsx"
End If

Print fullpath
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("fullpath")
xlApp.Visible = True
Set xlsheet = xlBook.Sheets("sheet1")

Text1.Text = xlsheet.Range("A1").Value

xlBook.Close

xlApp.Quit

End Sub


  • 写回答

1条回答

      报告相同问题?

      相关推荐 更多相似问题

      悬赏问题

      • ¥15 用MATLAB解决问题,需要代码
      • ¥45 关于C语言设计井字棋游戏问题的实现
      • ¥15 python定义一个学生类
      • ¥20 vuforia的Unity3D开发,模型附上特效后大量报错
      • ¥35 Python实现文本关键词提取
      • ¥20 如何使用c++语言完成实验仪器管理系统
      • ¥15 请问Unity使用Magica Cloth插件怎么调整散兵的帘子和振袖比较好?
      • ¥15 请问为什么原神模型导入Unity做动画默认姿势会站不直?
      • ¥15 ld: cannot open C:\Program: No such file or directory
      • ¥15 请问汏佬要怎么访问这种过滤了post和get的php内容?