[已解决]怎么做数据导出为单独一份表格

透明世界1987

数据导出.zip (326.46 KB, 下载次数: 10)

2022-5-16 11:07 上传

点击文件名下载附件 把当前表格内数据导出为一份新表格，并存在桌面，新表格为普通表格

最佳答案

月排行榜 / 总排行榜

zjdh

2022-5-16 12:40

Sub TEST()
  ARR = Range("B7:O" & Range("B65536").End(3).Row)
  With Workbooks.Add
  ActiveSheet.Range("A1").Resize(UBound(ARR), UBound(ARR, 2)) = ARR
  ActiveSheet.UsedRange.Columns.AutoFit
  .SaveAs ThisWorkbook.Path & "\" & ARR(2, 2) & "-数据表.xlsx"
  .Close
  End With
  MsgBox "数据已保存在： " & ThisWorkbook.Path & " 文件夹下。"
End Sub

跳转到最佳答案楼层

zjdh

Sub TEST()
  ARR = Range("B7:O" & Range("B65536").End(3).Row)
  With Workbooks.Add
  ActiveSheet.Range("A1").Resize(UBound(ARR), UBound(ARR, 2)) = ARR
  ActiveSheet.UsedRange.Columns.AutoFit
  .SaveAs ThisWorkbook.Path & "\" & ARR(2, 2) & "-数据表.xlsx"
  .Close
  End With
  MsgBox "数据已保存在： " & ThisWorkbook.Path & " 文件夹下。"
End Sub