030 移动并重命名工作表

移动与重命名Excel文件

最新推荐文章于 2022-12-13 20:37:08 发布

原创最新推荐文章于 2022-12-13 20:37:08 发布 · 128 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#python

数据分析同时被 2 个专栏收录

32 篇文章

订阅专栏

python

27 篇文章

订阅专栏

030 移动并重命名工作表

from pathlib import Path

old_file_path = Path(r'D:\python\111.xlsx')
new_file_path = Path(r'D:\python_file\receiving.xlsx')
old_file_path.rename(new_file_path)

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

B2_F22

关注关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

专栏目录

【pathlib 与shutil 移动和重命名使用方法的区别】

weixin_54819010的博客

03-03

743

这段代码的主要功能是将一个 Excel 文件从原文件路径移动到目标路径，如果目标路径中的文件名与原文件名不同，还会同时完成文件的重命名。这段代码的主要功能是将位于的 Excel 文件移动到指定的位置。如果主要进行路径操作和简单的文件操作，推荐使用pathlib，它的面向对象方式使代码更简洁易读。如果需要进行复杂的文件和目录操作，如复制、移动、递归操作等，shutil是更好的选择，它提供了丰富的工具函数来满足各种需求。在实际应用中，也可以将两者结合使用，充分发挥它们的优势。

用vba复制模板，并根据指定的列形成多个sheet重命名

miss zheng

09-11

3763

用vba复制模板，并根据指定的列形成多个sheet重命名

参与评论您还未登录，请先登录后发表或查看评论

Python移动，重命名文件

Suii_v5的博客

04-21

1670

重命名#文件名称为xxxxx_xx_xx.png，目的是去除两个_之间的字符串和一个_ import os, sys sourceDir = 'labels'#文件目录 sourceList = os.listdir(sourceDir)#获取该文件夹下的所有文件 for i in range(len(sourceList)): imgOldName = sourceList[i] ...

python工作簿操作汇总

m0_46388544的博客

02-10

1001

本文代码及数据集来自《超简单：用Python让Excel飞起来（实战150例）》 # 移动并重命名工作簿 from pathlib import Path old_file_path = Path('F:\\python\\第2章\\员工档案.xlsx') new_file_path = Path('F:\\table\\员工信息表.xlsx') old_file_path.rename(new_file_path) # 解析工作簿的路径信息 from pathlib import Path file.

python复制文件到指定文件夹并重命名_python文件、文件夹的移动、复制、删除、重命名...

weixin_39888268的博客

12-15

1990

import os.path ,shutilshutil.copytree("G://qqfile","G://new_qqfile")# 第一个是原来的文件夹，后面是新文件夹#导入shutil模块和os模块import shutil,os#复制单个文件shutil.copy("C://a//1.txt","C://b")#复制并重命名新文件shutil.copy("C://a//2.txt","...

Excel·VBA文件重命名、移动

最新发布

09-29

我们有两个工作簿：源工作簿（包含要复制的工作表）和目标工作簿（要添加工作表的工作簿）。要求：复制的工作表要保留所有格式（包括样式、公式、图表等）。在Excel中，可以使用“移动或复制”功能来实现，但...

