从Access将Excel数据格式化为表格

我试图从Access将Excel中的数据格式化为表格，但未成功。我希望有人能告诉我我做错了什么：

第一种方式：

    Set appExcel = CreateObject("Excel.Application")
    appExcel.Visible = False
    appExcel.Workbooks.Open (strFileName)
appExcel.Workbooks(1).Sheets(lngSheet).ListObjects.Add(xlSrcRange, Range("A1:O6"), , xlYes).Name = _
                "Table1"
    appExcel.Workbooks(1).Sheets(lngSheet).ListObjects("Table1").TableStyle = "TableStyleMedium1"

第二种方式：

Dim wb As Excel.Workbook
    Dim ws As Excel.Worksheet
Set appExcel = CreateObject("Excel.Application")
    appExcel.Visible = False
    appExcel.Workbooks.Open (strFileName)

    Set wb = appExcel.Workbooks.Open(strFileName)
    Set ws = wb.Sheets(1)

ws.ListObjects.Add(xlSrcRange, Range("$A$1:$O$6"), , xlYes).Name = _
        "Table2"

    ws.ListObjects("Table2").TableStyle = "TableStyleMedium15"

第三条道路：

Dim wb As Object
    Dim ws As Object
Set appExcel = CreateObject("Excel.Application")
    appExcel.Visible = False
    appExcel.Workbooks.Open (strFileName)

    Set wb = appExcel.Workbooks.Open(strFileName)
    Set ws = wb.Sheets(1)

ws.ListObjects.Add(xlSrcRange, Range("$A$1:$O$6"), , xlYes).Name = _
        "Table2"

    ws.ListObjects("Table2").TableStyle = "TableStyleMedium15"

---

我感谢任何帮助。谢谢

我的射程不对。修正了范围，它可以工作。

不清楚你想做什么。您是否打算将表从Access导出到Excel工作簿中？或者您正在尝试对现有工作表进行更改？还是怎样请尽可能清楚。我已将报告从Access导出到Excel。然后，我打开Excel报告，并对其进行适当的格式化。不过我已经得到了我问题的答案。我的射程有点问题。