鱼C论坛

 找回密码
 立即注册
查看: 7155|回复: 14

[已解决]怎样使用python在excel文件中设置超链接

[复制链接]
发表于 2020-4-6 11:40:19 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
本帖最后由 chunchun2017 于 2020-4-6 11:50 编辑

工作中,有一个需求,就是要将指定目录及子目录下的所有.txt文件路径找出来,写入excel表中,并且需要在excel表中设置超链接的形式,这样点击超链接,就可以打开文件了
编写代码如下:
import os
import xlwt 
import openpyxl
import time

def search_file(start_dir, target) :
    os.chdir(start_dir)
    
    for each_file in os.listdir(os.curdir) :
        ext = os.path.splitext(each_file)[1]
        file_name = os.path.splitext(each_file)[0]
        if ext in target :
            file_dict[file_name] = os.getcwd() + os.sep + each_file + os.linesep # 使用os.sep是程序更标准
        if os.path.isdir(each_file) :
            search_file(each_file, target) # 递归调用
            os.chdir(os.pardir) # 递归调用后切记返回上一层目录

#start_dir = input('请输入待查找的初始目录:')
start_dir = 'D:\python代码'
#orig_dir = os.getcwd()

target = ['.txt']
file_dict = {}


#写入excel表
line = 1
row = 0
workbook = xlwt.Workbook()
sheet = workbook.add_sheet('文件清单',cell_overwrite_ok=True)

search_file(start_dir, target)


#设置excel表第一行标题格式
style = xlwt.XFStyle()
fnt = xlwt.Font()
fnt.bold = True
style.font = fnt
sheet.write(0,0,'文件名',style)
sheet.write(0,1,'链接',style)


#从第1行开始,向excel表中写入文件名及其路径
for each in file_dict.keys():
        sheet.write(line,0,each)
        sheet.write(line,1,file_dict[each])
        line+=1

#保存excel文件
timest = '文件台账'+str(time.localtime().tm_min)+str(time.localtime().tm_sec)+'.xls'        
workbook.save(timest)

以上代码运行结果如下:
发现点击B列的单元格,无法自动跳转打开对应的文件
因为B列中的内容,只是一个文件绝对路径,而不是一个指向文件位置的超链接
请教各位大神,需要怎样修改代码,才能让B列中写入指向文件的超链接?
最佳答案
2020-4-6 15:38:32
使用xlsxwriter库
import os
import xlwt 
import openpyxl
import time

import xlsxwriter       #使用这个库创建excel

def search_file(start_dir, target) :
    os.chdir(start_dir)
    
    for each_file in os.listdir(os.curdir) :
        ext = os.path.splitext(each_file)[1]
        file_name = os.path.splitext(each_file)[0]
        if ext in target :
            file_dict[file_name] = os.getcwd() + os.sep + each_file + os.linesep # 使用os.sep是程序更标准
        if os.path.isdir(each_file) :
            search_file(each_file, target) # 递归调用
            os.chdir(os.pardir) # 递归调用后切记返回上一层目录

#start_dir = input('请输入待查找的初始目录:')
start_dir = 'D:\python代码'
#orig_dir = os.getcwd()

target = ['.txt']
file_dict = {}

#写入excel表
line = 1
row = 0

timest = '文件台账'+str(time.localtime().tm_min)+str(time.localtime().tm_sec)+'.xlsx'

workbook = xlsxwriter.Workbook(timest)
worksheet = workbook.add_worksheet('文件清单')
#设置第一列第二列的宽度
worksheet.set_column('A:A', 20)
worksheet.set_column('B:B', 50)

search_file(start_dir, target)

#设置excel表第一行标题格式
style = workbook.add_format({'bold': True})     #加粗
worksheet.write(0,0,'文件名',style)
worksheet.write_url(0,1,'链接',style)

#从第1行开始,向excel表中写入文件名及其路径
for each in file_dict.keys():
        worksheet.write(line,0,each)
        worksheet.write_url(line,1,file_dict[each].strip())
        line+=1

