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

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条回答 默认 最新

  • threenewbee 2018-12-22 01:54
    关注

    Set xlBook = xlApp.Workbooks.Open("fullpath")
    ->
    Set xlBook = xlApp.Workbooks.Open(fullpath)

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论

    报告相同问题?

    悬赏问题

    • ¥15 Jupyter Notebook 数学公式不渲染
    • ¥20 ERR_CACHE_MISS 确认重新提交表单
    • ¥20 关于vba使用HTMLfile执行js函数问题
    • ¥60 悬赏求解,通过实时现场摄像头的视频图像识别其他对家打出的麻将牌,识别麻将牌,识别牌墙位置,通过识别对家打出了什么牌
    • ¥15 关于#GPU jetson#的pcie驱动开发问题,如何解决?
    • ¥15 stm32f103zet6 串口5无法收发数据
    • ¥15 关于C语言使用线程队列实现多线程并发
    • ¥15 这个运行,错误在哪里呀,大家看看吧,教导我
    • ¥15 advanceinstaller对话框设置
    • ¥100 正常上网,内部网页无法打开