Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4286|回复: 6

[已解决]%appdata%怎么用?

[复制链接]
发表于 2012-9-15 09:06 | 显示全部楼层 |阅读模式
本帖最后由 lsggjie 于 2012-9-15 09:30 编辑

   OldName01 = ThisWorkbook.Path & "\Normal01.bat"
    newName = "C:\Documents and Settings\Administrator\Application Data\Microsoft\Templates\Normal.dot"
    'newName = "%appdata%\microsoft\templates\Normal.dot"
'替换文件:  
    FileCopy OldName01, newName

我想替换系统文件的模板文件,能否用"%appdata%\microsoft\templates\Normal.dot"
代替"C:\Documents and Settings\Administrator\Application Data\Microsoft\Templates\Normal.dot"
执行时显示找不到文件夹?怎么解决?
最佳答案
2012-9-15 10:10
Environ 函数
请参阅     示例     特性

返回 String,它关连于一个操作系统环境变量。 在 Macintosh 中不可用

语法

Environ({envstring | number})

Environ 函数的语法含有以下这些命名参数:

部分 描述
envstring 可选参数。包含一个环境变量名的字符串表达式。
number 可选参数。数值表达式,用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式,不过在计算前,它会先转换为一个整数。



说明

如果在环境字符串表格中找不到 envstring,则会返回一个零长度字符串 ("")。如果找到,则 Environ 会返回一段文本,文本是赋值给指定的 envstring 的,也就是说,在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。

如果指定了 number,则在环境字符串表格中相应位置上的字符串会返回。在这种情况下,Environ 会返回整个文本,包括 envstring。如果在指定位置上没有环境字符串,那么 Environ 会返回一个零长度字符串。

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2012-9-15 10:10 | 显示全部楼层    本楼为最佳答案   
Environ 函数
请参阅     示例     特性

返回 String,它关连于一个操作系统环境变量。 在 Macintosh 中不可用

语法

Environ({envstring | number})

Environ 函数的语法含有以下这些命名参数:

部分 描述
envstring 可选参数。包含一个环境变量名的字符串表达式。
number 可选参数。数值表达式,用来表示环境字符串在环境字符串表格中的数值顺序。number 参数可以是任意的数值表达式,不过在计算前,它会先转换为一个整数。



说明

如果在环境字符串表格中找不到 envstring,则会返回一个零长度字符串 ("")。如果找到,则 Environ 会返回一段文本,文本是赋值给指定的 envstring 的,也就是说,在环境字符串表格中对应那个环境变量的等号 (=) 后面的那段文本。

如果指定了 number,则在环境字符串表格中相应位置上的字符串会返回。在这种情况下,Environ 会返回整个文本,包括 envstring。如果在指定位置上没有环境字符串,那么 Environ 会返回一个零长度字符串。

回复

使用道具 举报

发表于 2012-9-15 10:11 | 显示全部楼层
VBA里有提供现成的函数,原想用SHELL的,查了F1,有现成的函数。
回复

使用道具 举报

发表于 2012-9-15 10:12 | 显示全部楼层
  1. Sub s1()
  2.     MsgBox Environ("APPDATA")
  3. End Sub
复制代码

评分

参与人数 1 +5 金币 +5 收起 理由
suye1010 + 5 + 5 赞一个!

查看全部评分

回复

使用道具 举报

发表于 2012-9-15 10:12 | 显示全部楼层
QQ截图20120915101213.jpg
回复

使用道具 举报

发表于 2012-9-15 12:01 | 显示全部楼层
学习下                              
回复

使用道具 举报

发表于 2012-9-16 07:05 | 显示全部楼层
学习了,真是个好东西啊。谢谢了。
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 19:27 , Processed in 0.430391 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表