点上方关注我们，每天进步一点点
哈喽，大家好，我是星光，今天给大家分享的VBA小代码是：批量获取指定文件夹下文件名并创建超链接。
打个响指，照例放个小动画先：
相关VBA代码如下：
Sub GetFiles()
    Dim strPath As String, strFileName As String, k As Long
    With Application.FileDialog(msoFileDialogFolderPicker)
        '用户选择文件夹路径
        If .Show Then strPath = .SelectedItems(1) Else Exit Sub
        '如果用户为选择文件夹则退出程序
    End With
    If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
    Application.ScreenUpdating = False '取消屏幕刷新
    strFileName = Dir(strPath & "*.*")
    'dir+通配符获取首个文件名
    '如果一个文件也无，则返回空
    Columns(1).Clear: Cells(1, 1) = "目录": k = 1 '清除当前工作表A列数据
    Do While strFileName <> ""
        k = k + 1 '累加文件个数
        ActiveSheet.Hyperlinks.Add Cells(k, 1), strPath & strFileName
        '创建超链接
        strFileName = Dir
        '第2次调用Dir函数，未使用任何参数，则同目录下的下一个文件名
    Loop
    Application.ScreenUpdating = True
    MsgBox "一共读取了：" & k-1 & "个文件名。"
End Sub
代码解析见注释，没啥需要额外补充的。
代码三五行，工作不用忙断肠，你也试一下吧~
如果你还不会运行VBA代码，参考往期推文：如何运行VBA代码？其实很简单！
更多VBA常用小代码，菜单→【VBA进阶教程】→【VBA常用小代码】
文件下载：
https://pan.baidu.com/s/1QRdjR4OhgsCVwT_q6UoZK
提取码: ekzn 系统学习Excel，推荐加入我的Excel社群▼
更多教程&练习
教程1：零基础学Excel(一)什么是Excel？
教程2：零基础学SQL in Excel 25篇合集
作业集：学习不练习=没学习，答题开始！
©看见星光

在润乾的统计图中，为了方便用户进行钻取操作，提供了图形超链接，可以传递当前点击的图形的分类值与系列值。 
在遇到的客户需求中，遇到过这样一个问题： 
目前默认的超链接弹出是网页，如何来弹出一个窗口（无浏览器菜单栏工具条和地址栏）呢？ 
实现的方法： 
1、在统计图中设置图形超链接调用一个javaScript函数，并传递参数 
2、在javaScript函数中获取到参数值，并打开一个无无浏览器菜单栏工具条和地址栏的窗口。 
第一步，在统计图中设置超链接属性，传递分类值： 
第二步：编写javaScript函数： 
<script language=”javascript”> 

function show(param){ 

var pp1 = param 

var urlstr=’../jsp/enum_font.jsp?pp1=’+pp1; 
window.open(urlstr,”_blank”,”menubar=no,status=no,scrollbars=no,toolbar=no,location=no,resizeable=yes,width=600,height=260″);


} 
</script> 
其中，menubar=no,status=no,scrollbars=no,toolbar=no,location=no,resizeable=yes,width=600,height=260控制弹出窗口是否带工具栏菜单栏并指定了弹出窗口的大小。

如果想要传递单元格的值，那么超链接里的写法为： 
=”javascript:show(\’”+A3+”\’,\’”+’@category’+”\’)” 
 

需要注意的是： 
1、如果直接在超链接里调用js函数，可以不用加”"，例如：javascript:show( 
‘@category’ ) 
2、如果需要带单元格，就需要加=号和”"，并注意字符转义 
3、在ie6中可以做到弹出的窗口无地址栏，但在ie7以上的版本中做不到，因为ie7以上的版本增强了安全性，无法不显示地址栏，但地址栏尽管显示可是是不可写的状态。

在一个项目中，有这样一个需求，就是利用easyui框架为每一个行上的某一个格添加一个超链接，如下图：



在案号那一列，每一行都是的这个案号都是一个超链接，平时我们都是通过field，绑定从后台获取的数据，如果没有什么特殊要求的话，就可以用了，但是要对数据的格式，还有属性（比如添加一些超链接），这就要用到easyui里面自带的一个formatter属性，它的值是一个函数，函数里有三个参数，分别是value,row,index。下面来介绍一下这几个参数：

1、value：是当前field绑定数据的值，比如，我当前这个field绑定的是一个名为id的属性，那么这个value的就是当前行上的这个id的值

2、rowData:当前这一行上的所有数据，包括显示的和未显示的

3、index:当前是第几行的行值

 

那这个函数怎么样用呢？下面就我本次
 的项目做个简单的介绍：





1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16




function getMoreRecent(){

            $('#filedGrid').datagrid({

            title:"立案秘书收到的案子",

            url:"/arbcase/api/pageClickLog/recentCaseTopList",

            columns:[[

            {field:'collectNo',title:'案号',width:100,

            formatter: function(value,row,index){

        return '<a
 style="color:blue" href="/arbcase/case-'+row.id+'">'+row.collectNo+'</a>';

     }
 },

            {field:'nature',title:'案由',width:100},

            {field:'accuserListText',title:'申请人',width:100},

            {field:'appelleListText',title:'被申请人',width:100},

            {field:'createdDatetimeText',title:'录入时间',width:50}

            ]]

            });

    }






上面代码的特点就是就是，url是可以通过变量传入的，第二列的行数也是可以自动设置的，同时可以对每一列的数据格式进行转换，像我这个就是返回一个超链接，大概就是这样了




文章引用http://www.cnblogs.com/baby-lijun/p/5152159.html

目前默认的超链接弹出是网页，如何来弹出一个窗口（无浏览器菜单栏工具条和地址栏）呢？

实现的方法：

1、在统计图中设置图形超链接调用一个javaScript函数，并传递参数

2、在javaScript函数中获取到参数值，并打开一个无无浏览器菜单栏工具条和地址栏的窗口。

第一步，在统计图中设置超链接属性，传递分类值：




第二步：编写javaScript函数：

<script language=”javascript”>

function show(param){

var pp1 = param

var urlstr=’../jsp/enum_font.jsp?pp1=’+pp1;

window.open(urlstr,”_blank”,”menubar=no,status=no,scrollbars=no,toolbar=no,location=no,resizeable=yes,width=600,height=260″);

}

</script>

其中，menubar=no,status=no,scrollbars=no,toolbar=no,location=no,resizeable=yes,width=600,height=260控制弹出窗口是否带工具栏菜单栏并指定了弹出窗口的大小。




如果想要传递单元格的值，那么超链接里的写法为：

=”javascript:show(\’”+A3+”\’,\’”+’@category’+”\’)”

浏览后的效果为：




需要注意的是：

1、如果直接在超链接里调用js函数，可以不用加”"，例如：javascript:show(‘@category’)

2、如果需要带单元格，就需要加=号和”"，并注意字符转义

3、在ie6中可以做到弹出的窗口无地址栏，但在ie7以上的版本中做不到，因为ie7以上的版本增强了安全性，无法不显示地址栏，但地址栏尽管显示可是是不可写的状态。

4、需要弹出窗口时，需要设置ie选项卡的查看设置：