VB讀取excel數據並插入到數據庫

Set xlApp = CreateObject("Excel.Application") '激活EXCEL應用程序

xlApp.Visible = False '隱藏EXCEL應用程序窗口

Set xlBook = xlApp.Workbooks.Open(FileManually) '打開工作簿，FileManually為壹個EXCEL報表文件

Set xlSheet = xlBook.Worksheets(Trim(txtSheetNM.Text)) '設定工作表

For IRowsCount = 1 To xlSheet.UsedRange.Cells.Rows.Count

If Trim(xlSheet.Cells(IRowsCount, 1)) = "" Then

Exit For

End If

'將xlSheet.Cells(IRowsCount,列號)的數據插入數據庫中

'轉換男女可以判斷xlSheet.Cells(IRowsCount,列號)="男",則=1,否則=0,然後再寫入數據庫

Next IRowsCount

上一篇:plc的點動與自動? PLC的自鎖與互鎖？

下一篇:哈弗m6燈光使用教程視頻