第一個：想直接在vb的主程式里輸入excel的地址 傳遞給dll dll里就可以計算 代碼如下：
dll代碼：
Public Function shuju(File As String)
Dim i As Integer, j As Integer, M As Integer, N As Integer
Dim xlApp As Excel.Application 'excel匯入資料，Excel物件'
Dim xlBook As Excel.Workbook '作業簿'
Dim xlSheet As Excel.Worksheet '作業表'
Dim Filename, SheetName As String
Filename = File
SheetName = "sheet1" '表名'
Set xlApp = CreateObject("Excel.Application") '創建EXCEL物件'
Set xlBook = xlApp.Workbooks.Open(Filename) '打開已經存在的EXCEL工件簿檔案'
Set xlSheet = xlBook.Worksheets(SheetName) '設定活動作業表'
xlApp.Visible = True '設定EXCEL物件可見'
進行計算 需要回傳兩個數 和兩個二維陣列（這步也不會）
vb主程式：Private Declare Function sj Lib "prj.dll" (ByVal File As Single)
Private Sub Form_Click()
Dim File As String
Dim i As Integer
File = Val(Text1.Text)
Dim M As Integer, N As Integer
Set z = CreateObject("drsjprj.sjclass")
Call z.shuju(File)
也不知道怎么接收傳遞回來的數和陣列
End Sub
請大俠支招
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/142499.html
標籤：控件
上一篇：Vb API發送函式錯誤