excelvb編譯錯誤

Ⅰ VB 創建Excel對象時 出現 無效外部過程 編譯錯誤

代碼要寫在過程內 如：
Private Sub Form_Load()
Dim XlsObj As Excel.Application 'Excel對象
Dim XlsBook As Excel.Workbook '工作簿
Dim XlsSheet As Excel.Worksheet '工作表
Set XlsObj = CreateObject("Excel.Application") '創建EXCEL對象
End Sub

Ⅱ vb6.0添加excel的問題 一下代碼提示編譯錯誤 「用戶定義類型未定義」

1：讀取。

1、在VB中，建立一個FORM，在其上放置兩個命令按鈕，將Command1的Caption屬性改為EXCEL，Command2的Caption屬性改為End。然後在其中輸入如下程序：

Dim xlApp As Excel.Application '定義EXCEL類
Dim xlBook As Excel.Workbook '定義工件簿類
Dim xlsheet As Excel.Worksheet '定義工作表類
Private Sub Command1_Click() '打開EXCEL過程
If Dir("D:\temp\excel.bz") = "" Then '判斷EXCEL是否打開
Set xlApp = CreateObject("Excel.Application") '創建EXCEL應用類
xlApp.Visible = True '設置EXCEL可見
Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打開EXCEL工作簿
Set xlsheet = xlBook.Worksheets(1) '打開EXCEL工作表
xlsheet.Activate '激活工作表
xlsheet.Cells(1, 1) = "abc" '給單元格1行駛列賦值
xlBook.RunAutoMacros (xlAutoOpen) 運行EXCEL中的啟動宏
Else
MsgBox ("EXCEL已打開")
End If
End Sub

Private Sub Command2_Click()
If Dir("D:\temp\excel.bz") <> "" Then '由VB關閉EXCEL
xlBook.RunAutoMacros (xlAutoClose) '執行EXCEL關閉宏
xlBook.Close (True) '關閉EXCEL工作簿
xlApp.Quit '關閉EXCEL
End If
Set xlApp = Nothing '釋放EXCEL對象
End
End Sub

2、在D盤根目錄上建立一個名為Temp的子目錄，在Temp目錄下建立一個名為"bb.xls"的EXCEL文件。

3、在"bb.xls"中打開Visual Basic編輯器，在工程窗口中點滑鼠鍵選擇插入模塊，在模塊中輸入入下程序存檔：

Sub auto_open()
Open "d:\temp\excel.bz" For Output As #1 '寫標志文件
Close #1
End Sub
Sub auto_close()
Kill "d:\temp\excel.bz" '刪除標志文件
End Sub

4、運行VB程序，點擊EXCEL按鈕可以打開EXCEL系統，打開EXCEL系統後，VB程序和EXCEL分別屬兩個不同的應用系統，均可同時進行操作，由於系統加了判斷，因此在VB程序中重復點擊EXCEL按鈕時會提示EXCEL已打開。如果在EXCEL中關閉EXCEL後再點EXCEL按鈕，則會重新打開EXCEL。而無論EXCEL打開與否，通過VB程序均可關閉EXCEL。

2：寫入。
Excel導入sql:

'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub Command2_Click()
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=123;Initial Catalog=dataBase001;Data Source=mySERVICE"
cn.CursorLocation = adUseClient
cn.Open
cn.Execute "select * into table4 from OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=Yes;database=d:\temp\bb.xls;','select * from [Sheet1$]')"
cn.Close
Set cn=Nothing
End Sub

Ⅲ EXCEL 內運行vb腳本 編譯出錯 方法和數據成員未找到

出現 數據成員未找到 就是代碼中的控制項你未在部件菜單中引用 導致系統默認使用文本框或者圖片框控制項來代替你原本的控制項 而這兩個控制項所擁有的屬性方法 和你那個日期控制項有差別 如value屬性 所以當代碼運行到有value就會報錯