在Excel中应用VBA批量导入数据_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
在Excel中应用VBA批量导入数据
&&在Excel中应用VBA批量导入数据
阅读已结束，下载文档到电脑
想免费下载本文？
定制HR最喜欢的简历
下载文档到电脑，方便使用
还剩3页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢查看:4479|回复：3
初级工程师
(551.09 KB)
(476 Bytes)
09:26, 下载次数: 869
优秀作品！
本帖最后由 allmrys 于
09:26 编辑
学习一下vba，非专业开发人士的爱
这个东西 好厉害~好学习下！:lol1
初级工程师
引用:原帖由 kirin 于
22:37 发表
学习一下vba，非专业开发人士的爱 vba,需要跟楼主学习。Excel宏(VBA)：批量自动生成超链接
Excel宏(VBA)：批量自动生成超链接
&&& 我们常常用Excel来保存测试用例或数据模板，如果一个Excel中有几十个Sheet，为了方便定位到对应的Sheet，那么可以在第一个Sheet里列一个列表，指定超链接，那么就很方便了。&&& 可是问题是：如果手动一个个来指定超链接，很费时间。&&& 那么就可以通过宏（VBA）来实现：&&& 例子：
第一步：在首页列出所有的Sheet名称；
第二步：编写宏：Sub GenerateLinks()Dim tcName As StringWith Worksheets("首页")&&& For rowno = 1 To 200&&&&&&& If .Cells(rowno, 2).Value && "" _&&&&&&& And Mid(.Cells(rowno, 2).Value, 1, 2) = "测试" Then&&&&&&&&&&& tcName = .Cells(rowno, 2).Value&&&&&&&&&&& .Hyperlinks.Add Anchor:=.Cells(rowno, 2), Address:="", _&&&&&&&&&&&& SubAddress:=tcName & "!F2", TextToDisplay:=tcName&&&&&&& End If&&& NextEnd WithEnd Sub说明：Hyperlinks 对象是添加链接用的，其中Anchor, Address和SubAddress 是它的属性。Anchor ：要添加链接的位置& 必选参数Address : 链接地址，一般是外部的链接地址& 必选SubAddress：超链接的子地址，可选&&&&&&&&&&& （在链接到当前workbook的sheet时用此地址），本例子就是要用到该参数。
第三步：调用宏，通过创建按钮来执行，或直接在Excel中调用即可批量生成链接。
该文章对我有帮助
2129°|21268 人阅读|3
我是来看楼主如何牛掰的，不是刻意抢沙发哈
辜顺利: 我是来看楼主如何牛掰的，不是刻意抢沙发哈
如果要链接到分表中的单元格怎么办？
后发表评论
访客 94767
熊志男 的其他博文 更多
& 测试窝，促进软件测试领域知识的传播。
测试窝常年法律顾问:
| 执业证号:80720&>&将多个Excel文件批量导入某个Excel文件中去的VBA宏
将多个Excel文件批量导入某个Excel文件中去的VBA宏
上传大小：29KB
压缩文件中包括一个包含宏代码的Excel文件Sheet Macros.xls以及其他四个测试文件工作表 1~4。
宏的功能为(1)选中Excel表格中的某些行或列，运行某个Macro，自动根据选中的cells创建新的worksheets，worksheets的名字就是选中的cells的名字。(2)创建新的worksheet的同时，要把某指定目录下与新的worksheet同名的Excel文件的内容
copy到新的worksheet中去。
...展开收缩
综合评分：4（10位用户评分）
下载个数：
{%username%}回复{%com_username%}{%time%}\
/*点击出现回复框*/
$(".respond_btn").on("click", function (e) {
$(this).parents(".rightLi").children(".respond_box").show();
e.stopPropagation();
$(".cancel_res").on("click", function (e) {
$(this).parents(".res_b").siblings(".res_area").val("");
$(this).parents(".respond_box").hide();
e.stopPropagation();
/*删除评论*/
$(".del_comment_c").on("click", function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_invalid/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parents(".conLi").remove();
alert(data.msg);
$(".res_btn").click(function (e) {
var parentWrap = $(this).parents(".respond_box"),
q = parentWrap.find(".form1").serializeArray(),
resStr = $.trim(parentWrap.find(".res_area_r").val());
console.log(q);
//var res_area_r = $.trim($(".res_area_r").val());
if (resStr == '') {
$(".res_text").css({color: "red"});
$.post("/index.php/comment/do_comment_reply/", q,
function (data) {
if (data.succ == 1) {
var $target,
evt = e || window.
$target = $(evt.target || evt.srcElement);
var $dd = $target.parents('dd');
var $wrapReply = $dd.find('.respond_box');
console.log($wrapReply);
//var mess = $(".res_area_r").val();
var mess = resS
var str = str.replace(/{%header%}/g, data.header)
.replace(/{%href%}/g, 'http://' + window.location.host + '/user/' + data.username)
.replace(/{%username%}/g, data.username)
.replace(/{%com_username%}/g, _username)
.replace(/{%time%}/g, data.time)
.replace(/{%id%}/g, data.id)
.replace(/{%mess%}/g, mess);
$dd.after(str);
$(".respond_box").hide();
$(".res_area_r").val("");
$(".res_area").val("");
$wrapReply.hide();
alert(data.msg);
}, "json");
/*删除回复*/
$(".rightLi").on("click",'.del_comment_r', function (e) {
var id = $(e.target).attr("id");
$.getJSON('/index.php/comment/do_comment_del/' + id,
function (data) {
if (data.succ == 1) {
$(e.target).parent().parent().parent().parent().parent().remove();
$(e.target).parents('.res_list').remove()
alert(data.msg);
//填充回复
function KeyP(v) {
var parentWrap = $(v).parents(".respond_box");
parentWrap.find(".res_area_r").val($.trim(parentWrap.find(".res_area").val()));
评论共有10条
还不错，有用,已存
哈哈，正好不知道怎么解决这个问题呢。这个宏正好帮到我了。
还不错，有用
上传者：jhf57101
上传时间：积分/C币：10
上传者：ld
上传时间：积分/C币：5
上传者：webcivics
上传时间：积分/C币：3
上传者：hs5570
上传时间：积分/C币：5
上传者：li114228
上传时间：积分/C币：3
上传者：fangxing520
上传时间：积分/C币：3
上传者：han229329
上传时间：积分/C币：3
上传者：w_sunxin
上传时间：积分/C币：3
上传者：han229329
上传时间：积分/C币：5
上传者：jidangeng
上传时间：积分/C币：3
上传者：fanyihua
上传时间：积分/C币：0
上传者：rucx2007
上传时间：积分/C币：3
上传者：chongqing01
上传时间：积分/C币：3
上传者：nickpknick
上传时间：积分/C币：3
上传者：wuziteng2006
上传时间：积分/C币：5
上传者：yeminqiang_2008
上传时间：积分/C币：3
上传者：brucexia
上传时间：积分/C币：5
上传者：rangf
上传时间：积分/C币：3
上传者：weseeyou
上传时间：积分/C币：5
上传者：ricy7
上传时间：积分/C币：15
审核通过送C币
计算两个数的商. 精确计算
创建者：qq_
大数据 可视化
创建者：bjlizhenghai
运维四化建设
创建者：wangly0125
上传者其他资源上传者专辑
选中Excel单元格自动导入多个Excel worksheets
Network Programming with Perl
Exploring Expect(英文完全版)
Sun云计算平台-Sun Cloud Computing
MP3音频录音机
VIP会员动态
CSDN下载频道资源及相关规则调整公告V11.10
下载频道用户反馈专区
下载频道积分规则调整V1710.18
spring mvc+mybatis+mysql+maven+bootstrap 整合实现增删查改简单实例.zip
资源所需积分/C币
当前拥有积分
当前拥有C币
扫码关注并点击右下角获取下载码
输入下载码
为了良好体验，不建议使用迅雷下载
将多个Excel文件批量导入某个Excel文件中去的VBA宏
会员到期时间：
剩余下载个数：
剩余C币：593
剩余积分：0
为了良好体验，不建议使用迅雷下载
积分不足！
资源所需积分/C币
当前拥有积分
您可以选择
程序员的必选
绿色安全资源
资源所需积分/C币
当前拥有积分
当前拥有C币
(仅够下载10个资源)
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
为了良好体验，不建议使用迅雷下载
资源所需积分/C币
当前拥有积分
当前拥有C币
您的积分不足，将扣除 10 C币
为了良好体验，不建议使用迅雷下载
你当前的下载分为234。
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可奖励5下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
将多个Excel文件批量导入某个Excel文件中去的VBA宏Excel批量将CSV转为XLS的宏是什么？
此答案由站在风中的女子提供
所有的csv文件必须在同一个目录下.步骤:在这个目录下新建一个excel文件打开这个文件然后按ALT+F11进入vbA编辑窗口粘贴下面的代码Sub csv2XLS()Dim FilePath, MyFile, iPath As StringiPath = ThisWorkbook.PathMyFile = Dir(iPath & &\*.csv&)If MyFile && && ThenDo& & On Error Resume next& & If MyFile = ThisWorkbook.Name Then MyFile = Dir& & Workbooks.Open (iPath & &\& & MyFile)& & MyFile = Replace(MyFile, &.csv&, &.xls&)& & Name = &\& & MyFile& & FilePath = iPath & Name& & Application.ScreenUpdating = False& & ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:= _& & & & xlNormal, CreateBackup:=False& & Workbooks(MyFile).Close True& & Application.ScreenUpdating = True& & MyFile = DirLoop While MyFile && &&End IfEnd Sub
此答案由站在风中的女子提供
所有的csv文件必须在同一个目录下.步骤:在这个目录下新建一个excel文件打开这个文件然后按ALT+F11进入vbA编辑窗口粘贴下面的代码Sub csv2XLS()Dim FilePath, MyFile, iPath As StringiPath = ThisWorkbook.PathMyFile = Dir(iPath & &\*.csv&)If MyFile && && ThenDo& & On Error Resume next& & If MyFile = ThisWorkbook.Name Then MyFile = Dir& & Workbooks.Open (iPath & &\& & MyFile)& & MyFile = Replace(MyFile, &.csv&, &.xls&)& & Name = &\& & MyFile& & FilePath = iPath & Name& & Application.ScreenUpdating = False& & ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:= _& & & & xlNormal, CreateBackup:=False& & Workbooks(MyFile).Close True& & Application.ScreenUpdating = True& & MyFile = DirLoop While MyFile && &&End IfEnd Sub
此答案由站在风中的女子提供
所有的csv文件必须在同一个目录下.步骤:在这个目录下新建一个excel文件打开这个文件然后按ALT+F11进入vbA编辑窗口粘贴下面的代码Sub csv2XLS()Dim FilePath, MyFile, iPath As StringiPath = ThisWorkbook.PathMyFile = Dir(iPath & &\*.csv&)If MyFile && && ThenDo& & On Error Resume next& & If MyFile = ThisWorkbook.Name Then MyFile = Dir& & Workbooks.Open (iPath & &\& & MyFile)& & MyFile = Replace(MyFile, &.csv&, &.xls&)& & Name = &\& & MyFile& & FilePath = iPath & Name& & Application.ScreenUpdating = False& & ActiveWorkbook.SaveAs Filename:=FilePath, FileFormat:= _& & & & xlNormal, CreateBackup:=False& & Workbooks(MyFile).Close True& & Application.ScreenUpdating = True& & MyFile = DirLoop While MyFile && &&End IfEnd Sub
对“关于SQL外连接的解释”纠错
关注希赛微信
接听时间：工作日00:00-24:00（仅收市话费）
&&|&&关于希赛&&|&&工作机会&&|&&服务协议&&|&&免责声明&&|&&联系希赛&&|&&网站地图&&&&&&&&希赛网&&版权所有&&(C)&&&&&&