在以下宏代码的基础上，增加新功能：生成的雷达图所有部分的大小、格式可以自定义；所有文字可以按部分单独修改字体、大小、颜色、加粗；所有线条可以按部分单独修改粗细、颜色、透明度；雷达轴(值)轴标签默认无；移动雷达图时如果同名工作表已存在则默认删除旧的同名工作表 Sub 批量生成雷达图() Dim wsSource As Worksheet, wsNew As Worksheet Dim lastRow As Long, lastCol As Long Dim i As Long, chartObj As ChartObject Dim chartTitle As String, wsName As String Set wsSource = ActiveSheet lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row lastCol = wsSource.Cells(1, wsSource.Columns.Count).End(xlToLeft).Column Application.ScreenUpdating = False '提高执行效率 ' 从第二行开始遍历数据 For i = 2 To lastRow ' 获取标题和工作表名称（第一列内容） chartTitle = wsSource.Cells(i, 1).Value wsName = Left(chartTitle, 31) '工作表名称最多31字符 ' 创建新工作表并重命名（处理重复名称） On Error Resume Next Application.DisplayAlerts = False Sheets(wsName).Delete '删除已存在的同名工作表 Application.DisplayAlerts = True Set wsNew = Worksheets.Add wsNew.Name = wsName On Error GoTo 0 ' 定义数据范围（包含首行标签和当前行数据） With wsSource Set rngData = Union(.Range(.Cells(1, 1), .Cells(1, lastCol)), _ .Range(.Cells(i, 1), .Cells(i, lastCol))) End With ' 创建雷达图 Set chartObj = wsSource.ChartObjects.Add(Left:=300, Width:=600, Top:=50, Height:=400) With chartObj.Chart .SetSourceData Source:=rngData .ChartType = xlRadar .HasTitle = True .ChartTitle.Text = chartTitle ' 格式设置 .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Text = "评估维度" .Axes(xlValue, xlPrimary).MaximumScale = 10 '设置最大刻度 .Axes(xlValue, xlPrimary).MinimumScale = 4 '设置最小刻度 .Axes(xlValue, xlPrimary).MajorUnit = 2 '设置主刻度间隔 ' 数据系列格式 With .SeriesCollection(1) .Format.Line.Weight = 2.5 .ApplyDataLabels ShowValue:=False End With .Legend.Clear End With ' 移动图表到目标位置 chartObj.Cut wsNew.Paste Destination:=wsNew.Range("B2") Application.CutCopyMode = False Set chartObj = Nothing Next i Application.ScreenUpdating = True MsgBox "已完成所有雷达图生成！" End Sub

07-05

移动图表时删除同名工作表的功能，现有代码已经处理了删除同名工作表，但可能需要确认是否在移动图表时也执行此操作。当前代码在创建新工作表时删除旧的，但移动图表到新工作表时是否需要同样的处理？需要确保在移动...

如何使用VBA进行多表汇总

rocket2020的博客

01-17

2244

Sub 如何使用VBA进行多表汇总() Dim AdoConn As New ADODB.Connection Dim AdoRst As ADODB.Recordset Dim strConn As String Dim strSQL As String Application.ScreenUpdating = False '设置连接字符串 strConn = " Provider=Microsoft.ACE.OLEDB.12.0;" &

Python 按条件将一个工作表拆分为多个工作簿

rocket2020的博客

01-17

1802

import xlwings as xw file_path = 'd:\\python_file\\产品统计表.xlsx' # 给出来源工作簿的文件路径 sheet_name = '统计表' # 给出要拆分的工作表的名称 app = xw.App(visible=False,add_book=False) # 启动Excel程序 workbook = app.books.open(file_path) # 打开来源工作簿

6.7 将多个工作簿数据分类汇总到一个工作簿

rocket2020的博客

05-08

1494

import os import xlwings as xw import pandas as pd app = xw.App(visible=False,add_book=False) file_path = r'D:\python_file\销售表' file_list = os.listdir(file_path) # 列出文件夹下所有文件和子文件夹的名称 collection = [] for i in file_list: # 遍历文件夹下的文件 if os.path.s

Python Shape 函数

rocket2020的博客

01-17

1310

import numpy as np k = np.matrix([[1, 2, 3, 4], [5, 6, 7, 8], [9, 10, 11, 12]]) print(np.shape(k)) # 输出（3，4）表示矩阵为3行4列 print(k.shape[0]) # shape[0]输出3，为矩阵的行数 print(k.shape[1]) # 同理shape[1]输出列数 ...

筛选一个工作簿中的所有工作表数据

rocket2020的博客

04-20

1201

import xlwings as xw import pandas as pd app = xw.App(visible=False,add_book=False) # 启动excel workbook = app.books.open(r'd:\python_file\采购表.xlsx') # 打开要处理的工作簿 worksheet = workbook.sheets # 列出工作簿中的所有工作表 table = pd.DataFrame()

批量提取一个工作簿中所有工作表的列数据

rocket2020的博客

01-27

1194

import xlwings as xw import pandas as pd app = xw.App(visible=False,add_book=False) workbook = app.books.open('d:\\python_file\\采购表.xlsx') worksheet = workbook.sheets column=['采购日期','采购金额'] # 指定要提取的列的列标题 data = [] for i in worksheet: values = i.range

VBA禁止更改工作表名称

rocket2020的博客

05-22

1110

'VBA禁止更改工作表名称 Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range) If Sheet16.Name <> "数据" Then Sheet16.Name = "数据" ThisWorkbook.Save End Sub