vue访问完整外部链接数据_【Excel小技巧】链接外部数据的五个方法

链接并抓取外部数据的方法集合：
1. 函数 HyperLink （Win10 复制路径/非Win10）
2. 添加链接（Ctrl+K）
3. VBA Workbooks.Open
4. VBA GetObject
5. VBA ADO外部链接

文件资料链接
1.秦川：如何在Excel中快速创建文件的超级链接？ （关注点：DOS命令行获取文档路径）
2.秦川：技巧51 如何在Excel中快速创建文件的快捷链接 （Win10专用 - 视频版）
3.办公中，把 Excel 函数用到极致是怎样一种体验？
4.Steven：【Excel VBA】- 批量插入文件超链接 （关注点： 添加批量删除超链接）
5.每天遇见都是美好：用Excel做目录，最简单的方法！

A.HyperLink (专属Win10使用)
1）选中文件
2) 复制路径
3）粘贴到Excel文件
选中所需文件 - 复制路径

粘贴路径到Excel - 引用HyperLink函数

B. 非Win10系统
1） 直接复制路径
2） 打开浏览器 - 选中网址输入栏
3） 右击 - 粘贴并转到
4） 复制所有路径下的文件
5） 添加文件路径
6） 用HyperLink函数链接

直接复制路径

打开浏览器 - 选中网址输入栏 - 粘贴并转到：

选中并复制路径下的所有文件：

添加路径 （如F列）- 再用HyperLink函数链接：

C. VBA 制作目录（1）- HypeLink函数

Sub ml()Dim sht As Worksheet, i as long, shtname as string Columns(1).ClearContentsCells(1, 1) = "目录"i = 1For Each sht In Worksheetsshtname = sht.NameIf shtname <> ActiveSheet.Name Theni = i + 1ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="",SubAddress:="'" & shtname & "'!a1",TextToDisplay:=shtnameEnd IfNext
End Sub

D. VBA 制作目录（2） - 工作簿事件

Private Sub Worksheet_Activate()
Dim Sht as Worksheet
Dim I as long With Thisworkbook.ActiveSheet.range("A1") = "目录".Range("A2").currentregion.ClearContents
End With I =1For Each Sht as WorksheetsIf  Sht.name <> Activesheet.name then ActiveSheet.Cells(I,1).value = Sht.NameI = I + 1End if 
NextEnd Sub Private Sub WorkSheet_SelectionChange(Byval Target As Range)
Dim Irow as longIrow = ActivateSheet.Range("A65536").end(xlup).row
On Error Resume Next If Target.Count = 1 and Target.Column = 1 and Target.Row > 1 then Sheets(Range.text).select
End if End Sub

E. VBA 工作簿显性打开

Sub Test()
Dim Wb as Workbook
Dim Path as String 
Application.screenupdate= false 
Path = ""
Set Wb = workbooks.open(Path)' 该干嘛就干嘛Wb.Close
Set Wb = nothing
Application.screenupdate= trueEnd Sub 

F. VBA 工作簿隐形打开

Sub Test1()
Dim Wb as Workbook
Dim Path as String Path =""
Set Wb =getobject(Path)’该干嘛就干嘛Wb.Close
Set Wb = nothingEnd Sub

G. VBA ADO 外部链接

Sub Test2()
Dim Conn as New Connection
Dim Sql as string Conn.Open "Provider = Microsoft.ACE.OLEDB.12.0;extended properties=excel 8.0;data source=" & ThisWorkbook.path & "/Database/Database.xls"
Sql = "Select * from [Sheet1$]" '你想干嘛就干嘛Range("A2").Currentregion.ClearContents
Range("A2").Copyfromrecordset Conn.Execute(Sql)Conn.Close
Set Conn = nothing End Sub 

H. VBA FSO文本文档外部链接

Sub Test3()
Dim tx as stringOn Error Resume Next
tx = ThisWorkbook.Path & "读入的文本.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(tx, 1)
a = f.readall
f.Close'想干嘛就干嘛End Sub

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！