页面已拦截
无锡网警提示您：
该网站已被大量用户举报，且存在未经证实的信息，可能会通过各种手段来盗取您的账号或骗取您的财产。查看: 9850|回复: 15
用VBA怎么表示打开和当前文件同路径的A文件
我要打开和当前正在编写代码的工作薄同一文件夹的A文件，怎么表示呢？
ThisWorkbook.Path这个返回的就是当前工作薄所在的文件夹。
一般来说，假设你的文件名是A
那么这个文件的绝对路径就是：ThisWorkbook.Path & &\A&
复制代码就可以了。
但是中间存在一个问题，就是如果文件是在根目录的话，就需要进行判断了：If Len(ThisWorkbook.Path) = 3 Then
& & FilePath = ThisWorkbook.Path & &A&
Else
& & FilePath = ThisWorkbook.Path & &\& & &A&
End If复制代码因为在根目录获得的路径是如“c:\”，里面就自动已经带上了“\”了的。
然后再讲讲打开
一般的文件读取和写入的话，就可以用OPEN来处理
也就是说：OPEN FILEPATH FOR INPUT AS #1复制代码这个是文件读取OPEN FILEPATH FOR OUTPUT AS #1复制代码这个是文件写入
其中FILEPATH更换为前面获得FilePath
#1的话表示的是文件号，可以通过FreeFile来获得当前空闲的文件号。
在使用完文件后，要通过close #1复制代码来关闭文件的调用
具体的文件操作方法，谷歌或者度娘下都可以找到很多类似的文章的
Sub 打开文件()
& & Dim XLapp As New Excel.Application
& & Dim Xlbook As Excel.Workbook
& & Dim MyFile1 As String
& &
& & MyFile1 = ThisWorkbook.Path & &\A.xls&
& & Set Xlbook = XLapp.Workbooks.Open(MyFile1)
& & XLapp.Visible = False
& &
& & '***************************************
& & '以下代码对xlbook工作簿进行操作
& &
& & Xlbook.Close True& &'保存并关闭打开的A文件
& & Set XLapp = Nothing
& & Set Xlbook = Nothing
End Sub
复制代码
3楼很详细，赞一个
这个很不错的，一定要学习
提示: 作者被禁止或删除 内容自动屏蔽
路过，学习学习。。。
Powered by本帖子已过去太久远了，不再提供回复功能。查看: 14013|回复: 9
在VBA编辑器中输入中文成了乱码。
阅读权限20
在线时间 小时
为什么会这样？.png (22.84 KB, 下载次数: 2)
18:16 上传
Google输入法和微软 2010 都一样。
阅读权限95
在线时间 小时
工具→选项→编辑器格式 窗口，其中字体选项改正为中文字体即可。
(72.04 KB, 下载次数: 25)
18:58 上传
阅读权限20
在线时间 小时
香川群子 发表于
工具→选项→编辑器格式 窗口，其中字体选项改正为中文字体即可。
谢谢，你的名字好温暖哦。
阅读权限20
在线时间 小时
解決辦法：
將代碼拷入2010EXCEL,利用“審閱”里的繁簡轉換工具，再將代碼拷到VBE
阅读权限20
在线时间 小时
解決辦法：
將代碼拷入2010EXCEL,利用“審閱”里的繁簡轉換工具，再將代碼拷到VBE
不行啊。我是在繁体系统下写的代码 ，在简体系统下打开就成了乱码。改字体及按你说的办法，都无济于事啊
阅读权限20
在线时间 小时
不行啊。我是在繁体系统下写的代码 ，在简体系统下打开就成了乱码。改字体及按你说的办法，都无济于事啊。
09:04 上传
点击文件名下载附件
31.21 KB, 下载次数: 4
阅读权限10
在线时间 小时
按照如下步骤更改非Unicode程序的语言即可：
控制面板=&时钟、语言和区域=&区域=&管理=&非Unicode程序的语言=&更改系统区域设置为中文（简体，中国）=&重启电脑。
阅读权限10
在线时间 小时
按照如下步骤更改非Unicode程序的语言即可：
控制面板=&时钟、语言和区域=&区域=&管理=&非Unicode程序的语 ...
十分感谢，问题解决；
阅读权限10
在线时间 小时
Win10+Office下以上两种方法均未成功……
阅读权限10
在线时间 小时
用此方法我的可行：
把输入法设为中文状态复制粘贴。
浏览过的版块
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 8964|回复: 13
文件夹名称出现乱码问题
阅读权限20
在线时间 小时
无标题.jpg (5.6 KB, 下载次数: 331)
命名的时候出现乱码
22:29 上传
为甚么命名文件夹得时候出现乱码，在X系统下好好的，在win7下就会出现乱码，请各位大侠帮忙！
阅读权限100
在线时间 小时
是那个盘下的文件夹，自己变成乱码的，还是从其他地方拷贝来的
阅读权限20
在线时间 小时
& & & & & & & &
本帖最后由 sue1092 于
14:38 编辑
在VB 的Webbrowser控件中打开本地目录，新建文件或文件夹的时候，重命名时，输入的汉字，都会变成乱码，在XP下又不会，拷贝的都是正常的，不在Webbrowser控件里命名没有问题，XP系统下没有问题，win7不管是32位还是64位都有这个问题。
阅读权限100
在线时间 小时
Win7系统中文显示乱码的修复方法
阅读权限100
在线时间 小时
本帖最后由 aichong 于
10:51 编辑
/bbs/viewthread.php?tid=572362Win7系统POPO乱码问题的解决方案
Win7系统下，网易POPO或其它常用软件若存在乱码问题，可依次参照以下三种方式进行解决：
进入控制面板——区域、语言设置，进入“管理”菜单更改系统区域设置，改为：中文（简体，中国），见下图所示& }5 e4 ~( W9 F; v
luntan., K* Z. }9 ?, U& Z
7 Z3 p2 M$ l2 G
方法二：( V: v- k5 B0 r9 F. o- Q( \& l
1）在windows的开始菜单——运行中输入&regedit&，打开注册表编辑器。
2）打开注册表键 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FontAssoc\Associated Charset
确定下面这两项的值是 YES，如果没有则自己创建。网易POPO论坛( i6 c% b4 J5 x2 g7 b. w&&z7 M7 L: {
&ANSI(00)&=&YES&; b8 W* g&&j/ u& k
&OEM(FF)&=&YES&# L% @( |& D1 l! k! ?. [
网易POPO论坛4 E&&s5 x3 C: R. J&&j
1）在windows的开始菜单——运行中输入&regedit&，打开注册表编辑器
2）打开注册表键 HKEY_CURRENT_USER\Control Panel\International，将右侧：&Locale&=&& 改成 &Locale&=&&luntan.: `' z) P8 C3 x% e5 h7 H
3）重启电脑。网易POPO论坛# l* }&&f/ F( O9 W& S; d( p, R( o2 W
只要做了这三个步骤，你的Win7系统基本可以摆脱乱码的困扰，中英文都适用！
阅读权限20
在线时间 小时
这几样都没有问题，平常重命名都没有问题，只是在VB 的Webbrowser控件中重命名时才会出现这种情况！
阅读权限20
在线时间 小时
各位大侠帮帮忙啊。
阅读权限20
在线时间 小时
没有大侠知道吗，请帮忙！
阅读权限95
在线时间 小时
不会是染毒文件吧？看着貌似拼音出来了……没遇到过，不太懂，先全盘杀杀毒……个人建议
阅读权限100
在线时间 小时
到一个群求助了一下，以下是回复：
为啥要在WEB控件上操作文件夹呢？这就跟让邓亚萍打篮球一样的原理哈
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}