16,549
社区成员
发帖
与我相关
我的任务
分享
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
xlsApp = CreateObject("Excel.Application")
xlsBook = xlsApp.Workbooks.Add
xlsApp.Application.Visible = True
xlsSheet = xlsBook.Worksheets(1)
With xlsSheet
.Activate()
.Range("A1").Select()
.Paste()
.Cells.Select()
.Cells.EntireColumn.AutoFit()
.Range("A1").Select()
End With