workbook.close()
1.png
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2020-4-6 11:43:32 | 显示全部楼层
支付鱼币?

评分

参与人数 1鱼币 +5 收起 理由
chunchun2017 + 5 谢谢提醒

查看全部评分

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-4-6 11:49:19 | 显示全部楼层

不好意思,设置错了,已经改过来了,谢谢提醒。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2020-4-6 11:52:55 | 显示全部楼层

回帖奖励 +5 鱼币

chunchun2017 发表于 2020-4-6 11:49
不好意思,设置错了,已经改过来了,谢谢提醒。

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2020-4-6 13:34:37 | 显示全部楼层

回帖奖励 +5 鱼币

也来学习一下
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2020-4-6 13:35:41 | 显示全部楼层
阔以阔以  
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2020-4-6 13:37:13 | 显示全部楼层

回帖奖励 +5 鱼币

Excel中也可以用吗。。。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2020-4-6 13:40:00 | 显示全部楼层
感谢楼主科普
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-4-6 13:46:49 | 显示全部楼层
上面的几个人都很穷吗?不帮忙还来挣鱼币。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-4-6 13:47:25 | 显示全部楼层
依可儿 发表于 2020-4-6 13:37
Excel中也可以用吗。。。

你们都很穷吗?不解答还来挣鱼币。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2020-4-6 14:07:52 | 显示全部楼层
ws['A1'].hyperlink = r'C:\Users\administrator\Desktop\test.png'
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2020-4-6 15:38:32 | 显示全部楼层    本楼为最佳答案   
使用xlsxwriter库
import os
import xlwt 
import openpyxl
import time

import xlsxwriter       #使用这个库创建excel

def search_file(start_dir, target) :
    os.chdir(start_dir)
    
    for each_file in os.listdir(os.curdir) :
        ext = os.path.splitext(each_file)[1]
        file_name = os.path.splitext(each_file)[0]
        if ext in target :
            file_dict[file_name] = os.getcwd() + os.sep + each_file + os.linesep # 使用os.sep是程序更标准
        if os.path.isdir(each_file) :
            search_file(each_file, target) # 递归调用
            os.chdir(os.pardir) # 递归调用后切记返回上一层目录

#start_dir = input('请输入待查找的初始目录:')
start_dir = 'D:\python代码'
#orig_dir = os.getcwd()

target = ['.txt']
file_dict = {}

#写入excel表
line = 1
row = 0

timest = '文件台账'+str(time.localtime().tm_min)+str(time.localtime().tm_sec)+'.xlsx'

workbook = xlsxwriter.Workbook(timest)
worksheet = workbook.add_worksheet('文件清单')
#设置第一列第二列的宽度
worksheet.set_column('A:A', 20)
worksheet.set_column('B:B', 50)

search_file(start_dir, target)

#设置excel表第一行标题格式
style = workbook.add_format({'bold': True})     #加粗
worksheet.write(0,0,'文件名',style)
worksheet.write_url(0,1,'链接',style)

#从第1行开始,向excel表中写入文件名及其路径
for each in file_dict.keys():
        worksheet.write(line,0,each)
        worksheet.write_url(line,1,file_dict[each].strip())
        line+=1

workbook.close()

评分

参与人数 1荣誉 +5 鱼币 +5 贡献 +3 收起 理由
chunchun2017 + 5 + 5 + 3 非常感谢!在网上找了好久,找到的都是关于.

查看全部评分

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 2 反对 0

使用道具 举报

发表于 2020-4-6 15:54:21 | 显示全部楼层
或者在49行这样写也行
worksheet.write(line,2,'=HYPERLINK("%s","%s")'%(file_dict[each].strip(),each))
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-4-6 16:14:56 | 显示全部楼层
snaker 发表于 2020-4-6 15:54
或者在49行这样写也行

之前找到的都是关于xlwt和openpyxl的,没有关于xlsxwriter的,这下解决了,感谢!!!
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2020-4-7 20:59:31 | 显示全部楼层
向高手学习,
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-11-26 04:46

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

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