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.Worksheet3、在程式中操作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關閉巨集
怎麼用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();
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) '關閉工作簿
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中文網其他相關文章！
