怎么在VBA中把excel中的數(shù)據(jù)寫(xiě)入數(shù)據(jù)庫(kù)？Excel是一個(gè)自由表格。excel工作簿是一個(gè)數(shù)據(jù)庫(kù)。其中的每個(gè)表都是一個(gè)數(shù)據(jù)庫(kù)表。您可以像查詢(xún)操作表一樣查詢(xún)它。其中的列是數(shù)據(jù)庫(kù)的字段，行是記錄。因此

怎么在VBA中把excel中的數(shù)據(jù)寫(xiě)入數(shù)據(jù)庫(kù)？

Excel是一個(gè)自由表格。excel工作簿是一個(gè)數(shù)據(jù)庫(kù)。其中的每個(gè)表都是一個(gè)數(shù)據(jù)庫(kù)表。您可以像查詢(xún)操作表一樣查詢(xún)它。其中的列是數(shù)據(jù)庫(kù)的字段，行是記錄。因此，您可以根據(jù)數(shù)據(jù)庫(kù)的結(jié)構(gòu)來(lái)構(gòu)建數(shù)據(jù)，但是如果您構(gòu)建的數(shù)據(jù)不符合數(shù)據(jù)庫(kù)的規(guī)范，那么在查詢(xún)時(shí)將無(wú)法獲得相應(yīng)的結(jié)果。因此，Excel中不存在創(chuàng)建數(shù)據(jù)庫(kù)的功能。但現(xiàn)有的數(shù)據(jù)可以參考。當(dāng)a、B、C、D條件滿(mǎn)足時(shí)，采用VBA和ADO訪問(wèn)excel。查詢(xún)時(shí)，根據(jù)SQL語(yǔ)法將a、B、C、D寫(xiě)入查詢(xún)語(yǔ)句，并引用返回的記錄集。另一種是利用函數(shù)過(guò)濾出滿(mǎn)足a、B、C、D的記錄，然后引用它們。

VB已讀取到數(shù)據(jù)庫(kù)數(shù)據(jù)，如何將數(shù)據(jù)寫(xiě)入Excel表（OLE控件）的某一單元格中，謝謝？

您可以為與OLE控件關(guān)聯(lián)的對(duì)象的excel表格單元格的value屬性賦值，以寫(xiě)入VB讀取的數(shù)據(jù)。屬性，返回或設(shè)置變量類(lèi)型編號(hào)，該編號(hào)指定屬性的值，即讀/寫(xiě)。下面是實(shí)現(xiàn)代碼：option explicit dim obok as object“將obok定義為對(duì)象數(shù)據(jù)類(lèi)型private sub command1uclick（）OLE1。Createlink“C:zhang2012。Xls“”打開(kāi)要寫(xiě)入的excel表格，設(shè)置obok=OLE1。Object”將對(duì)象引用分配給變量或?qū)傩浴Bok.表(1) . 范圍（“A1”）。Value=“VB已讀取數(shù)據(jù)庫(kù)數(shù)據(jù)”“將數(shù)據(jù)寫(xiě)入Excel表格集合a列的第一行obok=nothing“使用nothing關(guān)鍵字將對(duì)象變量與實(shí)際對(duì)象分開(kāi)。end subobject變量存儲(chǔ)為32位（4字節(jié)）地址，這是對(duì)對(duì)象的引用。通過(guò)使用set語(yǔ)句，可以將聲明為對(duì)象的變量指定為對(duì)任何對(duì)象的引用。注意，盡管聲明為對(duì)象類(lèi)型的變量足以包含對(duì)各種對(duì)象的引用，但綁定到變量引用的對(duì)象總是在后期（運(yùn)行時(shí)）綁定。要強(qiáng)制早期（編譯時(shí)）綁定，請(qǐng)將對(duì)對(duì)象的引用分配給使用特定類(lèi)名聲明的變量。nothing關(guān)鍵字用于將對(duì)象變量與實(shí)際對(duì)象分開(kāi)。要不對(duì)對(duì)象變量賦值，請(qǐng)使用set語(yǔ)句。例如：setmyobject=nothingset語(yǔ)句將對(duì)象引用指定給變量或?qū)傩浴?/p>

怎么講EXCEL的數(shù)據(jù)導(dǎo)入VB中？

有兩種方法：1。直接打開(kāi)XLS文件讀取數(shù)據(jù)DimxlsAsNewExcel.應(yīng)用程序“Excel應(yīng)用程序?qū)ο蟆盌imxbookAsExcel.工作簿“Excel工作簿對(duì)象”DimxsheetAsExcel.工作表“Excel工作表對(duì)象setxbook”=xls.Workbooks.Open( 應(yīng)用程序路徑（&A）“1.xls”）Setxsheet=xbook.工作表(1) xsheet.單元格（4，3）=微調(diào)（文本1（0）。文本）“讀取數(shù)據(jù)2。通過(guò)讀取數(shù)據(jù)庫(kù)數(shù)據(jù)，XLS文件被視為一個(gè)數(shù)據(jù)庫(kù)，