sharepoint-2010 - 基準に応じてExcelの重複列を削除するExcel vba

Question

このリンクhttps://sharepoint.stackexchange.com/questions/29021/import-sharepoint-list-into-excel-using-vba-onlyを見つけました。このリンク を使用して、SharePoint 2010 リスト項目を Excel 2010 にエクスポートする作業を自動化することに成功しています。 . SharePoint データを含む Excel シートを取得できました。問題は、SharePoint リストのフィールドとして ID を既に持っていることです。vbaコードはID（自動インクリメンタル）を自動生成し、Excelファイルに追加します。現在、Excel に 2 つの ID フィールド名があります。Excel vba 自動生成 ID を取り除き、SharePoint リストからフィールド名 (ID はそのうちの 1 つ) のみを取得したいと考えています。どうすればいいですか？ありがとう。

Sub TestMacro() 
Dim objMyList As ListObject 
Dim objWksheet As Worksheet 
Dim strSPServer As String 
Const SERVER As String = "http://abcd/" 
Const LISTNAME As String = "{A486016E-80B2-44C3-8B4A-8394574B9430}" 
Const VIEWNAME As String = "" 
' The SharePoint server URL pointing to 
' the SharePoint list to import into Excel. 
strSPServer = "http://" & SERVER & "/_vti_bin" 
' Add a new worksheet to the active workbook. 
Set objWksheet = Worksheets.Add 
' Add a list range to the newly created worksheet 
' and populated it with the data from the SharePoint list. 
    Set objMyList = objWksheet.ListObjects.Add(xlSrcExternal, _ Array(strSPServer,    LISTNAME, VIEWNAME),  
True, , Range("a1")) 
Set objMyList = Nothing 
Set objWksheet = Nothing 
End Sub