查看: 3226|回复: 5
求助如何更改VBA代码,将新建工作簿保存到源文件保存路径,谢谢!
阅读权限20
在线时间 小时
本帖最后由 对你微笑 于
14:48 编辑
Private Sub CommandButton1_Click()
Dim wb As Workbook
Set wb = Workbooks.Add
Sheets(&sheet& & 1).Name = &总表&
Sheets(&sheet& & 2).Name = &分表1&
Sheets(&sheet& & 3).Name = &分表2&
Set wo = Nothing
Dim NewName As String& & '
ActiveWorkbook.SaveAs Filename:=InputBox(&请为工作簿命名。&, &温馨提示&)
On Error Resume Next& & '
books.Add.Name = NewName
With wb.ActiveSheet
For I = 1 To rs.Fields.Count
&&.Cells(1, I) = rs.Fields(I - 1).Name
&&.Range(&A2&).CopyFromRecordset rs
&&.Columns.AutoFit
&&End With
以上代码新建的工作簿都是保存到&D:\My Documents&
假设&求助&工作簿在&C\我的文档&新建的工作簿自动保存到&C\我的文档&,在&E\新建文件夹&则自动保存在&E\新建文件夹&
(将新建工作簿保存到源文件&求助工作簿&的保存路径),
以上代码蓝色部分是数据导入新建的工作簿保存,紫色部分为新建的工作簿的工作表命名,不用理会,应该是红色部分代码要修改或加入代码?
(以上代码可否简化?本人新手,对VBA一知半解,恳请各位老师帮忙,谢谢!!!)
{:soso_e100:}
(9.68 KB, 下载次数: 35)
12:00 上传
点击文件名下载附件
已解决:更改代码.
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & Application.PathSeparator & InputBox(&请为工作簿命名。&, &温馨提示&)
阅读权限95
在线时间 小时
代码如同大杂烩，多次新建工作薄，还有SQL语句，看不明白
还是用语言描述你的要求吧
阅读权限20
在线时间 小时
恳请各位老师帮忙,谢谢!!!)
阅读权限20
在线时间 小时
有人会吗?请帮忙看看,谢谢!
如不能将新建工作簿保存到源文件&求助工作簿&的保存路径,指定其它固定保存路径(如:E\管理)也可以,麻烦了,谢谢!!!
阅读权限50
在线时间 小时
楼主&&你省略 了路径&&excel 会自动保存在当前文件的路径上
阅读权限20
在线时间 小时
谢了,楼上各位。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师在线时间4 小时
版本V7.2.4.0.MAACNDB
积分 73, 距离下一级还需 127 积分
积分 73, 距离下一级还需 127 积分
机型小米手机5
MIUI版本V7.2.4.0.MAACNDB
如何设置保存到SD卡，还有下载管理器里的下载保存路径，如何设置，下载都是保存在手机里的，我希望能保存在SD卡中，如何设置呢？
分享到微信朋友圈
打开微信，点击底部的“发现”，使用 “扫一扫” 即可将网页分享到我的朋友圈。
经验4498 米
在线时间914 小时
积分 5437, 距离下一级还需 14563 积分
积分 5437, 距离下一级还需 14563 积分
机型一加手机
签到次数112
MIUI版本5.5.8
本帖最后由 angelhack 于
11:20 编辑
目前小米手机上 安装的软件都默认在手机 这样可以避免因为内存卡的质量导致运行速度的影响
如果楼主非要移动到SD卡的话 可以进入程序管理选择程序移动到SD卡即可（前提要软件支持移动到SD卡）
用自带浏览器下载的默认路径是SD卡根目录的download(sdcard/download)也有的在SD卡根目录下MIUI文件夹内（比如主题，用音乐在线下载的音乐歌词等等）暂时不支持设置下载路径
楼主可以选择第三方下载工具 比如UC
经验29221 米
在线时间1359 小时
版本7.1.20
机型小米平板1
签到次数170
MIUI版本7.1.20
小米手机内置了4G ROM,用户可用3.05G左右，所以能安装很多软件哦！而且安装在手机中能避免很多兼容性的问题，并不需要刻意安装到SD卡中。
如果你一定要移动到SD卡中，可以打开系统设置-程序-程序管理-SD卡中，里面有支持移动到SD卡的软件列表，点击你要移动的软件，选择移动到SD卡选项即可！
也可以安装安卓优化大师等软件，使用程序整理功能一键移动到SD。
别外下载管理器下载的软件都是保存在SD卡中，miui会自动为你归类的哦！一般通过浏览器下载的保存在SD卡下miui\download里面，主题管理器下载的保存在MIUI\theme等等。当然每周的OTA ROM保存在SD下的downloaded_rom文件夹
在线时间4 小时
版本V7.2.4.0.MAACNDB
积分 73, 距离下一级还需 127 积分
积分 73, 距离下一级还需 127 积分
机型小米手机5
MIUI版本V7.2.4.0.MAACNDB
在下载管理器里面，所有已下载的文件，都是在手机内，如何把这类文件存储到SD卡中，比如下载能自动的保存到SD卡里。
经验764 米
在线时间43 小时
版本JMACNBF7.0
积分 949, 距离下一级还需 1051 积分
积分 949, 距离下一级还需 1051 积分
机型小米手机1/1S
MIUI版本JMACNBF7.0
机身内存暗点肖软件还可以，装个凯立德，EA什么的就必须借助SD卡了。
经验127 米
在线时间83 小时
版本2.3.6f
积分 262, 距离下一级还需 238 积分
积分 262, 距离下一级还需 238 积分
机型小米手机1/1S
MIUI版本2.3.6f
看回复，顺手拿米。
经验2854 米
在线时间1707 小时
版本4.12.5
积分 3945, 距离下一级还需 1055 积分
积分 3945, 距离下一级还需 1055 积分
机型小米手机1/1S
签到次数116
MIUI版本4.12.5
小米手机内置了4G ROM,用户可用3.05G左右，所以能安装很多软件哦！而且安装在手机中能避免很多兼容性的问题，并不需要刻意安装到SD卡中。
如果你一定要移动到SD卡中，可以打开系统设置-程序-程序管理-SD卡中，里面有支持移动到SD卡的软件列表，点击你要移动的软件，选择移动到SD卡选项即可！
也可以安装安卓优化大师等软件，使用程序整理功能一键移动到SD。
别外下载管理器下载的软件都是保存在SD卡中，miui会自动为你归类的哦！一般通过浏览器下载的保存在SD卡下miui\download里面，主题管理器下载的保存在MIUI\theme等等。当然每周的OTA ROM保存在SD下的downloaded_rom文件夹
小米手机团队
经验2770 米
在线时间207 小时
版本V7.3.1.0.LHMCNDD
积分 3459, 距离下一级还需 1541 积分
积分 3459, 距离下一级还需 1541 积分
机型红米Note2 移动/标准
签到次数39
MIUI版本V7.3.1.0.LHMCNDD
小米手机内置了4G ROM,用户可用3.05G左右，所以能安装很多软件哦！而且安装在手机中能避免很多兼容性的问题，并不需要刻意安装到SD卡中。
如果你一定要移动到SD卡中，可以打开系统设置-程序-程序管理-SD卡中，里面有支持移动到SD卡的软件列表，点击你要移动的软件，选择移动到SD卡选项即可！
也可以安装安卓优化大师等软件，使用程序整理功能一键移动到SD。
别外下载管理器下载的软件都是保存在SD卡中，miui会自动为你归类的哦！一般通过浏览器下载的保存在SD卡下miui\download里面，主题管理器下载的保存在MIUI\theme等等。当然每周的OTA ROM保存在SD下的downloaded_rom文件夹
经验5766 米
在线时间397 小时
版本V8.2.1.0.KHCCNDL
积分 7036, 距离下一级还需 12964 积分
积分 7036, 距离下一级还需 12964 积分
机型红米手机1S WCDMA 3G版
MIUI版本V8.2.1.0.KHCCNDL
不赞同你这样做，会拖慢手机运行速度！
下雨天快离去吧
经验324 米
在线时间7 小时
版本3.9.13
积分 455, 距离下一级还需 45 积分
积分 455, 距离下一级还需 45 积分
机型小米手机1/1S
MIUI版本3.9.13
MIUI 3000万
MIUI 3000万发烧友纪念勋章
MIUI 2000万
MIUI 2000万发烧友纪念勋章
小米手机1终身荣誉勋章
小米手机1终身荣誉勋章
MIUI三周年
MIUI三周年纪念勋章
已关注微信
已关注极客秀微信
关注腾讯微博
已关注腾讯微博
关注新浪微博
已关注新浪微博
MIUI 100周
100周发布纪念勋章
小米手机元器件合体活动勋章
小米求合体勋章
1000万用户纪念勋章
MIUI1000万用户纪念勋章
MIUI 7纪念勋章
解答组专属勋章
解答组专属勋章
MIUI五周年
MIUI五周年纪念勋章
小米平板首发纪念勋章
小米平板首发纪念勋章
小米手机3终身荣誉勋章
小米手机3终身荣誉勋章
小米手机2终身荣誉勋章
小米手机2终身荣誉勋章
百万壁纸评审纪念勋章
Copyright (C) 2017 MIUI
京ICP备号 | 京公网安备34号 | 京ICP证110507号}