將VBA Excel使用者窗體轉換為VB

vba excel userform轉為vb

用文字編輯器開啟FRM文件，

VERSION 5.00

Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 '這裡需要修改成Begin VB.Form Form1

Caption = ＂UserForm1＂

ClientHeight = 3120

ClientLeft = 45

ClientTop = 435

ClientWidth = 4710

OleObjectBlob = ＂UserForm1.frx＂:0000 '這行去掉

StartUpPosition = 1 '所有者中心

End

Attribute VB_Name = ＂UserForm1＂

#Attribute VB_GlobalNameSpace = False

#Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

'其他物件也做類似修改

把excel中的資料導入VB

在VB中要想呼叫Excel，需要開啟VB程式設計環境「工程」選單中的「引用」項目，並選取項目中的「MicrosoftExcel 11.0 object library」項。由於你的Excel版本不同，所以這個選項的版本號碼也是不同的。

因為EXCEL是以層次結構組織物件的，其物件模型中含有許多不同的物件元素。

第一層：Application對象，即Excel本身；

第二層：workbooks物件集，指Excel的工作簿檔案

第三層：worksheets物件集，表示的是Excel的一個工作表；

第四層：Cells和Range對象，指向Excel工作表中的儲存格。

Dim xlapp As Excel.Application 'Excel物件

Dim xlbook As Excel.Workbook '工作簿

Dim xlsheet As Excel.Worksheet '工作表

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

Set xlbook = xlapp.Workbooks.Open(＂D:\data.xls＂) '開啟已經存在的data.xls工件簿檔案

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

Set xlsheet = xlbook.Worksheets(1) '設定活動工作表''

''~~~目前工作簿的第一個表，這裡也可以換成「表名」例如「Sheet1」

【數組部分自行定義】

將表中某個單元格中的值賦值給一個變量，例如數組中的一個元素

arr(1,1)=xlsheet.Range(＂B2＂).Value

#……

最後關閉：

xlbook.Close

xlapp.quit

然後把三個物件 Set成 nothing

如何將excel資料引入vb二維數組中

用資料庫的查詢方式

讀取出來放入到 二維數組中

Dim cnn2 As New ADODB.Connection

Dim rs2 As New ADODB.Recordset

cnn2.Open ＂Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=＂ & Text1.Text & ＂;Extended＂

rs2.Open ＂Select 姓名，性別 From [sheet1$]＂, cnn2, adOpenKeyset, adLockOptimistic

i=0

s = rs2.ields.Item(0).Value '讀取sheet1中的 姓名，性別

If IsNull(s) Then Exit Do

a(i)=rs2.fields.Item(0).Value '姓名

b(i)=rs2.Fields.Item(1).Value '性別

i=i 1

rs2.MoveNext

Loop

Set rs2 = Nothing

Set cnn2 = Nothing

VB高手賜教：如何把電子表格中的資料導入VB

讀取A2單元格的程式碼：（資料在變數R中，工程前需引用MICROSOFT EXCEL OBJECT LIBRARY）

Private excelApp As excel.Application

Private Sub Command2_Click()

Set excelApp = 新 excel.Application

excelApp.Visible = True

excelApp.Workbooks.Open FileName:=＂C:\student.xls＂

excelApp.Range(＂A2＂).Select

##r = excelApp.ActiveCell.FormulaR1C1

Debug.Print r

excelApp.Quit

Set excelApp = Nothing

End Sub

'不願意讓大家看到EXCEL介面的，就把 excelApp.Visible = True去掉。

以上是將VBA Excel使用者窗體轉換為VB的詳細內容。更多資訊請關注PHP中文網其他相關文章！