一个应该不难的问题（某vba中的语句，在vb中如何实现）

Question

vba中的语句
    Columns("A:A").Select
    Selection.NumberFormatLocal = "@"
    Columns("B:B").Select
    Selection.NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"
在vb中如何实现
在线等

Answer 1

'引用Microsoft Excel X.0 Object Library
Private Sub Command1_Click()
    Dim xlApp As New Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xSheet As Excel.Worksheet    Set xlBook = xlApp.Workbooks.Open("C:\Book1.xls")
    Set xSheet = xBook.Worksheets(1)    
    xlApp.Visible=True    xSheet.Columns("A:A").NumberFormatLocal = "@"
    xSheet.Columns("B:B").NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"    'xlBook.Close False
    'xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing
end sub

Answer 2

非常感谢
这么简单，当时输入xSheet.Columns("A:A").之后并没有出现属性方法列表，所以就没有继续
尝试，
请教为什么输入
xSheet.Columns("A:A").
没有出现属性方法列表，但却可以手动写出后面的东西，而且vb也会认始
不解？？？

Answer 3

faysky2() ,想在请教一下
sub a()
Private Sub Command1_Click()
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks().Add
Set xlSheet = xlBook.Worksheets("sheet1")
currentname = xlBook.name
xlApp.Worksheets("Sheet1").Activate
xlSheet.Cells(1, "a") = "a1"
..........
rewrite
end subsub rewrite()
Set xlApp = GetObject(, "excel.application")
Set xlBook = xlApp.Workbooks(currentname)
Set xlSheet = xlBook.Worksheets("Sheet1")
xlSheet.Cells(2, "a") = "a2"
end sub当没有excel打开时，正常执行
若已有excel打开，则报错，不明白啊
在rewrite中，我已Set xlBook = xlApp.Workbooks(currentname)
会报错Set xlBook = xlApp.Workbooks(currentname)行下标越界