请教：如何用vb控制删除excel的一个列啊？

Question

如要删除整个B列，如何操作啊？

Answer 1

因为用xSheet.Range("A2:A2").CopyFromRecordset Adodc1.Recordset
填充出来的数据中有数据库中的ID列，想把它删除掉，改列位于B列！

Answer 2

Option ExplicitDim oApp As Object
Dim XlsBook As Object
Dim XlsSheet As ObjectPrivate Sub Command1_Click()
  XlsSheet.Columns("B:B").Select
  oApp.Selection.Delete Shift:=xlToLeft
End SubPrivate Sub Form_Load()
  Dim i%
  
  Command1.Caption = "删除B列"
  
  Set oApp = CreateObject("EXCEL.Application")
  oApp.Visible = True
  
  Set XlsBook = oApp.Workbooks.Add
  Set XlsSheet = XlsBook.Sheets(1)
  
  For i% = 1 To 100
    XlsSheet.Cells(i%, 2) = "B" & CStr(i%)
    XlsSheet.Cells(i%, 3) = "C" & CStr(i%)
  Next
  
  Me.Hide
  Me.ShowEnd Sub

Answer 3

另外还有一个问题:
我在家里安装的是excel2003,程序里面执行删除 sheet1操作时候excel不会提示.正常删除.
但是拷贝到公司电脑,安装的是excel2000,执行删除操作时候excel提示 "将永久性删除选定的工作表"要点 确定?取消.
问:可以在程序里面控制直接删除而不让excel 提示呢?

Answer 4

其实可以不必删除列的~~把它隐藏就可以了~
ex.Range("a2").ColumnWidth = 0

Answer 5

另外还有一个问题:
我在家里安装的是excel2003,程序里面执行删除 sheet1操作时候excel不会提示.正常删除.
但是拷贝到公司电脑,安装的是excel2000,执行删除操作时候excel提示 "将永久性删除选定的工作表"要点 确定?取消.
问:可以在程序里面控制直接删除而不让excel 提示呢?