vb excel数据库

Dim xlApp As Object
Dim xlWorkBook As Object
Dim xlWorkSheet As Object
Dim range As Object
Dim rCnt As Long
Dim cCnt As Long
Dim strData As String

Set xlApp = CreateObject("Excel.Application")
Set xlWorkBook = xlApp.Workbooks.Open("C:\path\to\your\excel.xlsx")
Set xlWorkSheet = xlWorkBook.Worksheets("Sheet1")

rCnt = xlWorkSheet.UsedRange.Rows.Count
cCnt = xlWorkSheet.UsedRange.Columns.Count

For r = 1 To rCnt
    For c = 1 To cCnt
        Set range = xlWorkSheet.Cells(r, c)
        strData = range.Value
        ' 处理数据
    Next c
Next r

xlWorkBook.Close
Set xlWorkBook = Nothing
xlApp.Quit
Set xlApp = Nothing

Dim xlApp As Object
Dim xlWorkBook As Object
Dim xlWorkSheet As Object

Set xlApp = CreateObject("Excel.Application")
Set xlWorkBook = xlApp.Workbooks.Open("C:\path\to\your\excel.xlsx")
Set xlWorkSheet = xlWorkBook.Worksheets("Sheet1")

xlWorkSheet.Cells(1, 1).Value = "Hello, World!"

xlWorkBook.Save
xlWorkBook.Close
Set xlWorkBook = Nothing
xlApp.Quit
Set xlApp = Nothing