时间戳

首页 > 解决方案 > 使用vba将原始数据转换为excel中的表格

excel - 使用vba将原始数据转换为excel中的表格

问题描述

我想使用vba将我的数据转换为excel中的表格格式代码执行必须通过调用源文件从不同的工作表完成并且范围必须是动态的

这是我尝试过的代码

    Sub converttbl()

    Dim OpenWb As Workbook
    Set OpenWb = Workbooks.Open("C:\Users\user\Desktop\data.xlsb")
    Dim wsData As Worksheet
    Set wsData = OpenWb.Worksheets("Data")
      Set wsData = ActiveSheet

ActiveSheet.Range("A1").Select

Application.CutCopyMode = False
ActiveSheet.ListObjects.Add(xlSrcRange, _
Range("A1", Range("A1").End(xlToRight).End(xlDown)), , xlYes).Name _
    = "Table1"

MsgBox "Execution completed"


End Sub

标签： excelvba

解决方案

感谢您的支持...下面的代码将用于将动态范围的数据转换为表格

Sub converttbl()

    Dim OpenWb As Workbook
    Set OpenWb = Workbooks.Open("C:\Users\user\Desktop\data.xlsb")
    Dim wsData As Worksheet
    Set wsData = OpenWb.Worksheets("Data")
OpenWb.Worksheets("Data").Range("A1").Select
ActiveSheet.ListObjects.Add(xlSrcRange, Selection.CurrentRegion, , xlYes).Name = _
    "MyTable"
MsgBox "Execution completed"


End Sub

推荐阅读