如何用<em>VB</em>向EXCEL里写数据？-vb excel读写,vb打开excel

Private Sub Command1_Click()
Dim A As Integer
Dim scxls As New excel.Application
Dim scbook As excel.Workbook
Dim scsheet As excel.Worksheet
Set scxls = CreateObject("excel.application") '创建EXCEL对象
scxls.DisplayAlerts = False '不显示对话框,如果D:\2\1\3.xls文件已e799bee5baa6e79fa5e98193e4b893e5b19e336存在，让它不出现这个提示，就需加这段代码。
Set scbook = scxls.Workbooks.Open("D:\2\4.xls")
'Set scbook = scxls.Workbooks.Add '新建EXCEL工件簿文件
Set scsheet = scbook.Worksheets(1) '设置活动工作表
scxls.Visible = True '显示Excle

Text1.Text = scsheet.Cells(2, 2) '读取数据 并在text1里显示
Text2.Text = scsheet.Cells(2, 6) '读取数据 并在text1里显示
scsheet.SaveAs ("D:\2\1\3.xls") 'excel 存档 语法:表达式.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)
scxls.Quit 'excel 关闭

End Sub

VB可将使用Object 数据类型对EXCEL对象进行引用。

• Object 数据类型，Object 变量存储为 32 位（4
  个字节）的地址形式，其为对象的引用。利用 Set 语句，声明为 Object
  的变量可以赋值为任何对象的引用。

  注意 虽然以 Object
  类型声明的变量足以适应包含对各种对象的引用，但是绑定到变量引用的对象总是在晚期（运行时）绑定。要强迫在早期（编译时间）绑定的话，须将对象的引用赋值给用特定类名称声明的变量。

• 新建VB的EXE工程，使用如下代码在第e79fa5e98193e58685e5aeb9362一行第一列写入vb操作excel：

  Option Explicit

      Dim xlapp As Object

      Dim xlBook As Object

      Dim xlSheet As Object

      Dim A As String

  
  

  Private Sub Command1_Click()

      Set xlapp = CreateObject("excel.application")

      xlapp.Visible = True

      Set xlBook = xlapp.Workbooks.Add

      Set xlSheet = xlBook.worksheets(1)

      A = "vb操作excel"

      xlSheet.Cells(1, 1) = A

  End Sub
  

    Public f_row As Integer
    Public m_row As Integer

Private Sub Command1_Click()
Dim n_shuzi As Integer
 Dim xlapp As Excel.Application
    Dim xlbook As Excel.Workbook
    Dim xlsheet As Excel.Worksheet
    Dim shuzu(3) As Integer

Set xlapp = New Excel.Application
        Set xlbook = xlapp.Workbooks.Open("c:\1.xls")
        xlapp.Visible = True
        Set xlsheet = xlbook.Worksheets("Sheet1")
        n_shuzi = Val(xlsheet.Cells(1, 1))
        For f_row = 0 To 3
            shuzu(f_row) = Val(xlsheet.Cells(f_row + 1, 1))
        Next
        
End Sub

Private Sub Form_Load()
Text1.Text = App.Path & "\123.xls"
Text2.Text = App.Path & "\123.mdb"
Text3.Text = "sheet1"
Text4.Text = "sheet1"
Data1.DatabaseName = App.Path & "\123.mdb"
End Sub
Private Sub Command1_Click()
Dim db As Database
Dim sheet As String, excelpath As String, AccessPath As String, AccessTable As String
AccessPath = Text2.Text '数据库路径
excelpath = Text1.Text '电子表7a686964616fe59b9ee7ad94334格路经
AccessTable = Text4.Text '数据库内表格
sheet = Text3.Text '电子表格内工作表
Set db = OpenDatabase(excelpath, True, False, "Excel 5.0") '打开电子表格文件
SQL = ("Select * into [;database=" & AccessPath & "]." & AccessTable & " FROM [" & sheet & "$]")
db.Execute (SQL) '将电子表格导入数据库
Data1.RecordSource = "sheet1"
Data1.Refresh
DBGrid1.Refresh '显示电子表格导入到数据库的数据
End Sub
上面的是把EXCEL读取到数据库中,你做点修改就行了.一个Data控件.