我用excel 链接它自身的另一个表的数据测试可以用,可是吧excel文件换个位置就不行了。
是不是在连数据的时候要用相对路径呢?
请高人指点
我连的表比较多。不可能没换个地方有趣更改它的路径啊,
我希望 把那个excel文件拷贝到哪 都能直接用,有办法吗?
去掉sql语句中的 文件路径 他就提示 找不到表了啊
我用excel 链接它自身的另一个表的数据测试可以用,可是吧excel文件换个位置就不行了。
答案:4 悬赏:10 手机版
解决时间 2021-01-03 08:13
- 提问者网友:蓝琪梦莎
- 2021-01-03 01:34
最佳答案
- 五星知识达人网友:人類模型
- 2021-01-10 01:05
是不是想建目录链接到各工作表上,准确的说是跳转。试试下面宏
Public Sub CreateBookList()
Dim xSheet As Worksheet
Dim oSheet As Worksheet
Dim rCount As Long
Set oSheet = Application.ActiveWorkbook.Sheets.Add
With oSheet
.Name = "目录"
.Tab.ColorIndex = 27
End With
rCount = 1
For Each xSheet In Application.ActiveWorkbook.Sheets
If Not (oSheet Is xSheet) Then
oSheet.Hyperlinks.Add oSheet.Cells(rCount, 1), "#'" & xSheet.Name & "'!A1", , "单击跳转到" & xSheet.Name, xSheet.Name
rCount = rCount + 1
End If
Next
End Sub
Public Sub CreateBookList()
Dim xSheet As Worksheet
Dim oSheet As Worksheet
Dim rCount As Long
Set oSheet = Application.ActiveWorkbook.Sheets.Add
With oSheet
.Name = "目录"
.Tab.ColorIndex = 27
End With
rCount = 1
For Each xSheet In Application.ActiveWorkbook.Sheets
If Not (oSheet Is xSheet) Then
oSheet.Hyperlinks.Add oSheet.Cells(rCount, 1), "#'" & xSheet.Name & "'!A1", , "单击跳转到" & xSheet.Name, xSheet.Name
rCount = rCount + 1
End If
Next
End Sub
全部回答
- 1楼网友:不甚了了
- 2021-01-10 02:30
是的,就是用相对路径。把绝对路径去掉就可以了。
用查找替换的方式就可以把公式中的绝对路径去掉。
- 2楼网友:神的生死簿
- 2021-01-10 02:22
不会 宏
不过excel里超链接用那个可以
- 3楼网友:天凉才是好个秋
- 2021-01-10 02:08
我给你一个QQ号你问他吧!765304842他可是微软认证的多媒体工程师
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