Ⅰ 請問高手：如何在VB.NET中實現把sql資料庫里表的數據導入到Excel中謝謝！
這個我是這么實現的.要用到
Excel.Application
Set xlapp = CreateObject("Excel.Application") '激活EXCEL
xlapp.Visible = True '讓EXCEL可見
Set xlbook = xlapp.Workbooks.Open(App.Path + "個人簡歷.xlt")
'打開工作簿，strDestination為一個EXCEL報表文件
Set xlsheet = xlbook.Worksheets(1) '設定工作表
這個有點像是vb6的、vb.net也有相應的方法的.總之是
excel.application 用到這個就可以了.必要的話導入excel的dll文件.
這樣你就發現、可以用vb.net來對excel來操作.你可以查下微軟的msdn、有具體的屬性方法.
如:
Dim ef As New Excel.Application
Dim es As New Excel.Worksheet
Dim er As Excel.Range
ef.Workbooks.Add()
es = ef.Worksheets("sheet1")
es.Activate()
er = es.Range("a1:C1")
er.Select()
er.Merge()
er.Value = "gordon1117"
ef.Visible = True 目前應用了三個對象:application,worksheet和range,三者的關系應該清晰,做到這點就能從基本開始做了:)格式設置都在range對象,只不過在設置對齊屬性上是verticalalignment和horizon
range 用來定位、
然後你可以循環把數據輸出到指定了格式的excel文件里了吧、其實連格式都是可以程序控制的好好學下吧.
可以參考一下這篇文章
http://blog.csdn.net/hawordcheng/archive/2006/10/26/1351931.aspx
Ⅱ vb2005.net如何將excel數據導入到已綁定SQL數據的datagridview中
薩里叫hoad8yhi iasdjl
Ⅲ vb.net 如何讀出excel，並把數據插入oracle資料庫中。
用FORMULA 1 ,一個開源框架；裡面有個JBook可以取到EXCEL中的數據；然後你在根據JBook將數據存到資料庫 答案補充 導入的時候打開一個JFileChooser用來讓用戶選擇要讀的excel文件；然後JBook WorkBook = new JBook();WorkBook.read(fileName, new ReadParams(JBook.eFileExcel97));WorkBook.setSheet(0);WorkBook.setSelection(0, 0, 0, 0);這就將excel中的數據讀入JBook中了，int EndRow = WorkBook.getLastRow();// 總行數int EndCol = WorkBook.getLastCol();// 總列數WorkBook.getNumber(row,col); 或者getText(row,col)活的excel中的數據；將這些數據從JBOOK提取出來，然後自己封裝成自己需要的類型，再存到資料庫就行了；說起來好像挺繁瑣的，做做試試；去網上下個FORMULA 1 的jar包我現在是在java的CS模式下用的；
Ⅳ 在vb.net中如何把excel表導入到mysql資料庫中去
1.使用PHP
Excel Parser Pro軟體，但是這個軟體為收費軟體；
2.可將EXCEL表保存為CSV格式，然後通過phpmyadmin或者SQLyog導入，SQLyog導入的方法為：
·將EXCEL表另存為CSV形式；
·打開SQLyog，對要導入的表格右擊，點擊「導入」-「導入使用載入本地CSV數據」；
·在彈出的對話框中，點擊「改變..」，把選擇「填寫excel友好值」，點擊確定；
·在「從文件導入」中選擇要導入的CSV文件路徑，點擊「導入」即可導入數據到表上；
Ⅳ VB.NET VS2008 如何將EXCEL表的內容導入到SQL SERVER2008，求詳細製作過程，跪求啊！！！
SQL Server 自帶了一個Import & Export Tool導入數據源選Excel目標資料庫選SQL Server.一次性的導入這個最方便。如果在VS裡面寫，可以建立ADO,DBO,SQL Client,等連接方式，然後將Excel中的數據讀入Data Table或者變數再更新到資料庫。這個對經常變化的數據有用。
Ⅵ vb.net excel導入sql如何自動獲取excel的sheet名
1.將excel上傳到伺服器
/// <summary>
/// 上傳文件到指定伺服器文件
/// </summary>
/// <param name="fileUpload">.Net_FileUpload控制項</param>
/// <param name="mag">out 返回上傳是否成功</param>
/// <param name="fileName">out 返回上傳到伺服器上的文件名</param>
/// <returns>返回布爾類型。 上傳成功返回true 失敗false</returns>
public static bool UpLoad(FileUpload fileUpload, out string mag, out string fileName)
{
mag = null;
fileName = null;
bool flag = false;
//是否允許上載
bool fileAllow = false;
//設定允許上載的擴展文件名類型
string[] allowExtensions = { ".xls", ".xlsx" };
//檢查是否有(是否包含)文件案
if (fileUpload.HasFile)
{
//取得上傳文件之擴展文件名，並轉換成小寫字母
string fileExtension = System.IO.Path.GetExtension(fileUpload.FileName).ToLower();
//檢查擴展文件名是否符合限定類型
for (int i = 0; i < allowExtensions.Length; i++)
{
if (fileExtension == allowExtensions[i])
{
fileAllow = true;
}
}
//符合上傳文件類型
if (fileAllow)
{
try
{
//重命名文件名
fileName = DateTime.Now.ToString("yyyyMMddhhmmss") + fileUpload.FileName;
//存儲文件到文件夾
fileUpload.SaveAs(GetServerPath(fileName));
fileUpload.Dispose();
mag = "文件導入成功";
flag = true;
}
catch (Exception ex)
{
mag += ex.Message;
flag = false;
}
}
else
{
mag = "不允許上載：" + fileUpload.PostedFile.FileName + "，只能上傳xls和xlsx的文件，請檢查！";
flag = false;
}
}
else
{
mag = "請選擇要導入的Excel文件!";
flag = false;
}
return flag;
}
調用 bool ft = ExcelImport.UpLoad(FileUpload1, out mag, out filePath);
FileUpload1為。net的上傳控制項
二，查詢出Excel裡面的所有工作薄名，根據OUT出來的存放excel的路徑
/// <summary>
/// 獲取EXCEL文件中的所有表名(模板類型)(SheetName)
/// </summary>
/// <param name="filepath">文件絕對路徑</param>
/// <returns>ArrayList集合</returns>
public static ArrayList ExcelSheetName(string filepath)
{
ArrayList al = new ArrayList();
string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filepath + ";Extended Properties=Excel 8.0;";
OleDbConnection conn = new OleDbConnection(strConn);
try
{
conn.Open();
DataTable sheetNames = conn.GetOleDbSchemaTable
(System.Data.OleDb.OleDbSchemaGuid.Tables, new object[] { null, null, null, "TABLE" });
conn.Close();
foreach (DataRow dr in sheetNames.Rows)
{
al.Add(dr[2]);
}
}
catch (Exception e)
{
Logger.Error("ExcelImport.cs 頁面 ExcelSheetName", e);
}
finally
{
conn.Close();
}
return al;
}
調用 //獲取導入模板所有的模板表名
ArrayList al = ExcelImport.ExcelSheetName(UpPath);
3.進行工作薄名稱的對比
string sheet = null;
//進行判斷是否取到想要的sheet1
bool isExists = false;
for (int i = 0; i < al.Count; i++)
{
//獲取模板表名
sheet = al[i].ToString();
if (sheet.Equals("sheet1"))
{
//EXCELsheet名是sheet1
isExists = true;
}
}
Ⅶ 怎樣用vb打開excel表，並將excel中的項插入到sql的對應表中
用EXCEL對象讀取EXCEL文件中數據.然後通過ADODB連接SQL進和導入
下面是EXCEL對象的詳解
1 前言
做為一種簡捷、系統的 Windows應用程序開發工具，VB具有強大的數據處理功能，提供了多種數據訪問方法，可以方便地存取Microsoft SQL Server、Oracle、XBase等多種資料庫，被廣泛應用於建立各種信息管理系統。但是，VB缺乏足夠的、符合中文習慣的數據表格輸出功能，雖然使用Crystal Report控制項及 Crystal Reports程序可以輸出報表，但操作起來比較麻煩，中文處理能力也不理想。Excel在表格方面有著強大的功能，我們可以用VB編寫直接控制Excel操作的程序,方法是用VB的OLE自動化技術獲取Excel的控制句柄,從而直接控制Excel的一系列操作。本文結合自己的實踐和體會，談談如何在VB6.0應用程序中調用Exce12000，供大家參考。
2 Excel對象模型
為了在VB應用程序中調用Excel，必須要了解Excel對象模型。Excel對象模型描述了Excel的理論結構，所提供的對象很多，涉及VB調用Excel時最可能用到的對象有：
http://www.deepcast.net/wiki/ow.asp?p=Excel%B6%D4%CF%F3%C4%A3%D0%CD&a=print
3 調用Excel
在VB應用程序中調用Excel，實質是將Excel作為一個外部對象來引用，由Excel對象模型提供能從VB應用程序內部來程序化操縱的對象以及相關的屬性、方法和事件。
3.1 在VB工程中添加對Excel類型庫的引用
為了能從VB應用程序中訪問Excel豐富的內部資源，使Excel應用程序運行得更快，需要在VB工程中添加對Excel類型庫的引用。具體步驟如下：
1) 在VB應用程序中調用Excel，你的計算機系統中必須安裝Excel。從VB5「工程」菜單中選擇「引用」；
2) 在「引用」對話框中選擇Excel類型庫："Microsoft Excel9.0 Object Library"；
3) 單擊左邊小方框，使之出現「√」符號；
4) 按「確定」退出。
3.2 引用Application對象
Application對象是Excel對象模型的頂層，表示整個Excel應用程序。在VB應用程序中調用Excel，就是使用Application對象的屬性、方法和事件。為此，首先要聲明對象變數：
Dim VBExcel As Object
或直接聲明為Excel對象：
Dim VBExcel As Excel.Application
在聲明對象變數之後，可用CreateObject函數或GetObject函數給變數賦值新的或已存在的Application對象引用。
1)用CreateObject函數生成新的對象引用：
Set VBExcel=CreateObject ("Excel.Application")
字元串「Excel.Application」是提供Excel應用程序的編程ID，這個變數引用Excel應用程序本身。
2)用GetO場ect函數打開已存在的對象引用：
Set AppExcel=GetObject("Temp.XLS")
上面語句打開文件Temp.XLS。
3)Application對象常用的屬性、方法
Visible屬性取True或False，表明Excel應用程序是否可見。
Left,Top屬性Excel窗口的位置；
Height, Width屬性Excel窗口的大小；
WindowState屬性指定窗口的狀態；
Quit方法,退出Microsoft Excel；
Calculate方法,重新計算所有打開的工作簿、工作表或單元格。
Evaluate方法,求值數學表達式並返回結果。
3.3 使用Excel應用程序
下面分類給出其中常用的屬性和方法。
1)使用工作薄
Workbook對象代表Excel應用程序中當前打開的一個工作簿，包含在Workbooks集合中。可以通過Workbooks集合或表示當前活動工作簿的Active Workbook對象訪問Workbook對象。
常用的方法有：
Add方法:創建新的空白工作簿，並將其添加到集合中。
Open方法:打開工作簿。
Activate方法:激活工作簿，使指定工作簿變為活動工作簿，以便作為Active Workbook對象使用。
Save方法:按當前路徑和名稱保存現有工作簿(如是首次保存，則將其保存到預設名稱中，如BOOK1.XLS)。
SaveAs方法:首次保存工作簿或用另一名稱保存工作簿。
Close方法:關閉工作簿。
PrintOut方法:列印工作簿，語法為：
PrintOut (from, To, Copies, Preview, Printer, ToFile, Collate)
可選參數：
From：列印的起始頁號,如省略將從起始位置開始列印。
To：列印的終止頁號,如省略將列印至最後一頁。
Copies：要列印的份數,如省略將只列印一份。
Preview：如果為True則Excel列印指定對象之前進行列印預覽。如果為False或省略則立即列印該對象。
Printer：設置活動列印機的名稱。
ToFile：如果為True則列印輸出到文件。
Collate：如果為True則逐份列印每份副本。
下面語句將活動工作簿的2到5頁列印3份：
ActiveWorkbook.PrintOut From：=2 To 5 Copies：=3
2)使用工作表
Sheets集合表示工作簿中所有的工作表。可以通過Sheets集合來訪問、激活、增加、更名和刪除工作表。一個Worksheet對象代表一個工作表。
常用的屬性、方法有：
Worksheets屬性:返回Sheets集合。
Name屬性:工作表更名。
Add方法:創建新工作表並將其添加到工作簿中。
Select方法:選擇工作表。
Copy方法:復制工作表。
Move方法:將指定工作表移到工作簿的另一位置。
Delete方法:刪除指定工作表。
PrintOut方法:列印工作表。
示例：將C盤工作簿中的工作表復制到A盤工作簿中：
Dim VBExcel As Excel.Application
Set VBExcel=CreateObject("Excel.Application")
With VBExcel
Workbooks.Open "C：\Temp\Ex1.XLS"
Workbooks.Open"A：\Ex2.XLS"
Workbooks("Ex1.XLS").Sheets ("Sales").Copy
Workbooks("Ex2.XLS")
Workbooks("Ex2.XLS").Save
Workbooks("Ex1.XLS").Close
Workbooks("Ex2.XLS").Close
Quit
End With
3)使用單元范圍
Range對象代表工作表的某一單元格、某一行、某一列、某一選定區域或者某一三維區域。
常用的屬性、方法有：
Range屬性:Range (arg)其中arg為A1樣式符號，表示單個單元格或單元格區域。
Cells屬性:Cells (row, col )(其中row為行號，col為列號)表示單個單元格。
ColumnWidth屬性:指定區域中所有列的列寬。
Rowl3eight屬性:指定區域中所有行的行寬。
Value屬性:指定區域中所有單元格的值(預設屬性)。
Formula屬性:指定單元格的公式，由A1--樣式引用。
Select方法:選擇范圍。
Copy方法:將范圍的內容復制到剪貼板。
C1earContents方法:清除范圍的內容。
Delete方法:刪除指定單元范圍。
4)使用圖表
Chart對象代表工作簿中的圖表。該圖表既可為嵌人式圖表(包含於ChartObject對象中)也可為分立的圖表工作表。
常用方法有：
Add方法:新建圖表工作表,返回Chart對象。
PrineOut方法:列印圖表。
ChartWizard方法:修改給定圖表的屬性，其語法為：
ChartWizard(Source, Gallery, Format, P1otBy, CategoryLabels, SeriesLabels, HasLegend, Title, CategoryTitle, ValueTitle, ExtraTitle)
其中：
Source：包含新圖表的源數據的區域。如省略，將修改活動圖表工作表或活動工作表中處於選定狀態的嵌人式圖表。
Gallery：圖表類型,其值可為下列常量之一:xlArea, x1Bar, xlColumn, xlLine, x1Pie, xlRadar,x1XYScatter, xlCombination, x13DArea, x13Dbar,x13DColumn, x13DLine, x13Dpie,x13 Dsurface,xlDoughnut或xlDefaultAutoFormat。
Format：內置自動套用格式的編號。如省略，將選擇默認值。
P1otBy：指定系列中的數據是來自行(xlRows)還是列(xlColumns)。
CategoryLabels：表示包含分類標志的源區域內行數或列數的整數。
SeriesLabels：表示包含系列標志的源區域內行數或列數的整數。
HasLegend：若指定True，則圖表將具有圖例。
Title：圖表標題文字。
CategoryTitle：分類軸標題文字。
ValueTitle：數值軸標題文字。
ExtraTitle：三維圖表的系列軸標題，或二維圖表的第二數值軸標題。
可組合使用Add方法和ChartWizard方法，以創建包含工作表中數據的圖表工作表。下例基於工作表「Sheetl」中單元格區域「A1：A20」中的數據生成新的折線圖並列印。
With Charts.Add
ChartWizard source：=Worksheets ("sheet1").Range_
("a1：a20"),gallery：=xlLine, title：=「折線圖表」
Printout
End With
5)使用Excel工作表函數
在VB語句中可使用大部分的Excel工作表函數，可通過WorksheetFunction對象調用Excel工作表函數。下面的Sub過程用Min工作表函數求出指定區域中單元格的最小值，並通過消息框顯示結果值。
Sub UserFunction()
Dim myRange As Range
Set myRange=Worksheets ("Sheet1").Range("B2：F10")
answer=Application.WorksheetFunction.Min(myRange)
MsgBox answer
End Sub
如果使用以區域引用為參數的工作表函數，必須指定一個Range對象。如可用Match工作表函數對A1：A10區域的所有單元格進行搜索。
Sub FindFirst()
myVar=Application.WorksheetFunction.Match_
(9,orksheets( 1).Range("A1：A10")，0)
MsgBox myVar
End Sub
要在單元格中插人工作表函數，可將該函數指定為對應於Range對象的Formula屬性值。在以下示例中，將當前工作簿Sheetl內A1：B3區域的Formula屬性指定為RAND工作表函數(此函數產生二個隨機數)。
Sub InsertFormula()
Worksheets ("Sheet1" ).Range("A1：B3").Formula="RAND()"
End Sub
以上簡要介紹了Excel對象模型中部分對象及其屬性和方法，更詳細的信息可參閱Excel 2000幫助中的「Microsoft Excel Visual Basic參考」一節的內容。實際上，Microsoft Office家族的Word,PowerPoint, Access和Project等應用程序都可以在VB應用程序中調用，其原理和步驟完全相同，只是其對象模型有所不同而已。
4、示例：
首先建立一個窗體（FORM1）,在窗體中加入一個DATA控制項和一按鈕，引用Microsoft office/9.shtml' target='_blank' class='article'>Excel類型庫:從"工程"菜單中選擇"引用"欄;選擇Microsoft Excel 9.0 Object Library;選擇"確定"。
在FORM的LOAD事件中加入：
Data1.DatabaseName = 資料庫名稱
Data1.RecordSource = 表名
Data1.Refresh
在按鈕的CLICK事件中加入
Dim Irow, Icol As Integer
Dim Irowcount, Icolcount As Integer
Dim Fieldlen() "存欄位長度值
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
With Data1.Recordset.MoveLast
If .RecordCount < 1 Then
MsgBox ("Error 沒有記錄!")
Exit Sub
End If
Irowcount = .RecordCount "記錄總數
Icolcount = .Fields.Count "欄位總數
ReDim Fieldlen(Icolcount).MoveFirst
For Irow = 1 To Irowcount + 1
For Icol = 1 To Icolcount
Select Case Irow
Case 1 "在Excel中的第一行加標題
xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1).Name
Case 2 "將數組FIELDLEN()存為第一條記錄的欄位長
If IsNull(.Fields(Icol - 1)) = True Then
Fieldlen(Icol) = LenB(.Fields(Icol - 1).Name)
Else
Fieldlen(Icol) = LenB(.Fields(Icol - 1))
End If
xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)
xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)
Case Else
Fieldlen1 = LenB(.Fields(Icol - 1))
If Fieldlen(Icol) < Fieldlen1 Then
xlSheet.Columns(Icol).ColumnWidth = Fieldlen1
Fieldlen(Icol) = Fieldlen1
Else
xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)
End If
xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)
End Select
Next
If Irow <> 1 Then
If Not .EOF Then .MoveNext
End If
Next
With xlSheet
.Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Name = "黑體"
.Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Bold = True
.Range(.Cells(1, 1), .Cells(Irow, Icol - 1)).Borders.LineStyle = xlContinuous
End With
xlApp.Visible = True
xlBook.Save
Set xlApp = Nothing
End With
Ⅷ 如何在VB.NET中實現把SQL資料庫里表的數據導入到Excel中
asp.net 中將gridview數據導入到excel的類 usingSystem; usingSystem.Data; usingSystem.Configuration; usingSystem.IO; usingSystem.Web; usingSystem.Web.Security; usingSystem.Web.UI; usingSystem.Web.UI. WebControls; usingSystem.Web.UI. WebControls.WebParts; usingSystem.Web.UI. HtmlControls; ///<summary> /// ///</summary> publicclass GridViewExportUtil { ///<summary> /// ///</summary> ///<paramname="fileName" ></param> ///<paramname="gv"></ param> publicstaticvoidExport( stringfileName,GridViewgv) { HttpContext.Current. Response.Clear(); HttpContext.Current. Response.AddHeader( "content- disposition",string.Format(" attachment;filename={0}", System.Web.HttpUtility. UrlEncode(fileName,System. Text.Encoding.UTF8))); HttpContext.Current. Response.ContentType=" application/ms-excel"; HttpContext.Current. Response.Charset="utf-8"; HttpContext.Current. Response.ContentEncoding= System.Text.Encoding. GetEncoding("utf-8"); using(StringWriter sw=newStringWriter()) { using( HtmlTextWriterhtw=new HtmlTextWriter(sw)) { //Createa formtocontainthegrid Tabletable= newTable(); //addthe headerrowtothetable if(gv. HeaderRow!=null) { GridViewExportUtil. PrepareControlForExport(gv. HeaderRow); table. Rows.Add(gv.HeaderRow); } //addeach ofthedatarowstothetable foreach( GridViewRowrowingv.Rows) { GridViewExportUtil. PrepareControlForExport(row); table. Rows.Add(row); } //addthe footerrowtothetable if(gv. FooterRow!=null) { GridViewExportUtil. PrepareControlForExport(gv. FooterRow); table. Rows.Add(gv.FooterRow); } //render thetableintothehtmlwriter table. RenderControl(htw); //render thehtmlwriterintothe response HttpContext. Current.Response.Write(sw. ToString()); HttpContext. Current.Response.End(); } } } 作者： 後天美麗 2007-8-31 09:24 回復此發言 2 回復： asp.net 中將gridview數據導入到excel 的類 ///<summary> ///Replaceanyofthe containedcontrolswith literals ///</summary> ///<paramname="control"></ param> privatestaticvoid PrepareControlForExport( Controlcontrol) { for(inti=0;i<control. Controls.Count;i++) { Controlcurrent=control. Controls[i]; if(currentisLinkButton) { control.Controls.Remove( current); control.Controls.AddAt(i, newLiteralControl((current asLinkButton).Text)); } elseif(currentis ImageButton) { control.Controls.Remove( current); control.Controls.AddAt(i, newLiteralControl((current asImageButton).AlternateText) ); } elseif(currentis HyperLink) { control.Controls.Remove( current); control.Controls.AddAt(i, newLiteralControl((current asHyperLink).Text)); } elseif(currentis DropDownList) { control.Controls.Remove( current); control.Controls.AddAt(i, newLiteralControl((current asDropDownList).SelectedItem. Text)); } elseif(currentisCheckBox) { control.Controls.Remove( current); control.Controls.AddAt(i, newLiteralControl((current asCheckBox).Checked?"True" :"False")); } if(current.HasControls()) { GridViewExportUtil. PrepareControlForExport( current); } } } }
Ⅸ vb.net中如何將Excel表數據導入到SQL資料庫
在存儲過程里寫bcp讀入拉
把excel數據統一成csv格式讀及可以了
最後在vb.net里用ExecNonQuery調用你的存儲過程就行
Ⅹ VB.NET中如何將excel中數據導入sql資料庫中，十分急！我想知道具體代碼，不是通過website實現。而是projec
Dim excelluj As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & (TextBox1.Text & "") & ";Extended Properties='Excel 8.0;HDR=no;IMEX=0'"
Dim comm As OleDb.OleDbConnection = New OleDb.OleDbConnection(excelluj)
comm.Open()
Dim stable As DataTable = comm.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, Nothing)
Dim xlsname As String = "Sheet1$"
xlsname = "[" & xlsname.Replace(" ' ", " ") & "]"
Dim sql As String = "select * from " & xlsname
Dim commxls As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, excelluj)
Dim dos As DataSet = New DataSet()
Dim i As Integer
Dim sqleX As String = ""
Dim kkkl As Integer = 0
commxls.Fill(dos, xlsname)
comm.Close()
'以下是讀取數據然後直接寫入到CY.txt，你可以直接把數據直接寫入到資料庫。
Dim Sw As StreamWriter = File.CreateText("D:\My Documents\Visual Studio 2008\Projects\EXECL_TXT\EXECL_TXT\CY.txt")
For i = 0 To dos.Tables(0).Rows.Count - 1
sqleX = "" _
& "'" & dos.Tables(xlsname).Rows(i)(0).ToString & "'," _
& "'" & dos.Tables(xlsname).Rows(i)(1).ToString & "')"
FileOpen(1, "CY.TXT", OpenMode.Output)
FileClose(1)
Sw.WriteLine(sqleX)
Sw.Write("||| ")
Next
Sw.Close()
dos.Dispose()