AccessからテーブルとしてExcelデータをフォーマットする

Question

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" 

任意の援助。ありがとう！

Answer 1

私の範囲が間違っていました。範囲を修正し、動作します。