將Excel數據格式化爲Access中的表格

我試圖在Excel中將數據格式化爲Access中的表格。我希望有人能告訴我，我做錯了什麼：將Excel數據格式化爲Access中的表格

第一種方式：

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"

我欣賞任何協助。謝謝！

來源

2017-02-24 user7618593

不清楚你想要做什麼。您是否打算從Access中將表格導出到Excel工作簿中？或者您是否想要更改現有的工作表？或者是什麼？請儘可能清楚。 –

我將報告從Access導出到Excel中。然後，我打開Excel報告並適當地格式化它們。儘管我已經得到了我的問題的答案。我的範圍出了問題。 – user7618593

我的範圍是錯誤的。修正了範圍，它的工作原理。

來源

2017-02-27 15:25:34 user7618593

將Excel數據格式化爲Access中的表格

回答

相關問題