chunchun2017 发表于 2020-4-6 11:40:19

怎样使用python在excel文件中设置超链接

本帖最后由 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)
      file_name = os.path.splitext(each_file)
      if ext in target :
            file_dict = 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)
        line+=1

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


以上代码运行结果如下：
发现点击B列的单元格，无法自动跳转打开对应的文件
因为B列中的内容，只是一个文件绝对路径，而不是一个指向文件位置的超链接
请教各位大神，需要怎样修改代码，才能让B列中写入指向文件的超链接？

墨羽岚 发表于 2020-4-6 11:43:32

支付鱼币？

chunchun2017 发表于 2020-4-6 11:49:19

墨羽岚 发表于 2020-4-6 11:43
支付鱼币？

不好意思，设置错了，已经改过来了，谢谢提醒。

墨羽岚 发表于 2020-4-6 11:52:55

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

噗{:10_247:}

珂乔乔 发表于 2020-4-6 13:34:37

也来学习一下

winsome8538 发表于 2020-4-6 13:35:41

阔以阔以

依可儿 发表于 2020-4-6 13:37:13

Excel中也可以用吗。。。

乔珂珂 发表于 2020-4-6 13:40:00

感谢楼主科普

chunchun2017 发表于 2020-4-6 13:46:49

上面的几个人都很穷吗？不帮忙还来挣鱼币。

chunchun2017 发表于 2020-4-6 13:47:25

依可儿 发表于 2020-4-6 13:37
Excel中也可以用吗。。。

你们都很穷吗？不解答还来挣鱼币。

suchocolate 发表于 2020-4-6 14:07:52

ws['A1'].hyperlink = r'C:\Users\administrator\Desktop\test.png'

snaker 发表于 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)
      file_name = os.path.splitext(each_file)
      if ext in target :
            file_dict = 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.strip())
      line+=1

workbook.close()

snaker 发表于 2020-4-6 15:54:21

或者在49行这样写也行
worksheet.write(line,2,'=HYPERLINK("%s","%s")'%(file_dict.strip(),each))

chunchun2017 发表于 2020-4-6 16:14:56

snaker 发表于 2020-4-6 15:54
或者在49行这样写也行

之前找到的都是关于xlwt和openpyxl的，没有关于xlsxwriter的，这下解决了，感谢！！！

胜在坚持 发表于 2020-4-7 20:59:31

向高手学习，{:5_92:}
页: [1]
查看完整版本: 怎样使用python在excel文件中设置超链接