在項目中添加Excel類庫的引用,然后在VB中定義Excel 的Application,WorkBook和Worksheet
創(chuàng)新互聯(lián)建站主要從事成都網(wǎng)站建設、成都做網(wǎng)站、網(wǎng)頁設計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務。立足成都服務石拐,十余年網(wǎng)站建設經(jīng)驗,價格優(yōu)惠、服務專業(yè),歡迎來電咨詢建站服務:028-86922220
然后對Worksheet中的Range進行操作,不用像Access那樣建立ADO什么的連接。
比如
Dim exlApp as Excel.Application = Createobject("Excel.Application")
if exlApp is Nothing then exit sub
dim xBook as Excel.WorkBook=exlApp.Workbook.add
if xBook is Nothing then exit sub
dim xSheet as excel.WorkSheet =xbook.WorkSheet.Add
if xSheet is Nothing Then exit sub
with xSheet
.Range("A1").value="Excel Application Test"
.Range("B1" ":D2").Merge
.Range("B1" ":D2").Value="合并表格內(nèi)容"
end with
你可以試試連接是否正確。
1、首先打開Visual Studio 2008代碼窗口,添加引用。
2、輸入以下代碼:Public conn1 ?As SqlConnection = New SqlConnection 。
3、聲明關鍵字 Public;(因為是全局變量,所以用Public 來聲明)。
4、如果SQL 數(shù)據(jù)庫就在本機,則用以下代碼連接。
5、如果代碼太長,影響可讀性,可以用空格加"_"后,回車換行即可。
在項目A里添加引用,在“添加引用”對話框里找到項目B就可以了。也可以先把項目B生成dll文件,然后在項目A中添加對這個dll文件的引用。
Private Function ReadFile(ByRef a As String) As String
a = "bian"
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As String = "yuanlai"
ReadFile(a)
''想要的結(jié)果就是在這里使用a的值是"bian"
MsgBox(a)
End Sub
===================
以上就可以,不知道你“ByRef a As b”的b是什么東西
分享題目:vb.net引用qsl的簡單介紹
文章地址:http://aaarwkj.com/article2/dsiipoc.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供自適應網(wǎng)站、微信小程序、建站公司、軟件開發(fā)、網(wǎng)站排名、手機網(wǎng)站建設
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)