Excel精英培训网

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

[已解决]VBA连接文件建目录

[复制链接]
发表于 2016-4-29 08:24 | 显示全部楼层 |阅读模式
文件目录用VBA做了个目录,如何连接对应的文件,请高手指点。见附件。
最佳答案
2016-4-29 09:07
本帖最后由 zjdh 于 2016-4-29 13:13 编辑

Sub liangjie()
    MYTH = "d:\专卖店区域帐13年8月前\"
    F = Dir(MYTH)
    While F <> ""
        k = k + 1
        Cells(k, 1) = F
        F = Dir
    Wend
    For I = 1 To Range("A65536").End(3).Row
        If Cells(I, 1) <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(I, 1), Address:=MYTH & Cells(I, 1)
    Next
End Sub

链接文件目录.zip

1.65 MB, 下载次数: 27

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2016-4-29 09:07 | 显示全部楼层    本楼为最佳答案   
本帖最后由 zjdh 于 2016-4-29 13:13 编辑

Sub liangjie()
    MYTH = "d:\专卖店区域帐13年8月前\"
    F = Dir(MYTH)
    While F <> ""
        k = k + 1
        Cells(k, 1) = F
        F = Dir
    Wend
    For I = 1 To Range("A65536").End(3).Row
        If Cells(I, 1) <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=Cells(I, 1), Address:=MYTH & Cells(I, 1)
    Next
End Sub
回复

使用道具 举报

发表于 2016-4-29 09:38 | 显示全部楼层
  1. Sub lianjie()
  2.     Dim mapth
  3.     mapth = ThisWorkbook.Path & "\专卖店区域帐13年8月前"

  4.     f = Dir(mapth)
  5.     While f <> ""
  6.         k = k + 1
  7.         Cells(k, 1) = f
  8.         f = Dir
  9.     Wend
  10.     Dim n As Integer
  11.     For n = 1 To Range("A65536").End(xlUp).Row
  12. Worksheets(1).Hyperlinks.Add Anchor:=Range("A" & n), Address:=mapth & Range("A" & n).Value, TextToDisplay:=Range("A" & n).Value
  13.     Next n
  14. End Sub
复制代码
回复

使用道具 举报

发表于 2016-4-29 09:41 | 显示全部楼层
cabcd1 发表于 2016-4-29 09:38

我的意思和2楼一样,二楼的更简洁,用二楼的吧
回复

使用道具 举报

 楼主| 发表于 2016-5-3 08:37 | 显示全部楼层
zjdh 发表于 2016-4-29 09:07
Sub liangjie()
    MYTH = "d:\专卖店区域帐13年8月前\"
    F = Dir(MYTH)

IF语句为什么没有ENDIF做收尾
回复

使用道具 举报

发表于 2016-5-3 17:46 | 显示全部楼层
wyjgni 发表于 2016-5-3 08:37
IF语句为什么没有ENDIF做收尾

如果IF ....THEN 后面紧接着结果语句(不换行),则用不着END IF 结尾。
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 13:12 , Processed in 0.268379 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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