乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 33|回复: 2

APP

[复制链接]

7

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
38
发表于 2006-11-23 16:30:00 | 显示全部楼层 |阅读模式
VBA为什么不支持APP阿
我写的代码:
APP.Path & "data.txt"总是报错阿??
回复

使用道具 举报

8

主题

20

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
52
发表于 2006-11-24 09:50:00 | 显示全部楼层
试了一下,是不支持APP.不过用API函数能够得到当前的目录.我做了一个小的得到当前目录的VBA函数试了一下可能得到.
Option Explicit
Private Declare Function GetCurrentDirectoryA Lib "kernel32" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Sub GetAppPath()
  Dim strPath As String
  Dim PathLength As Long
  strPath = Space$(1024)
  PathLength = GetCurrentDirectoryA(Len(strPath), strPath)
End Sub
strPath中得到的就是当前目录,就是当前dvb文件所保存的目录.
回复

使用道具 举报

7

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
38
发表于 2006-11-25 21:12:00 | 显示全部楼层
谢谢
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-7 00:13 , Processed in 1.196293 second(s), 59 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表