為了完成Delphi DataSet元件組與Ms Office VBA程式進行資料交流而產生的 一個資料集控制項(ActiveX Control)    目前的版本為V5.0    完全支援由TAspFileDataSet元件所產生的資料檔,並且支援Master - Detail 資料表關聯的功能; 未來將陸續發表該控制項的各項example 目前正使用EVB測試其在PDA使用的可能性;也歡迎各位先進予以指教!!    附上一個excel檔案給予大家測試!!    以下為該檔案的 VBA 程式碼與設計時期的圖片(和Delphi的DataModule類似)    Private Sub CommandButton1_Click()   Dim DataSet1 As VBAMDataSetV5   '================================   Set DataSet1 = New VBAMDataSetV5        DataSet1.AccessFile = "customer.XDB"     DataSet1.AccessUser = "Tester"     If (DataSet1.OpenDataSet = True) Then       Range("A9").Select       ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("CustNo")              Range("B9").Select       ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("Company")              Range("C9").Select       ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("Addr1")              Range("D9").Select       ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("Addr2")              Range("E9").Select       ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("City")              Range("F9").Select       ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("State")              Range("G9").Select       ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("Zip")              Range("H9").Select       ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("Country")              Range("I9").Select       ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("Phone")              Range("J9").Select       ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("FAX")              Range("K9").Select       ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("TaxRate")              Range("L9").Select       ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("Contact")              Range("M9").Select       ActiveCell.FormulaR1C1 = DataSet1.ReadFieldData("LastInvoiceDate")          DataSet1.CloseDataSet   End If End Sub        

附加檔案：46516_XdbVBADataSetV5Share.Zip