excel批量创建表格*

来源：百度知道 编辑：UC知道 时间：2024/06/22 10:17:46
以前在知道上提问过http://zhidao.baidu.com/question/78172955.html#
有好心人帮我解答了
现在的问题是我希望创建的表格能把列宽固定在11（93像素）谁能帮我改一下

Sub 批量创建表格()
Application.ScreenUpdating = False
Set 原表 = ActiveSheet
Workbooks.Add
ActiveWindow.Zoom = 140
Cells.Font.Size = 6
'Cells.ShrinkToFit = True
Cells.ColumnWidth = 11 '///////增加行
模板文件名 = Environ("TEMP") & "\模板.xls"
ActiveWorkbook.SaveAs 模板文件名
ActiveWorkbook.Close
For 行 = 原表.UsedRange.Row To 原表.UsedRange.Row + 原表.UsedRange.Rows.Count + 1
数字 = 原表.Cells(行, 1)
If 数字 <> "" Then
Workbooks.Add 模板文件名
文件名 = "C:\" & 原表.Cells(行, 1) & ".xls"
ActiveWorkbook.SaveAs 文件名
ActiveWorkbook.Close
End If
Next
Application.ScreenUpdating = True
End Sub

将 工作表 选中

单击 格式 菜单 下的 列 选择 列宽 输入 11 即可

我把新建的文件内所有工作表都做了相同的修改，应该符合你的要求了，试试看：

Sub 批量创建表格()

Application.ScreenUpdating = False
Set 原表 = ActiveSheet
Workbooks.Add
For i = 1 To Sheets.Count
Sheets(i).Select