VB6教學：將ACCESS資料庫匯出為EXCEL表格

如何用VB6把ACCESS資料庫匯出成EXCEL表

VB本身提自動化功能可以讀寫EXCEL表，其方法如下：

1、在工程中引用Microsoft Excel類型庫：

從＂工程＂選單中選擇＂引用＂欄；選擇Microsoft Excel 9.0 Object Library(EXCEL2000)，然後選擇＂確定＂。表示在工程中要引用EXCEL類型庫。

2、在通用物件的宣告過程中定義EXCEL物件：

Dim xlApp As Excel.Application

##Dim xlBook As Excel.WorkBook

##Dim xlSheet As Excel.Worksheet

3、在程式中操作EXCEL表常用指令：

Set xlApp = CreateObject(＂Excel.Application＂) '建立EXCEL物件

Set xlBook = xlApp.Workbooks.Open（＂檔名＂） '開啟已經存在的EXCEL工件簿檔案

xlApp.Visible = True '設定EXCEL物件可見（或不可見）

Set xlSheet = xlBook.Worksheets（＂表名＂） '設定活動工作表

xlSheet.Cells(row, col) =值 '給單元格（row,col）賦值

#xlSheet.PrintOut '列印工作表

xlBook.Close (True) '關閉工作簿

xlApp.Quit '結束EXCEL物件

Set xlApp = Nothing '釋放xlApp物件

xlBook.RunAutoMacros (xlAutoOpen) '執行EXCEL啟動巨集

xlBook.RunAutoMacros (xlAutoClose) '執行EXCEL關閉巨集

4、在運用以上VB指令操作EXCEL表時，除非設定EXCEL物件不可見，否則VB程式可繼續執行其它操作，也能夠關閉EXCEL，同時也可對EXCEL進行操作。但在EXCEL操作過程中關閉EXCEL對象時，VB程式無法知道，如果此時使用EXCEL對象，則VB程式會產生自動化錯誤。形成VB程式無法完全控制EXCEL的狀況，使得VB與EXCEL脫節。

怎麼用VC對EXCEL表格進行讀⑴判潁涑

EXCEL其實是一個資料庫，它的列是資料庫表的列字段，行就是資料庫表的項，我這有透過ADO插入的程式碼，你可以反向一個，把插入換成讀取。

_ConnectionPtr m_pConnect; //ADO對象，下同

_RecordsetPtr m_pRecordset;

CString sql;

sql = ＂Provider=Microsoft.Jet.OLEDB.4.0;Data Source=＂;

sql =strExcelFile;//EXCEL檔絕對路徑 它自己的檔名。

sql =＂;Extended Properties=Excel 8.0＂;

m_pConnect.CreateInstance(__uuidof(Connection));

m_pRecordset.CreateInstance(__uuidof(Recordset));

m_pConnect->Open((LPCSTR)sql,＂＂,＂＂,adModeUnknown);

m_pRecordset->Open(＂select * from [iomstats]＂, m_pConnect.GetInterfacePtr(),

adOpenDynamic, adLockOptimistic,adCmdText);//[iomstats]就是excel左下的[sheet]修改名。

while(!m_pRecordset->adoEOF)

{

//修改行

if((LPCSTR)_bstr_t(m_pRecordset->GetCollect(＂times＂)) == strTime)

{

//_variant_t

ultoa(iomStats.dwNumOfDiskReads,charbuf,RADIX);

m_pRecordset->PutCollect(＂dwNumOfDiskReads＂,_variant_t(charbuf));

}

m_pRecordset->MoveNext();

}

m_pRecordset->Update();

m_pRecordset->Close();

m_pConnect->Close();

vb如何讀取excel資料並存入數組

讀寫EXCEL表：

1、在工程中引用Microsoft Excel類型庫：

從＂工程＂選單中選擇＂引用＂欄；選擇Microsoft Excel 12.0 Object Library(EXCEL2007)，然後選擇＂確定＂。表示在工程中要引用EXCEL類型庫。

2、在通用物件的宣告過程中定義EXCEL物件：

Dim xlApp As Excel.Application

##Dim xlBook As Excel.WorkBook

##Dim xlSheet As Excel.Worksheet

3、在程式中操作EXCEL表常用指令：

Set xlApp = CreateObject(＂Excel.Application＂) '建立EXCEL物件

Set xlBook = xlApp.Workbooks.Open（＂檔名＂） '開啟已經存在的EXCEL工件簿檔案

Set xlBook = xlApp.Workbooks.Add（＂檔名＂） '建立新的EXCEL工件簿檔案

xlApp.Visible = True '設定EXCEL物件可見（或不可見）

Set xlSheet = xlBook.Worksheets（＂表名＂） '設定活動工作表

for i=1 to 100

for j=1 to 50

numArr(j,i)=xlSheet.Cells(j, i) '............................... .......

next

next

xlBook.Close (True) '關閉工作簿

xlApp.Quit '結束EXCEL物件

Set xlApp = Nothing '釋放xlApp物件

張志晨

如何用VB逐行讀取excel

1. 先在VB裡面建立一個Excel Object用以存取Excel文件，如果你的Excel是CSV的則不需要，直接按照Txt文字方式打開讀取即可.

###2. 建立Button事件，將取得的資料傳入到TextBox裡面即可.### ###參考如下程式碼：### ###條件：我有一個Excel檔案D:\A.xls裡面的Sheet1中A1開始有100個字；在VB中Form1中有一個TextBox名字為Text1，有一個按鈕，名字為Command1則實作程式碼如下：###

私有 i 為整數

私有子命令1_Click()

Set ExcelApp = CreateObject(“Excel.Application”)

Set ExcelBook = ExcelApp.Workbooks.Open(“D:\A.xlsx”)

Set ExcelSheet = ExcelBook.Worksheets(“Sheet1”)

Text1.Text = ExcelSheet.cells(i, 1)

i = i 1

如果 i >100 則 i = 1

結束子

私有子表單_Load()

i = 1

結束子

希望可以幫助到你！

以上是VB6教學：將ACCESS資料庫匯出為EXCEL表格的詳細內容。更多資訊請關注PHP中文網其他相關文章！