批量转置的问题

谢玉红

附件 批量转置附件.rar (345.44 KB, 下载次数: 13)

2023-4-15 06:40 上传

点击文件名下载附件

谢谢老师！

mmwwdd

谢玉红

mmwwdd 发表于 2023-4-15 07:02

老师你好。谢谢帮助。试了一下，倒数第二行那个  竖 号过不了。
如果 竖号 不要，运行后，工作薄就打不开了。

mmwwdd

谢玉红 发表于 2023-4-15 11:08
老师你好。谢谢帮助。试了一下，倒数第二行那个  竖 号过不了。
如果 竖号 不要，运行后，工作薄就打不 ...

那是光标，不要写

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, f, wkb As Workbook, p$
    Application.ScreenUpdating = False
    p = ThisWorkbook.Path & "\"
    For Each f In CreateObject("Scripting.FileSystemObject").GetFolder(p).Files
        If f.Name Like "*.xlsb" Then
            With Workbooks.Open(f)
                With .Sheets(1)
                    ar = Application.Transpose(.UsedRange)
                    .Cells.Clear
                    .[A1].Resize(UBound(ar), UBound(ar, 2)) = ar
                End With
                .Close True
            End With
        End If
    Next
    Application.ScreenUpdating = True
End Sub

gwjkkkkk

请参考 。。。

yynrzwh

谢玉红 发表于 2023-4-15 11:08
老师你好。谢谢帮助。试了一下，倒数第二行那个  竖 号过不了。
如果 竖号 不要，运行后，工作薄就打不 ...

取消隐藏。
使用getobject后会隐藏窗口