[已解决]vba 更改文件夹内电子表格的指定列的列宽

dxqingyue

有多个文件夹，每个里面有几百个excel文件。只有调整指定B列的列宽才可以在A4纸打印出来。一个个的改太麻烦了，求助高人给指个简单的方法以。谢谢了

最佳答案

月排行榜 / 总排行榜

爱疯

2013-1-16 14:49

Sub test()
    Set rrr = CreateObject("Scripting.FileSystemObject")
    Set r = rrr.GetFolder("D:\打印\")
    For Each i In r.Files
        Workbooks.Open Filename:=("D:\打印\" + i.Name + "")
        ActiveSheet.Columns("A:H").ColumnWidth = 10.75
        ActiveSheet.PageSetup.PrintArea = ""
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        ActiveWindow.Close saveChanges:=False
    Next
End Sub


添加后，可以吗

跳转到最佳答案楼层

zyouong

你一个一个打印也够你受的呀

E路人

若表格的格式是一样，建议采用工作组

dxqingyue

谢谢大家的关心，刚才浏览时看到wayy版主的把多个文件汇总到一个文件中的方法，受到启迪。先把文件汇总到一个文件内，然后全选所有工作表调整指定列的列宽，直接打印就行了。
文件位置：http://www.excelpx.com/thread-155844-1-1.html
不过我还是希望通过直接的方法来实现，大家一起想想办法。

爱疯

不理解要做什么。

从这几百个excel文件中，挑几个上传看看？

dxqingyue

就是每一个文件都得调整，才能在一张A4上打印出来内容见附件 新建文件夹.rar (15.97 KB, 下载次数: 10)

2013-1-14 14:13 上传

点击文件名下载附件

爱疯

假如不存在的列宽过大，你怎么打印每个文件呀？

dxqingyue

通过VBA实现
Sub test()
Set rrr = CreateObject("Scripting.FileSystemObject")
Set r = rrr.GetFolder("D:\打印\")
For Each i In r.Files
Workbooks.Open Filename:=("D:\打印\" + i.Name + "")
    ActiveSheet.PageSetup.PrintArea = ""
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWindow.Close saveChanges:=False
Next
End Sub

爱疯

Sub test()
    Set rrr = CreateObject("Scripting.FileSystemObject")
    Set r = rrr.GetFolder("D:\打印\")
    For Each i In r.Files
        Workbooks.Open Filename:=("D:\打印\" + i.Name + "")
        ActiveSheet.Columns("A:H").ColumnWidth = 10.75
        ActiveSheet.PageSetup.PrintArea = ""
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
        ActiveWindow.Close saveChanges:=False
    Next
End Sub


添加后，可以吗

dxqingyue

没有问题了，测试成功。谢谢！