VB text导入excel的问题

Question

本帖最后由 bcrun 于 2010-11-06 14:02:10 编辑

Answer 1

本帖最后由 bcrun 于 2010-11-06 14:01:21 编辑

  

Answer 2

xlbook.DisplayAlerts = False 
xlbook.Save
xlbook.Close
xlapp.Quit
  Set xlbook = Nothing
 Set xlapp= Nothing

Answer 3

xlapp.DisplayAlerts = False '不提示保存

Answer 4

菜单：工程->引用->Microsoft Excel...Private Sub Command1_Click()
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet  xlapp.Visible = False
  Set xlbook = xlapp.Workbooks.Open("D:\temp\bb.xls")
  Set xlsheet = xlbook.Worksheets(1)
    
  Static i As Integer
  For i = 1 To i
  xlsheet.Cells(i + 1, 1) = Val(Text1.Text) '将text赋给第一列第一行 以后每次行加一
  xlsheet.Cells(i + 1, 2) = Val(Text2.Text) '将text赋给第二列第一行 以后每次行加一
  Next i
    
    
 xlbook.DisplayAlerts = False
 xlbook.Save
 xlbook.Close
 xlapp.Quit
  Set xlbook = Nothing
 Set xlapp= Nothing

Answer 5

菜单：工程->引用->Microsoft Excel 11.0 Object...

Answer 6

http://download.csdn.net/source/2341786

Answer 7

Private Sub Command1_Click()
    Dim xlapp As New Excel.Application
    Dim xlbook As New Excel.Workbook
    Dim xlsheet As New Excel.Worksheet
    
    xlapp.Visible = False
    Set xlbook = xlapp.Workbooks.Open("D:\temp\bb.xls")
    Set xlsheet = xlbook.Worksheets(1)
    
    Static i As Integer
    For i = 1 To i
        xlsheet.Cells(i + 1, 1) = Val(Text1.Text) '将text赋给第一列第一行 以后每次行加一
        xlsheet.Cells(i + 1, 2) = Val(Text2.Text) '将text赋给第二列第一行 以后每次行加一
    Next i
    
    xlbook.DisplayAlerts = False
    xlbook.Save
    xlbook.Close
    xlapp.Quit
    Set xlbook = Nothing
    Set xlapp = Nothing
End Sub

Answer 8

注意加New关键字

Answer 9

要想不出提示，我还有个办法xlbook.Save
这句改用xlbook.saveas yourname这样就不会有提示了

Answer 10

 xlapp.DisplayAlerts = False

Answer 11

本帖最后由 bcrun 于 2010-11-06 14:03:08 编辑