Excel VBA 从导入的工作表中删除列

Question

我正在使用此代码从关闭的文件中导入工作表。导入完成后，我想从该工作表中删除一列并切换回主工作表。我尝试使用 Columns(4).Delete 和 EntireColumns.Delete 但没有错误并且 Excel 不采取任何措施。关于更好的方法我可以做到这一点的任何想法？

'THIS CODE HANDLES THE IMPORT OF THE DATA
Sub ImportFile()

    'DEFINITIONS
    Dim fileImport As String
    Dim srcBook As Workbook

    ' TURNS OFF SCREEN UPDATING
    Application.ScreenUpdating = False
    Application.EnableEvents = False

    ' THE FILE PATH
    fileImport = "PATH"
    'OPENS THE BOOK
    Set sourceB = Application.Workbooks.Open(fileImport)
    'COPYS THE SHEET
    sourceB.Sheets("Miscellaneous Holds").Copy After:=ThisWorkbook.Sheets    (ThisWorkbook.Sheets.Count)

    ' CLOSES THE BOOK
    srcBook.Close True

    'ENABLES SCREEN EDIT
    Application.ScreenUpdating = True
    Application.EnableEvents = True

    Sheets("Main").Activate

End Sub

Answer 1

如果您没有在 Columns(4).EntireColumn.Delete 声明中正确限定工作表，这可能不起作用...

所以改用sourceB.Sheets("Miscellaneous Holds").Columns(4).EntireColumn.Delete....

如果您不希望将这些更改保存在源工作簿中，请将 saveChanges 参数更改为 false。

---

'THIS CODE HANDLES THE IMPORT OF THE DATA
Sub ImportFile()

    'DEFINITIONS
    Dim fileImport As String
    Dim srcBook As Workbook
    Dim srcSheet As Worksheet

    ' TURNS OFF SCREEN UPDATING
    Application.ScreenUpdating = False
    Application.EnableEvents = False

    ' THE FILE PATH
    fileImport = "PATH"
    'OPENS THE BOOK
    Set srcBook = Application.Workbooks.Open(fileImport)

    Set srcSheet = sourceB.Sheets("Miscellaneous Holds")

    srcSheet.Columns(4).EntireColumn.Delete

    'COPYS THE SHEET
    srcSheet.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

    ' CLOSES THE BOOK
    srcBook.Close False

    'ENABLES SCREEN EDIT
    Application.ScreenUpdating = True
    Application.EnableEvents = True

    ThisWorkbook.Sheets("Main").Activate

End Sub