如何批量工作簿的指定工作名编辑及排版

fengyunjay2004 · 发表于 2023-3-27 10:27

本帖最后由 fengyunjay2004 于 2023-3-27 13:40 编辑

怎么批量工作簿的指定工作名，如何批量指定调整行高及列宽？请看附件，谢谢大佬们，急需要

可能我说的不够清楚，附件中所有工作簿的指定工作表叫报验单，然后再调整行高及列宽我已经标黄色完成的文件是我想要这样的，尤其是报验单表

魚。。 · 发表于 2023-3-27 11:20

运行此表中的按钮

fengyunjay2004 · 发表于 2023-3-28 09:25

求助啊大佬们大神们

高个子 · 发表于 2023-3-28 09:30

2楼VBA给你解决了还求助啥？

fengyunjay2004 · 发表于 2023-3-28 14:07

高个子发表于 2023-3-28 09:30
2楼VBA给你解决了还求助啥？

没有解决啊

高个子 · 发表于 2023-3-28 14:34

fengyunjay2004 发表于 2023-3-28 14:07
没有解决啊

Option Explicit
Sub Fish()
Dim fp$, fn$, Savename$
Dim wb As Workbook
fp = ThisWorkbook.Path & ""
fn = Dir(fp & "*.xls*")
Application.ScreenUpdating = False
Do While fn <> ""
If fn <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(fp & fn)
wb.Sheets("报验单").Rows("7:7").RowHeight = 31
wb.Sheets("报验单").Rows("21:21").RowHeight = 36
wb.Sheets("报验单").Columns("G:G").ColumnWidth = 6
wb.Sheets("报验单").Rows("38:38").RowHeight = 51
Savename = Split(fn, ".")(0) & "-已完成." & Split(fn, ".")(1)
wb.SaveAs fp & "完成的文件" & Savename
wb.Close False
End If
fn = Dir
Loop
Application.ScreenUpdating = True
MsgBox "已另存至“完成的文件”文件夹中，并改名。", vbInformation, "提示信息"
End Sub

复制代码

高个子 · 发表于 2023-3-28 14:34

木饰面.zip (95.93 KB, 下载次数: 5)

fengyunjay2004 · 发表于 2023-3-28 14:56

高个子发表于 2023-3-28 14:34

谢大佬~~~~~~~

		自动登录	找回密码
密码			免费注册

[求助] 如何批量工作簿的指定工作名编辑及排版

评分

评分

[求助] 如何批量工作簿的指定工作名 编辑及排版

评分

评分

[求助] 如何批量工作簿的指定工作名编辑及排版